[PD-cvs] pd/src u_object.tk,1.1.2.21,1.1.2.22

[carmen rocco]

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
  }