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

Timestamp:

Jan 3, 2008, 1:18:00 PM (17 years ago)

Author:

gah

Message:

changes for surface plots

File:

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

trunk/gui/scripts/field3dresult.tcl

@@ -39 +39 @@
     public method parameters {title args} { # do nothing }
     public method download {option args}
-
-    # resources file tells us the nanovis server
-    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 \"$namelist\": should be host:port,host:port,..."
-        }
-    }
 }
 
@@ -54 +44 @@
 proc field3d_init_resources {} {
     Rappture::resources::register \
-        nanovis_server Rappture::Field3DResult::setNanovisServer
+        nanovis_server Rappture::NanovisServer::setServer
 }
 
@@ -71 +61 @@
     array set flags $args
 
-    if {"" != $_nanovisHosts && $flags(-mode) != "vtk"} {
+    set servers [Rappture::NanovisServer::getServer]
+    if {"" != $servers && $flags(-mode) != "vtk"} {
         itk_component add renderer {
-            Rappture::NanovisViewer $itk_interior.ren $_nanovisHosts
+            Rappture::NanovisViewer $itk_interior.ren $servers
         }
         pack $itk_component(renderer) -expand yes -fill both