Changeset 462 for trunk/gui/scripts/field3dresult.tcl

Timestamp:

Jun 5, 2006 9:21:06 PM (15 years ago)

Author:

mmc

Message:

Fixed nanovis to take a series of server names as a comma-separated
list, and to try them one after another to make a connection. That
way, if one server is down, you can still reach the rest of the farm.

Added a customized bug handler that looks a little less frightening
than the standard Tcl dialog. Someday, this should log all errors
to a web service, but for now, it just encourages the user to do so.

File:

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

trunk/gui/scripts/field3dresult.tcl

@@ -40 +40 @@
 
     # resources file tells us the nanovis server
-    public common _nanovisHost ""
-    public common _nanovisPort ""
-    public proc setNanovisServer {name} {
-        if {[regexp {^([a-zA-Z0-9\.]+):([0-9]+)$} $name match host port]} {
-            set _nanovisHost $host
-            set _nanovisPort $port
+    public common _nanovisHosts ""
+    public proc setNanovisServer {namelist} {
+        if {[regexp {^[a-zA-Z0-9\.]+:[0-9]+(,[a-zA-Z0-9\.]+:[0-9]+)*$} $namelist match]} {
+            set _nanovisHosts $namelist
         } else {
-            error "bad nanovis server address \"$name\": should be host:port"
+            error "bad nanovis server address \"$namelist\": should be host:port,host:port,..."
         }
     }
@@ -72 +70 @@
     array set flags $args
 
-    if {"" != $_nanovisHost && "" != $_nanovisPort && $flags(-mode) != "vtk"} {
+    if {"" != $_nanovisHosts && $flags(-mode) != "vtk"} {
         itk_component add renderer {
-            Rappture::NanovisViewer $itk_interior.ren \
-                $_nanovisHost $_nanovisPort
+            Rappture::NanovisViewer $itk_interior.ren $_nanovisHosts
         }
         pack $itk_component(renderer) -expand yes -fill both