Changeset 6258 for branches/blt4_trunk

Timestamp:

Apr 7, 2016 1:57:05 PM (8 years ago)

Author:

ldelgass

Message:

merge r6252:6257 from trunk (placard enable)

Location:

branches/blt4_trunk

Files:

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

branches/blt4_trunk/gui/scripts/mapviewer.tcl

@@ -55 +55 @@
     public method disconnect {}
     public method download {option args}
+    public method placard {option args}
     public method get {args}
     public method isconnected {}
@@ -989 +990 @@
 
 # ----------------------------------------------------------------------
+# USAGE: placard enable <state> <layerName>
+# 
+# Clients use this method to enable/disable display of a feature placard
+# when a feature is clicked/selected.
+# ----------------------------------------------------------------------
+itcl::body Rappture::MapViewer::placard {option args} {
+    switch $option {
+        enable {
+            if {[llength $args] != 2} {
+                error "wrong $ args: should be \"enable <boolean> <layerName>\""
+            }
+            set state [lindex $args 0]
+            set layerName [lindex $args 1]
+            if {![info exists _layers($layerName)]} {
+                error "Unknown layer \"$layerName\""
+            }
+            if {![string is boolean $state]} {
+                error "argument to placard enable must be boolean"
+            }
+            SendCmd "placard enable $state $layerName"
+        }
+        default {
+            error "bad option \"$option\": should be enable"
+        }
+    }
+}
+
+# ----------------------------------------------------------------------
 # USAGE: download coming
 # USAGE: download controls <downloadCommand>