Changeset 4291 for trunk/gui

Timestamp:

Mar 28, 2014 5:48:04 PM (10 years ago)

Author:

ldelgass

Message:

Store map.style for global map view settings (wireframe, lighting, etc.). Fix
method doc comments

File:

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

trunk/gui/scripts/map.tcl

@@ -53 +53 @@
     public method isGeocentric {} 
     public method layers {}
-    public method layer { name }
+    public method layer { layerName }
     public method hints { args }
     public method isvalid {} {
         return $_isValid;
     }
-    public method type { name } {
-        set id [$_tree findchild root->"layers" $name]
-        if { $id < 0 } {
-            error "unknown layer \"$name\""
-        }
-        return [$_tree get $id "type" ""]
-    }
+    public method type { layerName }
 }
 
@@ -139 +133 @@
     }
     $_tree set root "label"       [$map get "about.label"]
-
+    $_tree set root "style"       [$map get "style"]
+ 
     set projection [$map get "projection"]
     set extents    [$map get "extents"]
@@ -179 +174 @@
 # USAGE: layers
 #
-# Returns the list of settings for each marker on the x-axis.
-# If no markers have been specified the empty string is returned.
+# Returns a list of labels for the layers in the map
 # ----------------------------------------------------------------------
 itcl::body Rappture::Map::layers {} {
@@ -191 +185 @@
 
 # ----------------------------------------------------------------------
-# USAGE: layer
-#
-# Returns the list of settings for each marker on the y-axis.
-# If no markers have been specified the empty string is returned.
+# USAGE: layer <layerName>
+#
+# Returns an array of settings for the named layer
 # ----------------------------------------------------------------------
 itcl::body Rappture::Map::layer { layerName } {
@@ -204 +197 @@
 }
 
-# ---------------------------------------------------------------------- 
+# ----------------------------------------------------------------------
+# USAGE: type <layerName>
+#
+# Returns the type of the named layer
+# ----------------------------------------------------------------------
+itcl::body Rappture::Map::type { layerName } {
+    set id [$_tree findchild root->"layers" $layerName]
+    if { $id < 0 } {
+        error "unknown layer \"$layerName\""
+    }
+    return [$_tree get $id "type" ""]
+}
+
+# ----------------------------------------------------------------------
+# USAGE: isGeocentric
+#
 # Returns if the map is geocentric (1) or projected (0) 
 # ----------------------------------------------------------------------