Changeset 1855

Timestamp:

Aug 5, 2010, 2:17:52 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/controls.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/controls.tcl

@@ -77 +77 @@
         -side top -tearoff 0 -highlightthickness 0 \
         -selectbackground $itk_option(-background) \
+        -width 6i -justify left \
         -selectcommand [itcl::code $this _changeTabs]]
     set _frame [frame $f.inner]
@@ -511 +512 @@
             set _name2info($name-label) $label
 
-            $_tabs insert end $label 
+            $_tabs insert end $label -fill both
             incr gn
         }