Changeset 1342 for trunk/gui/scripts/field2dresult.tcl

Timestamp:

Mar 18, 2009, 2:59:21 PM (16 years ago)

Author:

gah

Message:

preliminary HQ output from molvisviewer; unexpand tabs; all jpeg generation at 100%

File:

• trunk/gui/scripts/field2dresult.tcl (modified) (1 diff)

trunk/gui/scripts/field2dresult.tcl

@@ -52 +52 @@
 itcl::body Rappture::Field2DResult::constructor {args} {
     array set flags {
-        -mode auto
+        -mode auto
     }
     array set flags $args
     if { $flags(-mode) == "heightmap" } {
-        set servers [Rappture::VisViewer::GetServerList "nanovis"]
-        if { $servers == "" } {
-            error "No nanovis servers available"
-        }
-        itk_component add renderer {
-            Rappture::HeightmapViewer $itk_interior.ren $servers
-        }
-        pack $itk_component(renderer) -expand yes -fill both
+        set servers [Rappture::VisViewer::GetServerList "nanovis"]
+        if { $servers == "" } {
+            error "No nanovis servers available"
+        }
+        itk_component add renderer {
+            Rappture::HeightmapViewer $itk_interior.ren $servers
+        }
+        pack $itk_component(renderer) -expand yes -fill both
     } else {
-        itk_component add renderer {
-            Rappture::ContourResult $itk_interior.ren
-        }
-        pack $itk_component(renderer) -expand yes -fill both
+        itk_component add renderer {
+            Rappture::ContourResult $itk_interior.ren
+        }
+        pack $itk_component(renderer) -expand yes -fill both
     }
     eval itk_initialize $args