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: