[PD-cvs] pd/src desire.tk,1.1.2.4,1.1.2.5

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
multiple wires


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -C2 -d -r1.1.2.4 -r1.1.2.5
*** desire.tk	1 Aug 2005 08:18:20 -0000	1.1.2.4
--- desire.tk	18 Aug 2005 21:47:40 -0000	1.1.2.5
***************
*** 1396,1400 ****
      foreach {type id} [identify_target $canvas $cx $cy $b $f "click"] {}
      
!     #puts "click on => $type:$id"
      
      switch $type {
--- 1396,1400 ----
      foreach {type id} [identify_target $canvas $cx $cy $b $f "click"] {}
      
!     puts "click on => $type:$id"
      
      switch $type {
***************
*** 1586,1590 ****
      puts "pdtk_canvas_mouseup2::: $name $x $y $b"
  
!     global pdtk_canvas_mouseup wire_from wire_to _ font look
      set canvas $name
      set cx [$name canvasx $x]
--- 1586,1590 ----
      puts "pdtk_canvas_mouseup2::: $name $x $y $b"
  
!     global pdtk_canvas_mouseup wire_from wire_to _ font look offset
      set canvas $name
      set cx [$name canvasx $x]
***************
*** 1604,1610 ****
  		puts "d = $d"
  		
! 		#tmp only
! 		wire_update 18136070 $d 
! 		wire_draw2 18136070 $name;
  		
  		#trace: 
--- 1604,1619 ----
  		puts "d = $d"
  		
! 		#tmp only, generates id for wires
! 		
! 		set wire_id [format %x [expr 0x80f8ea8 - $offset]];
! 		set wire_id l$wire_id
! 		
! 		wire_update $wire_id $d;
! 		wire_draw2 $wire_id $name;
! 		
! 		#wire_update l80f8ea8 $d;
! 		#wire_draw2 l80f8ea8 $name;
! 		#wire_update 18136070 $d 
! 		#wire_draw2 18136070 $name;
  		
  		#trace: