Changeset 5962

Timestamp:

Jan 19, 2016, 12:05:30 PM (9 years ago)

Author:

ldelgass

Message:

add deleteViewpoint method

File:

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

trunk/gui/scripts/map.tcl

@@ -33 +33 @@
     public method addViewpoint { name props }
     public method deleteLayer { layerName }
+    public method deleteViewpoint { viewpointName }
     public method earthfile {}
     public method hasLayer { layerName }
@@ -768 +769 @@
 }
 
+itcl::body Rappture::Map::deleteViewpoint { viewopintName } {
+    set id [$_tree findchild root->"viewpoints" $viewpointName]
+    if { $id < 0 } {
+        error "unknown viewpoint \"$viewpointName\""
+    }
+    $_tree delete $id
+}
+
 # ----------------------------------------------------------------------
 # USAGE: type <layerName>