- Timestamp:
- Feb 27, 2013, 8:00:42 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/visviewer.tcl
r3371 r3372 41 41 #private variable _idleTimeout 5000; # 5 seconds 42 42 #private variable _idleTimeout 0; # No timeout 43 protected variable _maxConnects 100 43 44 44 45 private variable _logging 0 … … 49 50 protected variable _image 50 51 protected variable _hostname 51 protected variable _ errorCount052 protected variable _numConnectTries 0 52 53 protected variable _debugConsole 0 53 54 … … 244 245 245 246 puts stderr "server type is $_serverType" 247 if { $_numConnectTries > $_maxConnects } { 248 blt::busy release $itk_component(hull) 249 set x [expr {[winfo rootx $itk_component(hull)]+10}] 250 set y [expr {[winfo rooty $itk_component(hull)]+10}] 251 Rappture::Tooltip::cue @$x,$y "Exceeded maximum number of connection attmepts to any $_serverType visualization server. Please contact support." 252 return 0; 253 } 246 254 foreach server [Shuffle $servers] { 247 255 puts stderr "connecting to $server..." … … 252 260 continue 253 261 } 262 incr _numConnectTries 254 263 set _hostname $server 255 264 fconfigure $_sid -translation binary -encoding binary … … 792 801 button $inner.ok -text "Dismiss" -command [list $popup deactivate] \ 793 802 -font "Arial 9" 794 incr _errorCount795 803 blt::table $inner \ 796 804 0,0 $inner.scrl -fill both \
Note: See TracChangeset
for help on using the changeset viewer.