Changeset 1876 for trunk/gui/scripts

Timestamp:

Aug 24, 2010, 9:34:54 AM (14 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/textentry.tcl (modified) (1 diff)

trunk/gui/scripts/textentry.tcl

@@ -229 +229 @@
         # take down any existing widget
         foreach win [pack slaves $itk_interior] {
-            pack forget $win
+            if { [winfo name $win] != "hints" } {
+                pack forget $win
+            }
         }