Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31227
Modified Files: Tag: impd_0_37 u_object.tk Log Message: scrolling fix
Index: u_object.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/u_object.tk,v retrieving revision 1.1.2.26 retrieving revision 1.1.2.27 diff -C2 -d -r1.1.2.26 -r1.1.2.27 *** u_object.tk 27 Apr 2004 18:09:35 -0000 1.1.2.26 --- u_object.tk 30 Apr 2004 23:04:30 -0000 1.1.2.27 *************** *** 819,829 **** set ins [expr [string compare $_($self:rcv) empty]==0] set outs [expr [string compare $_($self:snd) empty]==0] ! bluebox_draw $self $canvas $x1 $y1 $xs $xs $ins $outs if {$isnew} { canvas $canvas.${self}DROP -width $xs -height $xs -bg $colour -highlightbackground $lcolour -highlightcolor $colour ! place $canvas.${self}DROP -x [expr $x1 + 10] -y $y1 dnd bindtarget $canvas.${self}DROP text/uri-list <Drop> "pd "d[list ${self}] symbol [ pdtk_enquote %D ] ;"" } { ! place $canvas.${self}DROP -x [expr $x1 + 10] -y $y1 $canvas.${self}DROP configure -width $xs -height $xs -bg $colour -highlightbackground $lcolour -highlightcolor $colour } --- 819,829 ---- set ins [expr [string compare $_($self:rcv) empty]==0] set outs [expr [string compare $_($self:snd) empty]==0] ! bluebox_draw $self $canvas $x1 $y1 [expr $xs + 1] [expr $xs + 1] $ins $outs if {$isnew} { canvas $canvas.${self}DROP -width $xs -height $xs -bg $colour -highlightbackground $lcolour -highlightcolor $colour ! $canvas create window [expr $x1 + 7] [expr $y1 - 2] -window $canvas.${self}DROP -anchor nw -tags $canvas.${self}window dnd bindtarget $canvas.${self}DROP text/uri-list <Drop> "pd "d[list ${self}] symbol [ pdtk_enquote %D ] ;"" } { ! $canvas coords $canvas.${self}window [expr $x1 + 7] [expr $y1 - 2] $canvas.${self}DROP configure -width $xs -height $xs -bg $colour -highlightbackground $lcolour -highlightcolor $colour }