diff options
| author | jenglish <jenglish@noemail.net> | 2007-10-31 04:25:22 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@noemail.net> | 2007-10-31 04:25:22 (GMT) |
| commit | 99f7d725485a578ce2864a4815f6e93ca0a4ac78 (patch) | |
| tree | 7f13cbc1bd57dd5c9392f6f9deb8c143603316c5 /library/ttk | |
| parent | 8d2e977a0fdbe915c8c204714b4ae9962a9b7231 (diff) | |
| download | tk-99f7d725485a578ce2864a4815f6e93ca0a4ac78.zip tk-99f7d725485a578ce2864a4815f6e93ca0a4ac78.tar.gz tk-99f7d725485a578ce2864a4815f6e93ca0a4ac78.tar.bz2 | |
BUGFIX: Unpost can be called with no preceding Post.
FossilOrigin-Name: 139521b389c1d9b09a6cc94d12863d9818c12ae2
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/combobox.tcl | 6 |
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] } |