pd/src desire.tk,1.1.2.10,1.1.2.11 - Pd-cvs

23 Aug 2005

      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11891
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
use _($self:selection) to figure out _($self:selection_wire) isntead of 
using regexp
next: update wires after resizing obj
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.10
retrieving revision 1.1.2.11
diff -C2 -d -r1.1.2.10 -r1.1.2.11
*** desire.tk	21 Aug 2005 18:57:08 -0000	1.1.2.10
--- desire.tk	23 Aug 2005 03:49:29 -0000	1.1.2.11
***************
*** 1531,1534 ****
--- 1531,1535 ----
    	puts "self:selection --> $_($self:selection)"

+ 		
    	foreach obj $_($self:selection) {
      		puts "${obj}BASE :: $canvas"
***************
*** 1807,1814 ****
    # if {[regexp {^l([a-f0-9]{6,8})} [$canvas gettags $tag] id]}

! 			if {[regexp {^l([a-f0-9]{6,8})} $tag wire_id]} {
!     				
! 				lappend wires $wire_id
! 			}
      		}

--- 1808,1816 ----
    # if {[regexp {^l([a-f0-9]{6,8})} [$canvas gettags $tag] id]}

! 			
! 			#if {[regexp {^l([a-f0-9]{6,8})} $tag wire_id]} {
!     			#	
! 			#	lappend wires $wire_id
! 			#}
      		}

***************
*** 1824,1837 ****
      		}

! 		foreach wire $wires {
!     			set i [lsearch $_($self:selection_wire) $wire]
!     			if {$i<0} {lappend _($self:selection_wire) $wire} 
!     		}

! 		#set _($self:selection_wire) $wires

-     		puts "self:selection --> $_($self:selection)"
- 		puts "self:wire_selection --> $_($self:selection_wire)"

      		foreach obj $_($self:selection) {
      			#puts "${obj}BASE :: $canvas"
--- 1826,1917 ----
      		}

! 		#foreach wire $wires {
!     		#	set i [lsearch $_($self:selection_wire) $wire]
!     		#	if {$i<0} {lappend _($self:selection_wire) $wire} 
!     		#}

! 		set _($self:selection_wire) $wires
!     		

+ 		#crap
+ 		#
+ 		#set inlet_flag 0
+ 		#set outlet_flag 1
+ 		#
+ 		#foreach obj $_($self:selection) {
+ 		#
+ 		#	foreach port $_($obj:inlets) {
+ 	        #  
+ 		#	if {[info exists _($from:$outlet_flag:$outlet_number)]}
+ 		#	
+ 		#	}
+ 		#
+ 		#
+ 		#}
+ 		
+ 		#----handles the wire----
+ 		
+ 		#set _($self:inlets)  $ins
+     		#set _($self:outlets) $outs
+ 			
+ 		foreach obj $_($self:selection) {
+ 		
+ 			for {set x 0} {$x<$_($obj:inlets)} {incr x} {
+ 		
+ 				#if {[info exists]}
+ 				puts "check -> $obj"
+ 				if {[info exists _($obj:0:$x)]} {
+ 			
+ 					puts "wires at inlet $x to select --> $_($obj:0:$x)"
+ 					#wire_update $_()
+ 					#wire_update:: l80f8ea8 81168ae 1 81168af 0 0
+ 				
+ 					
+ 				
+ 					foreach wire_id $_($obj:0:$x) {
+ 				
+ 						#wire_update $wire_id $_($wire_id) 
+ 						#wire_draw2 $wire_id $canvas
+ 						
+ 					
+     						set i [lsearch $_($self:selection_wire) $wire_id]
+     						if {$i<0} {lappend _($self:selection_wire) $wire_id} 
+     						
+ 					}
+ 				
+ 			
+ 					}
+ 		
+ 			}
+ 		
+ 		
+ 			for {set x 0} {$x<$_($obj:outlets)} {incr x} {
+ 		
+ 				if {[info exists _($obj:1:$x)]} {
+ 			
+ 					puts "wires at outlet $x to update --> $_($obj:1:$x)"
+ 				
+ 					foreach wire_id $_($obj:1:$x) {
+ 				
+ 					#wire_update $wire_id $_($wire_id) 
+ 					#wire_draw2 $wire_id $canvas
+ 					
+ 					
+     					set i [lsearch $_($self:selection_wire) $wire_id]
+     					if {$i<0} {lappend _($self:selection_wire) $wire_id} 
+     						
+ 					
+ 					}
+ 			
+ 				}	
+ 		
+ 			}
+ 		
+ 		}
+ 		
+ 		puts "self:selection --> $_($self:selection)"
+ 		puts "self:wire_selection --> $_($self:selection_wire)"
+ 		
      		foreach obj $_($self:selection) {
      			#puts "${obj}BASE :: $canvas"