- Timestamp:
- Mar 30, 2016, 10:40:46 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mapviewer.tcl
r6147 r6224 949 949 } 950 950 "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 } 952 971 } 953 972 default {
Note: See TracChangeset
for help on using the changeset viewer.