Changeset 3587 for trunk/gui/scripts/vtkheightmapviewer.tcl

Timestamp:

Mar 27, 2013 9:23:11 AM (11 years ago)

Author:

gah

Message:

let clientinfo be the first command sent. Change wait timeout to 900 milliseconds so that sequences don't trigger them

File:

• trunk/gui/scripts/vtkheightmapviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -167 +167 @@
     set _serverType "vtkvis"
 
-    EnableWaitDialog 500
+    EnableWaitDialog 900
     # Rebuild event
     $_dispatcher register !rebuild
@@ -866 +866 @@
     }
 
+    if { $_reset && $_reportClientInfo }  {
+        # Tell the server the name of the tool, the version, and dataset
+        # that we are rendering.  Have to do it here because we don't know
+        # what data objects are using the renderer until be get here.
+        global env
+        
+        set info {}
+        set user "???"
+        if { [info exists env(USER)] } {
+            set user $env(USER)
+        }
+        set session "???"
+        if { [info exists env(SESSION)] } {
+            set session $env(SESSION)
+        }
+        lappend info "hub" [exec hostname]
+        lappend info "client" "vtkheightmapviewer"
+        lappend info "user" $user
+        lappend info "session" $session
+        SendCmd "clientinfo [list $info]"
+    }
+
     # Turn on buffering of commands to the server.  We don't want to
     # be preempted by a server disconnect/reconnect (which automatically
@@ -881 +903 @@
     }
     if { $_reset } {
-        if { $_reportClientInfo }  {
-            # Tell the server the name of the tool, the version, and dataset
-            # that we are rendering.  Have to do it here because we don't know
-            # what data objects are using the renderer until be get here.
-            global env
-
-            set info {}
-            set user "???"
-            if { [info exists env(USER)] } {
-                set user $env(USER)
-            }
-            set session "???"
-            if { [info exists env(SESSION)] } {
-                set session $env(SESSION)
-            }
-            lappend info "hub" [exec hostname]
-            lappend info "client" "vtkheightmapviewer"
-            lappend info "user" $user
-            lappend info "session" $session
-            SendCmd "clientinfo [list $info]"
-        }
         InitSettings isHeightmap background
         #