summaryrefslogtreecommitdiffstats
path: root/library/msgbox.tcl
diff options
context:
space:
mode:
authornijtmans <nijtmans>2011-01-13 07:48:31 (GMT)
committernijtmans <nijtmans>2011-01-13 07:48:31 (GMT)
commit97f15ba745e0c4588dff45dcf321e84bc8d8c054 (patch)
tree7d9d7f1e2e52875227eedc6a320f92c1edc67ea9 /library/msgbox.tcl
parentc8e51ca91b4fe838df18ab5522182c172c859083 (diff)
downloadtk-97f15ba745e0c4588dff45dcf321e84bc8d8c054.zip
tk-97f15ba745e0c4588dff45dcf321e84bc8d8c054.tar.gz
tk-97f15ba745e0c4588dff45dcf321e84bc8d8c054.tar.bz2
[Patch #3154705] Close button has no effect
Diffstat (limited to 'library/msgbox.tcl')
-rw-r--r--library/msgbox.tcl6
1 files changed, 2 insertions, 4 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl
index 60b733f..e117b47 100644
--- a/library/msgbox.tcl
+++ b/library/msgbox.tcl
@@ -3,7 +3,7 @@
# Implements messageboxes for platforms that do not have native
# messagebox support.
#
-# RCS: @(#) $Id: msgbox.tcl,v 1.36.2.3 2010/01/20 23:43:51 patthoyts Exp $
+# RCS: @(#) $Id: msgbox.tcl,v 1.36.2.4 2011/01/13 07:48:31 nijtmans Exp $
#
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
#
@@ -11,8 +11,6 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-package require Ttk
-
# Ensure existence of ::tk::dialog namespace
#
namespace eval ::tk::dialog {}
@@ -256,7 +254,7 @@ proc ::tk::MessageBox {args} {
toplevel $w -class Dialog -bg $bg
wm title $w $data(-title)
wm iconname $w Dialog
- wm protocol $w WM_DELETE_WINDOW { }
+ wm protocol $w WM_DELETE_WINDOW [list $w.$cancel invoke]
# Message boxes should be transient with respect to their parent so that
# they always stay on top of the parent window. But some window managers