Changeset 6365

Timestamp:

May 27, 2016, 12:52:40 AM (8 years ago)

Author:

ldelgass

Message:

Add -map option to MapViewer to replace view with a Map object. For use with a
forthcoming input map widget.

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -36 +36 @@
     inherit Rappture::VisViewer
 
+    itk_option define -map map Map ""
     itk_option define -plotforeground plotForeground Foreground ""
     itk_option define -plotbackground plotBackground Background ""
@@ -3293 +3294 @@
     }
 }
+
+# ----------------------------------------------------------------------
+# OPTION: -map
+# ----------------------------------------------------------------------
+itcl::configbody Rappture::MapViewer::map {
+    if {$itk_option(-map) != "" } {
+        if {[catch {$itk_option(-map) isa Rappture::Map} valid] != 0 || !$valid} {
+            error "bad value \"$itk_option(-map)\": should be Rappture::Map object"
+        }
+        $this clear
+        $this add $itk_option(-map)
+        $this scale $itk_option(-map)
+    } else {
+        $this clear
+    }
+
+    if { [isconnected] } {
+        $_dispatcher event -idle !rebuild
+    }
+}