Changeset 5116
- Timestamp:
- Mar 10, 2015, 1:15:12 AM (10 years ago)
- Location:
- branches/1.4
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/sidebarframe.tcl
r3785 r5116 247 247 } 248 248 249 $itk_component(tabs) insert end$pname \249 $itk_component(tabs) insert $pos $pname \ 250 250 -image $panel(-icon) -text "" -padx 0 -pady 0 \ 251 251 -command [itcl::code $this _toggleTab $pname] … … 264 264 265 265 set _panels($pname-title) $panel(-title) 266 lappend _panels(all) $pname 266 if { ![info exists _panels(all)] || $pos == "end" } { 267 lappend _panels(all) $pname 268 } else { 269 set _panels(all) [linsert $_panels(all) $pos $pname] 270 } 267 271 if {$_selected == ""} { 268 272 set _selected $pname
Note: See TracChangeset
for help on using the changeset viewer.