Changeset 3372 for trunk/gui/scripts/visviewer.tcl

Timestamp:

Feb 27, 2013 8:00:42 AM (11 years ago)

Author:

gah

Message:

add test fo ridiculous number of connect retries before failing.

File:

• trunk/gui/scripts/visviewer.tcl (modified) (5 diffs)

trunk/gui/scripts/visviewer.tcl

@@ -41 +41 @@
     #private variable _idleTimeout 5000;    # 5 seconds
     #private variable _idleTimeout 0;       # No timeout
+    protected variable _maxConnects 100
 
     private variable _logging 0
@@ -49 +50 @@
     protected variable _image
     protected variable _hostname
-    protected variable _errorCount 0
+    protected variable _numConnectTries 0
     protected variable _debugConsole 0
 
@@ -244 +245 @@
 
     puts stderr "server type is $_serverType"
+    if { $_numConnectTries > $_maxConnects } {
+        blt::busy release $itk_component(hull)
+        set x [expr {[winfo rootx $itk_component(hull)]+10}]
+        set y [expr {[winfo rooty $itk_component(hull)]+10}]
+        Rappture::Tooltip::cue @$x,$y "Exceeded maximum number of connection attmepts to any $_serverType visualization server. Please contact support."
+        return 0;
+    }
     foreach server [Shuffle $servers] {
         puts stderr "connecting to $server..."
@@ -252 +260 @@
             continue
         }
+        incr _numConnectTries
         set _hostname $server
         fconfigure $_sid -translation binary -encoding binary
@@ -792 +801 @@
             button $inner.ok -text "Dismiss" -command [list $popup deactivate] \
                 -font "Arial 9"
-            incr _errorCount
             blt::table $inner \
                 0,0 $inner.scrl -fill both \