pd/src desire.tk,1.1.2.114,1.1.2.115 - Pd-cvs

8 Nov 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
        }