Changeset 1509 for trunk

Timestamp:

Jun 10, 2009 7:05:48 PM (15 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• flowhints.tcl (modified) (1 diff)
• flowvisviewer.tcl (modified) (5 diffs)
• unirect3d.tcl (modified) (2 diffs)

trunk/gui/scripts/flowhints.tcl

@@ -215 +215 @@
     if { [string is boolean $value] } {
         upvar $varName bool
-        set bool $value
+        set bool [expr $value ? 1 : 0]
         return
     }

trunk/gui/scripts/flowvisviewer.tcl

@@ -1171 +1171 @@
     }
 
-    if 0 {
-    # in the midst of sending data? then bail out
-    if {[llength $_sendobjs] > 0} {
-        $_dispatcher event -idle !rebuild
-        return
-    }
-    }
+    set _first ""
     # Turn on buffering of commands to the server.  We don't want to
     # be preempted by a server disconnect/reconnect (which automatically
@@ -1210 +1204 @@
         }
     }
-    set _sendobjs ""
-
-    #
+
+    set _first [lindex [get] 0]
+
     # Reset the camera and other view parameters
-    #
     FixSettings isosurface
     FixSettings grid
@@ -1222 +1215 @@
     FixSettings light
     FixSettings transp
+    
     # nothing to send -- activate the proper volume
-    set _first [lindex [get] 0]
     if {"" != $_first} {
         FixSettings light
@@ -1252 +1245 @@
             NameTransferFunc $dataobj $comp
         }
-    }
-
-    if {[llength $_sendobjs] > 0} {
-        # send off new data objects
-        $_dispatcher event -idle !send_dataobjs
-        puts stderr "more sendobjs "
-        return
     }
 
@@ -2950 +2936 @@
     set min [expr floor($value / 60000.0)]
     set sec [expr ($value - ($min*60000.0)) / 1000.0]
-    #puts stderr "min=$min sec=$sec"
     return [format %02d:%02d [expr round($min)] [expr round($sec)]]
 }

trunk/gui/scripts/unirect3d.tcl

@@ -94 +94 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Unirect3d::blob {} {
+    set time [time {
     lappend data "unirect3d"
     lappend data "xmin" $_xMin "xmax" $_xMax "xnum" $_xNum
@@ -103 +104 @@
         lappend data "values" [$_values range 0 end]
     }
-    return "@@RP-ENC:raw\n$data"
+    }] 
+    puts stderr blob7=$time
+    return $data
     #return [Rappture::encoding::encode -as b64 "$data"]
 }