diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/ttk/combobox.tcl | 6 |
2 files changed, 9 insertions, 2 deletions
@@ -1,3 +1,8 @@ +2007-10-30 Joe English <jenglish@users.sourceforge.net> + + * library/ttk/combobox.tcl(Unpost): BUGFIX: Unpost can be called + with no preceding Post. + 2007-10-31 Pat Thoyts <patthoyts@users.sourceforge.net> * win/rules.vc: Use -fp:strict with msvc8 as -fp:precise fails on 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] } |