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 }