Changeset 6061 for trunk/gui/scripts

Timestamp:

Feb 27, 2016, 1:53:04 PM (9 years ago)

Author:

ldelgass

Message:

add clearExtents method

File:

• trunk/gui/scripts/map.tcl (modified) (3 diffs)

trunk/gui/scripts/map.tcl

@@ -32 +32 @@
     public method addLayer { type name paramArray driver driverParamArray {stylesheet {}} {script {}} {selectors {}} }
     public method addViewpoint { name props }
+    public method clearExtents {}
     public method deleteLayer { layerName }
     public method deleteViewpoint { viewpointName }
@@ -92 +93 @@
         setType "projected"
         setProjection "global-mercator"
-        $_tree set root "extents" ""
+        clearExtents
         setStyle ""
         setCamera ""
@@ -457 +458 @@
 }
 
+itcl::body Rappture::Map::clearExtents {} {
+    $_tree set root "extents" ""
+}
+
 itcl::body Rappture::Map::setExtents { xmin ymin xmax ymax {srs "wgs84"} } {
     $_tree set root "extents" [list $xmin $ymin $xmax $ymax $srs]