Changeset 5116 for branches

Timestamp:

Mar 10, 2015 1:15:12 AM (9 years ago)

Author:

ldelgass

Message:

merge r5028 from trunk (sidebar insert tab)

Location:

branches/1.4

Files:

• . (modified) (1 prop)
• gui/scripts/sidebarframe.tcl (modified) (2 diffs)

branches/1.4/gui/scripts/sidebarframe.tcl

@@ -247 +247 @@
     }
 
-    $itk_component(tabs) insert end $pname \
+    $itk_component(tabs) insert $pos $pname \
         -image $panel(-icon) -text "" -padx 0 -pady 0 \
         -command [itcl::code $this _toggleTab $pname]
@@ -264 +264 @@
 
     set _panels($pname-title) $panel(-title)
-    lappend _panels(all) $pname
+    if { ![info exists _panels(all)] || $pos == "end" } {
+        lappend _panels(all) $pname
+    } else {
+        set _panels(all) [linsert $_panels(all) $pos $pname]
+    }
     if {$_selected == ""} {
         set _selected $pname