Changeset 1650 for branches/blt4/gui/scripts/controls.tcl
- Timestamp:
- Feb 1, 2010, 3:23:15 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4/gui/scripts/controls.tcl
r1624 r1650 38 38 protected method _controlValue {path {units ""}} 39 39 protected method _formatLabel {str} 40 protected method _changeTabs { }40 protected method _changeTabs { index } 41 41 protected method _resize {} 42 42 … … 71 71 set f [$itk_interior.sc contents frame] 72 72 73 set _tabs [blt::tabset $f.tabs - borderwidth 0 -relief flat \73 set _tabs [blt::tabset $f.tabs -outerborderwidth 0 -outerrelief flat \ 74 74 -side top -tearoff 0 -highlightthickness 0 \ 75 75 -selectbackground $itk_option(-background) \ … … 496 496 set _name2info($name-label) $label 497 497 498 $_tabs insert end $label \ 499 -activebackground $itk_option(-background) 500 498 $_tabs insert end $label 501 499 incr gn 502 500 } … … 510 508 grid rowconfigure $_frame 0 -weight 1 511 509 512 $_tabs select 0; _changeTabs510 _changeTabs 0 513 511 } 514 512 … … 695 693 # the groups. 696 694 # ---------------------------------------------------------------------- 697 itcl::body Rappture::Controls::_changeTabs {} { 698 set i [$_tabs index select] 695 itcl::body Rappture::Controls::_changeTabs { index } { 696 if { $index == -1 } { 697 set index [$_tabs index select] 698 } 699 699 # we use _showing here instead of _controls because sometimes tabs 700 700 # are disabled, and the index of the choosen tab always matches 701 701 # _showing, even if tabs are disabled. 702 set name [lindex $_showing $i ]702 set name [lindex $_showing $index] 703 703 if {"" != $name} { 704 704 foreach w [grid slaves $_frame] {
Note: See TracChangeset
for help on using the changeset viewer.