Changeset 1650 for branches/blt4/gui/scripts/controls.tcl

Timestamp:

Feb 1, 2010, 3:23:15 PM (15 years ago)

Author:

gah

Message:

 

File:

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

branches/blt4/gui/scripts/controls.tcl

@@ -38 +38 @@
     protected method _controlValue {path {units ""}}
     protected method _formatLabel {str}
-    protected method _changeTabs {}
+    protected method _changeTabs { index }
     protected method _resize {}
 
@@ -71 +71 @@
     set f [$itk_interior.sc contents frame]
 
-    set _tabs [blt::tabset $f.tabs -borderwidth 0 -relief flat \
+    set _tabs [blt::tabset $f.tabs -outerborderwidth 0 -outerrelief flat \
         -side top -tearoff 0 -highlightthickness 0 \
         -selectbackground $itk_option(-background) \
@@ -496 +496 @@
             set _name2info($name-label) $label
 
-            $_tabs insert end $label \
-                -activebackground $itk_option(-background)
-
+            $_tabs insert end $label 
             incr gn
         }
@@ -510 +508 @@
         grid rowconfigure $_frame 0 -weight 1
 
-        $_tabs select 0; _changeTabs
+        _changeTabs 0
       }
 
@@ -695 +693 @@
 # the groups.
 # ----------------------------------------------------------------------
-itcl::body Rappture::Controls::_changeTabs {} {
-    set i [$_tabs index select]
+itcl::body Rappture::Controls::_changeTabs { index } {
+    if { $index == -1 } {
+        set index [$_tabs index select]
+    }
     # we use _showing here instead of _controls because sometimes tabs
     # are disabled, and the index of the choosen tab always matches
     # _showing, even if tabs are disabled.
-    set name [lindex $_showing $i]
+    set name [lindex $_showing $index]
     if {"" != $name} {
         foreach w [grid slaves $_frame] {