Changeset 640 for trunk/gui/scripts/tool.tcl

Timestamp:

Mar 25, 2007, 3:20:49 PM (18 years ago)

Author:

mmc

Message:

Enhanced the <loader> to support upload/download for multiple inputs.
Also, added upload/download options to the right-mouse button menu
for <string> inputs. <string> inputs now accept binary data, so you
can use them to upload binary files.

File:

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

trunk/gui/scripts/tool.tcl

@@ -24 +24 @@
     } { # defined below }
 
+    public method get {{option ""}}
     public method installdir {} { return $_installdir }
 
@@ -62 +63 @@
 
     eval configure $args
+}
+
+# ----------------------------------------------------------------------
+# USAGE: get ?-option?
+#
+# Clients use this to query information about the tool.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tool::get {{option ""}} {
+    set values(-name) $_appname
+    if {$option == ""} {
+        return [array get values]
+    }
+    if {![info exists values]} {
+        error "bad option \"$option\": should be [join [array names values] {, }]"
+    }
+    return $values($option)
 }