Changeset 193 for trunk/gui/scripts/controlOwner.tcl

Timestamp:

Feb 19, 2006 8:10:19 PM (18 years ago)

Author:

mmc

Message:

• Added "Upload..." capability to the <loader> widget. You can now add an <upload> directive containing the path of the control that will receive data. A file is uploaded from the desktop and saved in the specified control.

• Fixed download capability to work properly for all result types, including contour plots and molecules.

• Added rappture::signal so we can catch SIGHUP and clean up the upload/download spool directory.

File:

• trunk/gui/scripts/controlOwner.tcl (modified) (2 diffs)

trunk/gui/scripts/controlOwner.tcl

@@ -23 +23 @@
     public method load {newobj}
     public method widgetfor {path args}
+    public method valuefor {path args}
     public method changed {path}
     public method notify {option owner args}
@@ -84 +85 @@
     } else {
         unset _path2widget($path)
+    }
+}
+
+# ----------------------------------------------------------------------
+# USAGE: valuefor <path> ?<newValue>?
+#
+# Used by embedded widgets such as a Loader to query or set the
+# value of another control.  With no extra args, it returns the
+# value of the widget at the <path> in the XML.  Otherwise, it
+# sets the value of the widget to <newValue>.
+# ----------------------------------------------------------------------
+itcl::body Rappture::ControlOwner::valuefor {path args} {
+    # if this is a query operation, then look for the path
+    if {[llength $args] == 0} {
+        if {[info exists _path2widget($path)]} {
+            return [$_path2widget($path) value]
+        }
+        return ""
+    }
+
+    # otherwise, set the value
+    if {[llength $args] > 1} {
+        error "wrong # args: should be \"valuefor path ?newValue?\""
+    }
+
+    if {[info exists _path2widget($path)]} {
+        $_path2widget($path) value [lindex $args 0]
+    } else {
+        error "bad path \"$path\": should be one of [join [lsort [array names _path2widget]] {, }]"
     }
 }