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

Timestamp:

Nov 6, 2015 1:22:59 AM (9 years ago)

Author:

ldelgass

Message:

Add extra ogr fields, extent srs

File:

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

trunk/gui/scripts/map.tcl

@@ -43 +43 @@
     public method setAttribution { attribution }
     public method setCamera { camera }
-    public method setExtents { xmin ymin xmax ymax }
+    public method setExtents { xmin ymin xmax ymax {srs "wgs84"} }
     public method setLabel { label }
     public method setProjection { projection }
@@ -253 +253 @@
                 # FIXME: Add test for valid file path
                 $_tree set $child "ogr.url" $file
+            }
+            foreach key { connection geometry geometry_url layer ogr_driver build_spatial_index } {
+                set value [$layers get $layer.ogr.$key]
+                if { $value != "" } {
+                    $_tree set $child "ogr.$key" $value
+                }
             }
             $_tree set $child "driver" "ogr"
@@ -425 +431 @@
 }
 
-itcl::body Rappture::Map::setExtents { xmin ymin xmax ymax } {
-    $_tree set root "extents" "$xmin $ymin $xmax $ymax"
+itcl::body Rappture::Map::setExtents { xmin ymin xmax ymax {srs "wgs84"} } {
+    $_tree set root "extents" [list $xmin $ymin $xmax $ymax $srs]
 }