Changeset 193 for trunk/gui/scripts/textresult.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/textresult.tcl (modified) (3 diffs)

trunk/gui/scripts/textresult.tcl

@@ -31 +31 @@
     public method delete {args}
     public method scale {args}
-    public method download {}
+    public method download {option}
 
     public method select {option args}
@@ -247 +247 @@
 
 # ----------------------------------------------------------------------
-# USAGE: download
+# USAGE: download coming
+# USAGE: download now
 #
 # Clients use this method to create a downloadable representation
@@ -254 +255 @@
 # "string" is the data itself.
 # ----------------------------------------------------------------------
-itcl::body Rappture::TextResult::download {} {
-    return [list .txt [$itk_component(text) get 1.0 end]]
+itcl::body Rappture::TextResult::download {option} {
+    switch $option {
+        coming {
+            # nothing to do
+        }
+        now {
+            return [list .txt [$itk_component(text) get 1.0 end]]
+        }
+        default {
+            error "bad option \"$option\": should be coming, now"
+        }
+    }
 }