[PD-cvs] pd/src desire.tk,1.1.2.6,1.1.2.7

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
multiple wire fixed


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -d -r1.1.2.6 -r1.1.2.7
*** desire.tk	19 Aug 2005 07:22:05 -0000	1.1.2.6
--- desire.tk	21 Aug 2005 02:19:49 -0000	1.1.2.7
***************
*** 29,32 ****
--- 29,33 ----
  set canvas .x80f2b50
  set offset 0
+ set offset_wire 0 
  
  set font(size) 12
***************
*** 1600,1604 ****
      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]
--- 1601,1605 ----
      puts "pdtk_canvas_mouseup2::: $name $x $y $b"
  
!     global pdtk_canvas_mouseup wire_from wire_to _ font look offset_wire
      set canvas $name
      set cx [$name canvasx $x]
***************
*** 1616,1626 ****
  		lappend d 0 
  		
  		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;
--- 1617,1630 ----
  		lappend d 0 
  		
+ 		#my wire code
  		puts "d = $d"
  		
  		#tmp only, generates id for wires
  		
! 		set wire_id [format %x [expr 0x80f8ea8 - $offset_wire]];
  		set wire_id l$wire_id
  		
+ 		set offset_wire [expr $offset_wire + 1]
+ 		
  		wire_update $wire_id $d;
  		wire_draw2 $wire_id $name;
***************
*** 1641,1644 ****
--- 1645,1649 ----
  		puts "::::connect from $wire_from to $wire_to"
  		#::::connect from 81168af 2 to 81168ae 0
+ 		#my wire code
  	}