[PD-cvs] pd/src desire.tk,1.1.2.114,1.1.2.115
chunlee
chunlee at users.sourceforge.net
Tue Nov 8 17:28:14 CET 2005
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17373
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.114
retrieving revision 1.1.2.115
diff -C2 -d -r1.1.2.114 -r1.1.2.115
*** desire.tk 8 Nov 2005 16:15:58 -0000 1.1.2.114
--- desire.tk 8 Nov 2005 16:28:12 -0000 1.1.2.115
***************
*** 1669,1672 ****
--- 1669,1687 ----
set selected_elements [lreplace $selected_elements $selrect_index $selrect_index]
puts "items:$selected_elements"
+ if {[llength $selected_elements]} {
+ set element_tags {}
+ foreach item $selected_elements {
+ eval lappend element_tags [$c gettags $item]
+ }
+ puts "tags:$element_tags"
+ set ids {}
+ foreach tag $element_tags {
+ if {[regexp {^x([a-f0-9]{6,8})} $tag id]} {lappend ids $id}
+ }
+ #puts "id:$ids"
+ set selected_objs [lsort -unique $ids]
+ #puts "selected_objs:$selected_objs"
+ #foreach obj $@selection {$c itemconfigure ${obj}BASE -outline $look(objectframe4)}
+ }
$c delete selrect
}
More information about the Pd-cvs
mailing list