Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5462
Modified Files: Tag: devel_0_39 desire.tk Log Message: wire updates now
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.129 retrieving revision 1.1.2.130 diff -C2 -d -r1.1.2.129 -r1.1.2.130 *** desire.tk 26 Nov 2005 19:17:28 -0000 1.1.2.129 --- desire.tk 1 Dec 2005 16:56:44 -0000 1.1.2.130 *************** *** 1925,1929 ****
def* box init {args} { ! super }
--- 1925,1931 ----
def* box init {args} { ! super ! set @wires {} ! }
*************** *** 1945,1960 **** }
! def box draw_wires {} { ! for {set x 0} {$x<$@ninlets} {incr x} { ! set v $self:i:$x ! if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! } ! for {set x 0} {$x<$@noutlets} {incr x} { ! set v $self:o:$x ! if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! } }
! def box move {dx dy} { super $dx $dy $self draw_wires --- 1947,1969 ---- }
! def* box draw_wires {} { ! ! puts "wires:$@wires" ! ! foreach wire $@wires { ! $wire draw ! } ! ! # for {set x 0} {$x<$@ninlets} {incr x} { ! # set v $self:i:$x ! # if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! # } ! # for {set x 0} {$x<$@noutlets} {incr x} { ! # set v $self:o:$x ! # if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! # } }
! def* box move {dx dy} { super $dx $dy $self draw_wires *************** *** 2011,2014 **** --- 2020,2028 ---- set @port1 $outno set @port2 $inno + set @canvas $canvas + #set _($@obj1:wires) [list $from $outno $to $inno] + #set _($@obj2:wires) [list $from $outno $to $inno] + set _($@obj1:wires) $self + set _($@obj2:wires) $self #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" # no time to carry on for now...... *************** *** 2032,2037 **** if {$arrowsize < 5} {set arrow none} {set arrow last} set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] ! $self item "" line $xys -width $thick -smooth yes \ -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) }
--- 2046,2062 ---- if {$arrowsize < 5} {set arrow none} {set arrow last} set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] ! $self item WIRE line $xys -width $thick -smooth yes \ -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) + + #puts ".......tags: [.$@canvas.c gettags $self]" + #if {[llength [.$@canvas.c gettags $self]] != 0} { + #$canvas coords $self $xys + #$canvas itemconfigure -arrow $arrow -arrowshape $arrowshape + #} { + #$canvas create line $xys -tags $self -width $thick \ + # -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) + # $self item WIRE line $xys -width $thick -smooth yes \ + # -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) + #} }