Changeset 3647 for trunk/gui/scripts/controls.tcl

Timestamp:

May 14, 2013, 2:33:30 PM (11 years ago)

Author:

gah

Message:

add string trim to inputs

File:

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

trunk/gui/scripts/controls.tcl

@@ -577 +577 @@
         foreach name $showing {
             set wv $_name2info($name-value)
-            $wv configure -heading no
-
-            set label [$wv component heading cget -text]
-            if {"" == $label} {
-                set label "Group #$gn"
-            }
-            set _name2info($name-label) $label
-            $_tabs insert end $name -text $label \
-                -activebackground $itk_option(-background) \
-                -window $_frame -fill both
-
-            incr gn
+            if { [winfo class $wv] == "GroupEntry" } {
+                $wv configure -heading no
+                set label [$wv component heading cget -text]
+                if {"" == $label} {
+                    set label "Group #$gn"
+                }
+                set _name2info($name-label) $label
+                $_tabs insert end $name -text $label \
+                    -activebackground $itk_option(-background) \
+                    -window $_frame -fill both
+                incr gn
         }