Changeset 3782 for trunk/gui/scripts/sidebarframe.tcl

Timestamp:

Jul 12, 2013 11:57:45 AM (11 years ago)

Author:

gah

Message:

fix multiple barchart results, fix PDB reader, dynamically create tabs for vtkviewer

File:

• trunk/gui/scripts/sidebarframe.tcl (modified) (4 diffs)

trunk/gui/scripts/sidebarframe.tcl

@@ -43 +43 @@
 
     public method insert {pos args}
+    public method exists {which}
     public method panel {which}
     public method select {which}
@@ -63 +64 @@
     private variable _width "auto"   ;# width adjusted by sash or "auto"
     private variable _counter 0      ;# counter for auto-generated names
+    private variable _title2panel
 }
 
@@ -249 +251 @@
         -command [itcl::code $this _toggleTab $pname]
 
+    set _title2panel($panel(-title)) $pname
     Rappture::Tooltip::text $itk_component(tabs)-$pname \
         "Open/close sidebar for $panel(-title)"
@@ -303 +306 @@
         }
     }
+}
+
+# ----------------------------------------------------------------------
+# USAGE: exists <which>
+#
+# Returns the frame representing the requested panel.  The <which>
+# argument can be a panel index, name, or title, or the keyword
+# "current" for the selected panel.
+# ----------------------------------------------------------------------
+itcl::body Rappture::SidebarFrame::exists { title } {
+    if { [info exists _title2panel($title)] } {
+        return 1
+    }
+    return 0
 }