summaryrefslogtreecommitdiffstats
path: root/library/demos/msgbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/demos/msgbox.tcl')
-rw-r--r--library/demos/msgbox.tcl5
1 files changed, 2 insertions, 3 deletions
diff --git a/library/demos/msgbox.tcl b/library/demos/msgbox.tcl
index a8f7d17..2c2cc2d 100644
--- a/library/demos/msgbox.tcl
+++ b/library/demos/msgbox.tcl
@@ -7,7 +7,6 @@ if {![info exists widgetDemo]} {
}
package require Tk
-package require Ttk
set w .msgbox
catch {destroy $w}
@@ -24,7 +23,7 @@ pack [addSeeDismiss $w.buttons $w {} {
}] -side bottom -fill x
#pack $w.buttons.dismiss $w.buttons.code $w.buttons.vars -side left -expand 1
-frame $w.left
+frame $w.left
frame $w.right
pack $w.left $w.right -side left -expand yes -fill y -pady .5c -padx .5c
@@ -57,7 +56,7 @@ proc showMessageBox {w} {
set button [tk_messageBox -icon $msgboxIcon -type $msgboxType \
-title Message -parent $w\
-message "This is a \"$msgboxType\" type messagebox with the \"$msgboxIcon\" icon"]
-
+
tk_messageBox -icon info -message "You have selected \"$button\"" -type ok\
-parent $w
}