summaryrefslogtreecommitdiffstats
path: root/library/ttk/combobox.tcl
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2007-10-31 04:25:22 (GMT)
committerjenglish <jenglish@flightlab.com>2007-10-31 04:25:22 (GMT)
commit644cecc295e9fd371226e9c5b3eeeb50b0181b41 (patch)
tree7f13cbc1bd57dd5c9392f6f9deb8c143603316c5 /library/ttk/combobox.tcl
parent9484ae1c4377c8645247fd5111fa156755e7ea22 (diff)
downloadtk-644cecc295e9fd371226e9c5b3eeeb50b0181b41.zip
tk-644cecc295e9fd371226e9c5b3eeeb50b0181b41.tar.gz
tk-644cecc295e9fd371226e9c5b3eeeb50b0181b41.tar.bz2
BUGFIX: Unpost can be called with no preceding Post.
Diffstat (limited to 'library/ttk/combobox.tcl')
-rw-r--r--library/ttk/combobox.tcl6
1 files changed, 4 insertions, 2 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl
index 76692d8..d19a1fd 100644
--- a/library/ttk/combobox.tcl
+++ b/library/ttk/combobox.tcl
@@ -1,5 +1,5 @@
#
-# $Id: combobox.tcl,v 1.8 2007/10/28 18:56:51 jenglish Exp $
+# $Id: combobox.tcl,v 1.9 2007/10/31 04:25:23 jenglish Exp $
#
# Combobox bindings.
#
@@ -396,7 +396,9 @@ proc ttk::combobox::Post {cb} {
# Unpost the listbox.
#
proc ttk::combobox::Unpost {cb} {
- wm withdraw $cb.popdown
+ if {[winfo exists $cb.popdown]} {
+ wm withdraw $cb.popdown
+ }
grab release $cb.popdown ;# in case of stuck or unexpected grab [#1239190]
}