[PD-cvs] pd/src u_object.tk,1.1.2.26,1.1.2.27

[carmen rocco]

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
      }