Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22566
Modified Files: Tag: impd_0_37 u_object.tk Log Message: once you drop, you can't stop
Index: u_object.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/u_object.tk,v retrieving revision 1.1.2.21 retrieving revision 1.1.2.22 diff -C2 -d -r1.1.2.21 -r1.1.2.22 *** u_object.tk 26 Apr 2004 11:37:43 -0000 1.1.2.21 --- u_object.tk 26 Apr 2004 14:21:15 -0000 1.1.2.22 *************** *** 810,815 ****
proc dropper_draw {self canvas} { ! global _ ! set isnew [expr [llength [$canvas gettags ${self}DROPr]] == 0] foreach {x1 y1} [object_xy $self $canvas] {} set x2 [expr $x1+10 ] --- 810,815 ----
proc dropper_draw {self canvas} { ! global _ ! set isnew [expr [llength [$canvas gettags ${self}BASE]] == 0] foreach {x1 y1} [object_xy $self $canvas] {} set x2 [expr $x1+10 ] *************** *** 819,826 **** set ins [expr [string compare $_($self:rcv) empty]==0] set outs [expr [string compare $_($self:snd) empty]==0] ! # io_draw $self $canvas $x1 $y1 24 24 $ins $outs ! bluebox_draw $self $canvas $x1 $y1 24 24 $ins $outs if {$isnew} { - $canvas create rectangle $x1 $y1 $x2 $y2 -tags ${self}DROPr -fill red canvas $canvas.${self}DROP -width 20 -height 20 -bg purple place $canvas.${self}DROP -x [expr $x1 + 10] -y $y1 --- 819,824 ---- set ins [expr [string compare $_($self:rcv) empty]==0] set outs [expr [string compare $_($self:snd) empty]==0] ! bluebox_draw $self $canvas $x1 $y1 32 24 $ins $outs if {$isnew} { canvas $canvas.${self}DROP -width 20 -height 20 -bg purple place $canvas.${self}DROP -x [expr $x1 + 10] -y $y1 *************** *** 828,832 **** } { place $canvas.${self}DROP -x [expr $x1 + 10] -y $y1 - $canvas coords ${self}DROPr $x1 $y1 $x2 $y2 } label_draw $self $canvas --- 826,829 ---- *************** *** 835,846 **** }
! proc dropper_select {self canvas flag} { ! global look ! if {$flag} {set colour #ff0000} {set colour $look(objectframe3)} ! $canvas itemconfigure ${self}DROPr -bg $colour }
proc dropper_erase {self canvas} { ! $canvas delete ${self}DROPr ! bluebox_erase $self $canvas } --- 832,841 ---- }
! proc dropper_select {self canvas v} { ! bluebox_select $self $canvas $v }
proc dropper_erase {self canvas} { ! bluebox_erase $self $canvas ! destroy $canvas.${self}DROP }