Changeset 1111 for trunk/gui/scripts/unirect2d.tcl

Timestamp:

Aug 13, 2008, 1:33:28 PM (16 years ago)

Author:

gah

Message:

nanovis/heightmap update

File:

• trunk/gui/scripts/unirect2d.tcl (modified) (3 diffs)

trunk/gui/scripts/unirect2d.tcl

@@ -25 +25 @@
     public method mesh {}
     public method values {}
+    public method hints {{keyword ""}} 
 
     private variable _xmax 0
@@ -33 +34 @@
     private variable _ynum 0
     private variable _zv "";            # BLT vector containing the z-values 
+    private variable _hints
 }
 
@@ -167 +169 @@
 }
 
+
+# ----------------------------------------------------------------------
+# USAGE: hints ?<keyword>?
+#
+# Returns a list of key/value pairs for various hints about plotting
+# this curve.  If a particular <keyword> is specified, then it returns
+# the hint for that <keyword>, if it exists.
+# ----------------------------------------------------------------------
+itcl::body Rappture::UniRect2d::hints {{keyword ""}} {
+    if {![info exists _hints]} {
+        foreach {key path} {
+            group   about.group
+            label   about.label
+            color   about.color
+            style   about.style
+            type    about.type
+            xlabel  xaxis.label
+            xdesc   xaxis.description
+            xunits  xaxis.units
+            xscale  xaxis.scale
+            xmin    xaxis.min
+            xmax    xaxis.max
+            ylabel  yaxis.label
+            ydesc   yaxis.description
+            yunits  yaxis.units
+            yscale  yaxis.scale
+            ymin    yaxis.min
+            ymax    yaxis.max
+        } {
+            set str [$_curve get $path]
+            if {"" != $str} {
+                set _hints($key) $str
+            }
+        }
+
+        if {[info exists _hints(xlabel)] && "" != $_hints(xlabel)
+              && [info exists _hints(xunits)] && "" != $_hints(xunits)} {
+            set _hints(xlabel) "$_hints(xlabel) ($_hints(xunits))"
+        }
+        if {[info exists _hints(ylabel)] && "" != $_hints(ylabel)
+              && [info exists _hints(yunits)] && "" != $_hints(yunits)} {
+            set _hints(ylabel) "$_hints(ylabel) ($_hints(yunits))"
+        }
+
+        if {[info exists _hints(group)] && [info exists _hints(label)]} {
+            # pop-up help for each curve
+            set _hints(tooltip) $_hints(label)
+        }
+    }
+
+    if {$keyword != ""} {
+        if {[info exists _hints($keyword)]} {
+            return $_hints($keyword)
+        }
+        return ""
+    }
+    return [array get _hints]
+}