Changeset 766 for trunk/tcl

Timestamp:

Jun 10, 2007, 4:06:35 PM (17 years ago)

Author:

mmc

Message:

Fixed the output viewer for numbers/integers to show a plot of
the value versus input parameters. As you change the ResultSet?
control, the x-axis updates to show the number versus values
in the result set.

Fixed the Rappture::result command to include the user's login
in the metadata, so we know who performed the computation.

File:

• trunk/tcl/scripts/result.tcl (modified) (2 diffs)

trunk/tcl/scripts/result.tcl

@@ -31 +31 @@
 # ----------------------------------------------------------------------
 proc Rappture::result {libobj {status 0}} {
+    global tcl_platform
+
     $libobj put output.time [clock format [clock seconds]]
     if {$status != 0} {
@@ -36 +38 @@
     } else {
         $libobj put output.status "ok"
+    }
+
+    if {[info exists tcl_platform(user)]} {
+        $libobj put output.user $tcl_platform(user)
     }