Changeset 6101 for trunk/gui/scripts/mapviewer.tcl

Timestamp:

Mar 3, 2016, 10:18:29 PM (9 years ago)

Author:

ldelgass

Message:

map camera zoom layer

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -2239 +2239 @@
         }
         "zoom" {
-            if {[llength $args] < 3} {
+            if {[llength $args] < 1} {
                 error "wrong # of args to camera zoom"
             }
@@ -2260 +2260 @@
                     }
                     SendCmd "camera extent $xmin $ymin $xmax $ymax $duration $srs"
+                }
+                "layer" {
+                    if {[llength $args] < 3} {
+                        error "wrong # of args to camera zoom layer"
+                    }
+                    foreach {dataobj layer duration} [lrange $args 1 end] break
+                    set tag $layer
+                    if {![$dataobj layer $layer shared]} {
+                        set tag $dataobj-$layer
+                    }
+                    if {![info exists _layers($tag)]} {
+                        error "Unknown layer $layer"
+                    }
+                    if {$duration == ""} {
+                        set duration 0.0
+                    } elseif {![string is double $duration]} {
+                        error "Invalid duration \"$duration\", should be a double"
+                    }
+                    SendCmd "camera lextent $tag $duration"
                 }
                 default {