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

Timestamp:

Feb 19, 2006, 8:10:19 PM (19 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/valueresult.tcl (modified) (3 diffs)

trunk/gui/scripts/valueresult.tcl

@@ -28 +28 @@
     public method delete {args}
     public method scale {args}
-    public method download {}
+    public method download {option}
 
     set _dataobj ""  ;# data object currently being displayed
@@ -147 +147 @@
 
 # ----------------------------------------------------------------------
-# USAGE: download
+# USAGE: download coming
+# USAGE: download now
 #
 # Clients use this method to create a downloadable representation
@@ -154 +155 @@
 # "string" is the data itself.
 # ----------------------------------------------------------------------
-itcl::body Rappture::ValueResult::download {} {
-    return ""
+itcl::body Rappture::ValueResult::download {option} {
+    switch $option {
+        coming {
+            # nothing to do
+        }
+        now {
+            set lstr [$itk_component(label) cget -text]
+            set vstr [$itk_component(value) cget -text]
+            return [list .txt "$lstr: $vstr"]
+        }
+        default {
+            error "bad option \"$option\": should be coming, now"
+        }
+    }
 }