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

Timestamp:

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

Author:

ldelgass

Message:

Report clientinfo first thing after connecting to visualization server.

File:

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

trunk/gui/scripts/vtkstreamlinesviewer.tcl

@@ -802 +802 @@
     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" "vtkstreamlinesviewer"
+            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)]
@@ -957 +978 @@
     set _first ""
     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" "vtkstreamlinesviewer"
-            lappend info "user" $user
-            lappend info "session" $session
-            SendCmd "clientinfo [list $info]"
-        }
         set _width $w
         set _height $h