Changeset 4355 for trunk/gui/scripts/mapviewer.tcl

Timestamp:

May 16, 2014, 8:48:16 AM (10 years ago)

Author:

gah

Message:

add xyz|wms types to layer

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (1 diff)

trunk/gui/scripts/mapviewer.tcl

@@ -1698 +1698 @@
             }
             if {!$_sendEarthFile} {
-                SendCmd [list map layer add image gdal $info(url) $layer]
+                switch -- $info(driver)  {
+                    "gdal" {
+                        SendCmd [list map layer add image gdal \
+                                     $info(url) $layer]
+                    }
+                    "wms" {
+                        SendCmd [list map layer add image wms \
+                                     $info(wms.url) \
+                                     $info(wms.layers) \
+                                     $info(wms.format) \
+                                     $info(wms.transparent) \
+                                     $layer]
+                    }
+                    "xyz" {
+                        SendCmd [list map layer add image xyz \
+                                     $info(xyz.url) \
+                                     $layer]
+                    }
+                }                        
             }
             SendCmd "map layer opacity $settings(-opacity) $layer"