Changeset 6224


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/mapviewer.tcl

    r6147 r6224  
    949949        }
    950950        "feature" {
    951             SendCmd "select feature $args"
     951            set op [lindex $args 0]
     952            set layer [lindex $args end]
     953            if {![info exists _layers($layer)]} {
     954                puts stderr "Unknown layer \"$layer\""
     955                return
     956            }
     957            switch $op {
     958                "add" {
     959                    SendCmd "select fadd [lrange $args 1 end]"
     960                }
     961                "delete" {
     962                    SendCmd "select fdelete [lrange $args 1 end]"
     963                }
     964                "set" {
     965                    SendCmd "select feature [lrange $args 1 end]"
     966                }
     967                default {
     968                    puts stderr "Unknown select feature op \"$op\""
     969                }
     970            }
    952971        }
    953972        default {
Note: See TracChangeset for help on using the changeset viewer.