[PD-cvs] pd/src desire.tk,1.1.2.11,1.1.2.12

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15284

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
resize obj will update wires


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.11
retrieving revision 1.1.2.12
diff -C2 -d -r1.1.2.11 -r1.1.2.12
*** desire.tk	23 Aug 2005 03:49:29 -0000	1.1.2.11
--- desire.tk	23 Aug 2005 09:54:08 -0000	1.1.2.12
***************
*** 992,995 ****
--- 992,1051 ----
  	[expr ($_($self:name_len)*$font(width)) + $font(padx)] \
  		[expr $font(height) + $font(pady)] 1 3
+ 		
+ 	#wire_update $wire_id $_($wire_id) 
+ 	#wire_draw2 $wire_id $canvas
+ 	
+ 	
+ 	for {set x 0} {$x<$_($self:inlets)} {incr x} {
+ 		
+ 				#if {[info exists]}
+ 				puts "check -> $self"
+ 				if {[info exists _($self:0:$x)]} {
+ 			
+ 					puts "wires at inlet $x to select --> $_($self:0:$x)"
+ 					#wire_update $_()
+ 					#wire_update:: l80f8ea8 81168ae 1 81168af 0 0
+ 				
+ 					
+ 				
+ 					foreach wire_id $_($self: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<$_($self:outlets)} {incr x} {
+ 		
+ 				if {[info exists _($self:1:$x)]} {
+ 			
+ 					puts "wires at outlet $x to update --> $_($self:1:$x)"
+ 				
+ 					foreach wire_id $_($self: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} 
+     						
+ 					
+ 					}
+ 			
+ 				}	
+ 		
+ 			}
+ 	
  	
  	#pdtk_text_new \
***************
*** 1002,1005 ****
--- 1058,1063 ----
  	#puts "destroy check = [winfo exists ${canvas}.${self}text]"
  	
+ 	
+ 	
  }
  #-----------------------------------------------------------------------------------#