Changeset 4261 for trunk/gui/scripts/resultviewer.tcl

Timestamp:

Mar 24, 2014 8:58:10 AM (10 years ago)

Author:

gah

Message:

initial map object

File:

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

trunk/gui/scripts/resultviewer.tcl

@@ -293 +293 @@
             }
         }
+        ::Rappture::Map {
+            if { ![$dataobj isvalid] } {
+                return;                 # Ignore invalid map objects.
+            }
+            set mode "map"
+            if {![info exists _mode2widget($mode)]} {
+                set servers [Rappture::VisViewer::GetServerList "geovis"]
+                set w $itk_interior.$mode
+                Rappture::MapViewer $w $servers
+                set _mode2widget($mode) $w
+            }
+        }
         ::Rappture::Field {
             if { ![$dataobj isvalid] } {
@@ -481 +493 @@
             set dobj [Rappture::Field ::#auto $xmlobj $path]
         }
+        map {
+            set dobj [Rappture::Map ::#auto $xmlobj $path]
+        }
         mesh {
             set dobj [Rappture::Mesh ::#auto $xmlobj $path]