Changeset 5116


Ignore:
Timestamp:
Mar 10, 2015 1:15:12 AM (5 years ago)
Author:
ldelgass
Message:

merge r5028 from trunk (sidebar insert tab)

Location:
branches/1.4
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/1.4

    • Property svn:mergeinfo changed
      /trunkmerged: 5028
  • branches/1.4/gui/scripts/sidebarframe.tcl

    r3785 r5116  
    247247    }
    248248
    249     $itk_component(tabs) insert end $pname \
     249    $itk_component(tabs) insert $pos $pname \
    250250        -image $panel(-icon) -text "" -padx 0 -pady 0 \
    251251        -command [itcl::code $this _toggleTab $pname]
     
    264264
    265265    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    }
    267271    if {$_selected == ""} {
    268272        set _selected $pname
Note: See TracChangeset for help on using the changeset viewer.