Changeset 3587


Ignore:
Timestamp:
Mar 27, 2013 9:23:11 AM (7 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/vtkheightmapviewer.tcl

    r3585 r3587  
    167167    set _serverType "vtkvis"
    168168
    169     EnableWaitDialog 500
     169    EnableWaitDialog 900
    170170    # Rebuild event
    171171    $_dispatcher register !rebuild
     
    866866    }
    867867
     868    if { $_reset && $_reportClientInfo }  {
     869        # Tell the server the name of the tool, the version, and dataset
     870        # that we are rendering.  Have to do it here because we don't know
     871        # what data objects are using the renderer until be get here.
     872        global env
     873       
     874        set info {}
     875        set user "???"
     876        if { [info exists env(USER)] } {
     877            set user $env(USER)
     878        }
     879        set session "???"
     880        if { [info exists env(SESSION)] } {
     881            set session $env(SESSION)
     882        }
     883        lappend info "hub" [exec hostname]
     884        lappend info "client" "vtkheightmapviewer"
     885        lappend info "user" $user
     886        lappend info "session" $session
     887        SendCmd "clientinfo [list $info]"
     888    }
     889
    868890    # Turn on buffering of commands to the server.  We don't want to
    869891    # be preempted by a server disconnect/reconnect (which automatically
     
    881903    }
    882904    if { $_reset } {
    883         if { $_reportClientInfo }  {
    884             # Tell the server the name of the tool, the version, and dataset
    885             # that we are rendering.  Have to do it here because we don't know
    886             # what data objects are using the renderer until be get here.
    887             global env
    888 
    889             set info {}
    890             set user "???"
    891             if { [info exists env(USER)] } {
    892                 set user $env(USER)
    893             }
    894             set session "???"
    895             if { [info exists env(SESSION)] } {
    896                 set session $env(SESSION)
    897             }
    898             lappend info "hub" [exec hostname]
    899             lappend info "client" "vtkheightmapviewer"
    900             lappend info "user" $user
    901             lappend info "session" $session
    902             SendCmd "clientinfo [list $info]"
    903         }
    904905        InitSettings isHeightmap background
    905906        #
Note: See TracChangeset for help on using the changeset viewer.