Changeset 3302 for branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl

Timestamp:

Feb 17, 2013, 8:27:24 AM (12 years ago)

Author:

gah

Message:

fixes for clientdata output, fix streamlines to use vtkdata

File:

• branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl (modified) (1 diff)

branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl

@@ -984 +984 @@
             global env
 
-puts stderr "sending clientinfo"
-            lappend data "hub" [exec hostname]
-            lappend data "viewer" "vtkheightmapviewer"
+            lappend out "hub" [exec hostname]
+            lappend out "viewer" "vtkheightmapviewer"
             if { [info exists env(USER)] } {
-                lappend data "user" $env(USER)
+                lappend out "user" $env(USER)
             }
             if { [info exists env(SESSION)] } {
-                lappend data "session" $env(SESSION)
+                lappend out "session" $env(SESSION)
             }
-            lappend data "tool_id" [$_first hints toolId]
-            lappend data "tool_version" [$_first hints toolRevision]
-            lappend data "tool_title" [$_first hints toolTitle]
-            lappend data "tool_dataset" [$_first hints label]
-            SendCmd "clientinfo [list $data]"
+            lappend out "tool_id"      [$_first hints toolId]
+            lappend out "tool_name"    [$_first hints toolName]
+            lappend out "tool_version" [$_first hints toolRevision]
+            lappend out "tool_title"   [$_first hints toolTitle]
+            lappend out "tool_dataset" [$_first hints label]
+            SendCmd "clientinfo [list $out]"
         }
         set _fieldNames [$_first hints fieldnames]