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

Timestamp:

Jun 6, 2006, 10:33:16 AM (18 years ago)

Author:

mmc

Message:

Added popup options for the "download" button. Right now this works
only for <curve> objects. You can select between CSV and PDF output.
Will add other formats later.

Fixed a few "after cancel" errors that were happening when you switch
between inputs in the structure demo.

Fixed the colors and fonts for the new bug report window.

File:

• trunk/gui/scripts/valueresult.tcl (modified) (5 diffs)

trunk/gui/scripts/valueresult.tcl

@@ -28 +28 @@
     public method delete {args}
     public method scale {args}
-    public method download {option}
+    public method download {option args}
 
     set _dataobj ""  ;# data object currently being displayed
@@ -73 +73 @@
         -linestyle ""
         -raise ""
+        -description ""
     }
     foreach {opt val} $settings {
@@ -148 +149 @@
 # ----------------------------------------------------------------------
 # USAGE: download coming
+# USAGE: download controls <downloadCommand>
 # USAGE: download now
 #
@@ -155 +157 @@
 # "string" is the data itself.
 # ----------------------------------------------------------------------
-itcl::body Rappture::ValueResult::download {option} {
+itcl::body Rappture::ValueResult::download {option args} {
     switch $option {
         coming {
             # nothing to do
+        }
+        controls {
+            # no controls for this download yet
+            return ""
         }
         now {
@@ -166 +172 @@
         }
         default {
-            error "bad option \"$option\": should be coming, now"
+            error "bad option \"$option\": should be coming, controls, now"
         }
     }