Changeset 5911 for trunk/gui/scripts/map.tcl

Timestamp:

Oct 13, 2015 12:02:43 PM (9 years ago)

Author:

ldelgass

Message:

fix viewpoints

File:

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

trunk/gui/scripts/map.tcl

@@ -86 +86 @@
     if {$args == ""} {
         set _tree [blt::tree create]
-        set parent [$_tree insert root -label "layers"]
         setLabel "Map"
         setType "projected"
@@ -93 +92 @@
         setStyle ""
         setCamera ""
+        $_tree insert root -label "layers"
+        $_tree insert root -label "viewpoints"
         set _isValid 1
     } else {
@@ -512 +513 @@
 itcl::body Rappture::Map::addViewpoint { name props } {
     set nodeid "viewpoint[incr _nextViewpoint]"
+    set parent [$_tree findchild root "viewpoints"]
     set child [$_tree insert $parent -label $nodeid]
     $_tree set $child "name" $name