Changeset 6224

Timestamp:

Mar 30, 2016, 10:40:46 AM (8 years ago)

Author:

ldelgass

Message:

Add client support for feature selection set add/delete/set.

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -949 +949 @@
         }
         "feature" {
-            SendCmd "select feature $args"
+            set op [lindex $args 0]
+            set layer [lindex $args end]
+            if {![info exists _layers($layer)]} {
+                puts stderr "Unknown layer \"$layer\""
+                return
+            }
+            switch $op {
+                "add" {
+                    SendCmd "select fadd [lrange $args 1 end]"
+                }
+                "delete" {
+                    SendCmd "select fdelete [lrange $args 1 end]"
+                }
+                "set" {
+                    SendCmd "select feature [lrange $args 1 end]"
+                }
+                default {
+                    puts stderr "Unknown select feature op \"$op\""
+                }
+            }
         }
         default {