Changeset 4359

Timestamp:

May 21, 2014 1:50:27 AM (10 years ago)

Author:

ldelgass

Message:

Add client support for TMS driver

Location:

trunk/gui/scripts

Files:

• map.tcl (modified) (1 diff)
• mapviewer.tcl (modified) (1 diff)

trunk/gui/scripts/map.tcl

@@ -152 +152 @@
         }
         $_tree set $child "driver" "gdal"
+        set tms [$layers get $layer.tms.url]
+        if { $tms != "" } {
+            foreach key { url tmsType format } {
+                set value [$layers get $layer.wms.$key]
+                $_tree set $child "tms.$key" $value
+            }
+            $_tree set $child "driver" "tms"
+        }
         set wms [$layers get $layer.wms.url]
         if { $wms != "" } {

trunk/gui/scripts/mapviewer.tcl

@@ -1701 +1701 @@
                     "gdal" {
                         SendCmd [list map layer add image gdal \
+                                     $info(url) $layer]
+                    }
+                    "tms" {
+                        SendCmd [list map layer add image tms \
                                      $info(url) $layer]
                     }