Changeset 607 for trunk/gui/scripts/deviceEditor.tcl

Timestamp:

Mar 6, 2007, 12:03:02 PM (18 years ago)

Author:

nkissebe

Message:

use molVisViewer as the molecule viewer if hubvis_server resource is set

File:

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

trunk/gui/scripts/deviceEditor.tcl

@@ -33 +33 @@
 
     private variable _current ""  ;# active device editor
+
+    public common _hubvisHosts ""
+
+    public proc setHubvisServer {namelist} {
+        if {[regexp {^[a-zA-Z0-9\.]+:[0-9]+(,[a-zA-Z0-9\.]+:[0-9]+)*$} $namelist match]} {
+            set _hubvisHosts $namelist
+        } else {
+            error "bad visualization server address \"$namelist\": should be host:port,host:port,..."
+        }
+    }
 }
                                                                                 
 itk::usual DeviceEditor {
+}
+
+# must use this name -- plugs into Rappture::resources::load
+proc deviceEditor_init_resources {} {
+    Rappture::resources::register \
+        hubvis_server Rappture::DeviceEditor::setHubvisServer
 }
 
@@ -132 +148 @@
             if {![winfo exists $itk_component(hull).mol]} {
                 catch {destroy $itk_component(hull).dev}
-                Rappture::MoleculeViewer $itk_component(hull).mol $this
+                if {"" != $_hubvisHosts} {
+                    Rappture::MolvisViewer $itk_component(hull).mol $_hubvisHosts
+                } else {
+                    Rappture::MoleculeViewer $itk_component(hull).mol $this
+                } 
                 pack $itk_component(hull).mol -expand yes -fill both
             }