# This demonstration script creates message boxes of various type
#
# SCCS: @(#) msgbox.tcl 1.2 96/08/27 14:42:23
set w .msgbox
catch {destroy $w}
toplevel $w
wm title $w "Message Box Demonstration"
wm iconname $w "messagebox"
positionWindow $w
label $w.msg -font $font -wraplength 4i -justify left -text "Choose the icon and type option of the message box. Then press the \"Message Box\" button to see the message box."