Changeset 997 for trunk/gui/scripts/sequence.tcl

Timestamp:

Apr 24, 2008 11:30:56 AM (16 years ago)

Author:

dkearney

Message:

added ability for sequence.elemtents to contain a free text label. users can write their own label to sequence.element.about.label and it will show up next to the "Frame = 1" text just above the play button. Also made the "Frame = 1" text optional. if the user leaves out sequence.index.label, the "Frame = 1" will not show up.

File:

• trunk/gui/scripts/sequence.tcl (modified) (6 diffs)

trunk/gui/scripts/sequence.tcl

@@ -23 +23 @@
 
     public method value {pos}
+    public method label {pos}
     public method index {pos}
     public method size {}
@@ -29 +30 @@
     private variable _xmlobj ""  ;# ref to lib obj with sequence data
     private variable _dataobjs   ;# maps index => data object
+    private variable _labels     ;# maps index => labels
     private variable _indices    ;# list of sorted index values
     private variable _hints      ;# cache of hints stored in XML
@@ -51 +53 @@
         }
 
+        # check for an element about.label stanza
+        set elelabel [$xmlobj get $path.$name.about.label]
+
         set ctype ""
         set _dataobjs($index) ""
+        set _labels($index) ""
         foreach cname [$_xmlobj children $name] {
             set type [$xmlobj element -as type $path.$name.$cname]
@@ -60 +66 @@
                     continue
                 }
+                about {
+                    # ignore this
+                    continue
+                }
                 curve {
                     set obj [Rappture::Curve ::#auto $xmlobj $path.$name.$cname]
@@ -100 +110 @@
             if {$type == $ctype} {
                 lappend _dataobjs($index) $obj
+                set _labels($index) $elelabel
             } else {
                 itcl::delete object $obj
@@ -172 +183 @@
 
 # ----------------------------------------------------------------------
+# USAGE: label <pos>
+#
+# Returns the label for the element as position <pos> in the
+# list of all elements.  Here, <pos> runs from 0 to size-1.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Sequence::label {pos} {
+    set i [lindex [lindex $_indices $pos] 0]
+    return $_labels($i)
+}
+
+# ----------------------------------------------------------------------
 # USAGE: index <pos>
 #