Changeset 3592 for trunk/gui/scripts/flowvisviewer.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/flowvisviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/flowvisviewer.tcl

@@ -860 +860 @@
     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" "flowvisviewer"
+            lappend info "user" $user
+            lappend info "session" $session
+            SendCmd "clientinfo [list $info]"
+        }
+
         set w [winfo width $itk_component(3dview)]
         set h [winfo height $itk_component(3dview)]
@@ -1185 +1206 @@
 
     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" "flowvisviewer"
-            lappend info "user" $user
-            lappend info "session" $session
-            SendCmd "clientinfo [list $info]"
-        }
-    }
     foreach dataobj [get] {
         foreach comp [$dataobj components] {