From 644cecc295e9fd371226e9c5b3eeeb50b0181b41 Mon Sep 17 00:00:00 2001
From: jenglish <jenglish@flightlab.com>
Date: Wed, 31 Oct 2007 04:25:22 +0000
Subject: BUGFIX: Unpost can be called with no preceding Post.

---
 ChangeLog                | 5 +++++
 library/ttk/combobox.tcl | 6 ++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c0ceef7..c166ad5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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]
 }
 
-- 
cgit v0.12