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

Timestamp:

Mar 27, 2013, 2:01:06 PM (12 years ago)

Author:

ldelgass

Message:

Report clientinfo first thing after connecting to visualization server.

File:

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

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -725 +725 @@
     set result [VisViewer::Connect $_hosts]
     if { $result } {
+        if { $_reportClientInfo }  {
+            # Tell the server the viewer, hub, user and session.
+            # Do this immediately on connect before buffing any commands
+            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]"
+        }
+
         set w [winfo width $itk_component(view)]
         set h [winfo height $itk_component(view)]
@@ -864 +885 @@
         $_dispatcher event -idle !rebuild
         return
-    }
-
-    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]"
     }