[PD-cvs] pd/src u_object.tk,1.1.2.42,1.1.2.43

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17789

Modified Files:
      Tag: impd_0_37
	u_object.tk 
Log Message:
ditto


Index: u_object.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/u_object.tk,v
retrieving revision 1.1.2.42
retrieving revision 1.1.2.43
diff -C2 -d -r1.1.2.42 -r1.1.2.43
*** u_object.tk	12 May 2004 09:58:12 -0000	1.1.2.42
--- u_object.tk	12 May 2004 10:00:27 -0000	1.1.2.43
***************
*** 511,517 ****
  	foreach {x1 y1} [object_xy $self $canvas] {}
  }
! proc comment_select {self canvas flag} {
! 	canvas_select_object $canvas $self $flag
! }
  proc comment_erase {self canvas} {}
  
--- 511,515 ----
  	foreach {x1 y1} [object_xy $self $canvas] {}
  }
! 
  proc comment_erase {self canvas} {}
  
***************
*** 593,600 ****
  }
  
- proc radio_select {self canvas v} {
- 	bluebox_select $self $canvas $v
- }
- 
  proc radio_erase {self canvas} {
  	bluebox_erase $self $canvas
--- 591,594 ----
***************
*** 688,695 ****
  }
  
- proc slider_select {self canvas v} {
- 	bluebox_select $self $canvas $v
- }
- 
  proc slider_erase {self canvas} {
  	bluebox_erase $self $canvas
--- 682,685 ----
***************
*** 756,760 ****
  }
  
- proc label_select {self canvas} {}
  proc label_erase {self canvas} {
  	$canvas delete ${self}LABEL
--- 746,749 ----
***************
*** 786,793 ****
  }
  
- proc bang_select {self canvas v} {
- 	bluebox_select $self $canvas $v
- }
- 
  proc bang_erase {self canvas} {
  	bluebox_erase $self $canvas
--- 775,778 ----
***************
*** 846,852 ****
  }
  
- proc toggle_select {self canvas v} {
- 	bluebox_select $self $canvas $v
- }
  
  proc toggle_erase {self canvas} {
--- 831,834 ----
***************
*** 950,957 ****
  }
  
- proc vu_select {self canvas v} {
- 	bluebox_select $self $canvas $v
- }
- 
  proc vu_erase {self canvas} {
  	bluebox_erase $self $canvas
--- 932,935 ----
***************
*** 986,993 ****
  }
  
- proc dropper_select {self canvas v} {
- 	bluebox_select $self $canvas $v
- }
- 
  proc dropper_erase {self canvas} {
  	bluebox_erase $self $canvas
--- 964,967 ----
***************
*** 1011,1018 ****
  }
  
- proc cnv_select {self canvas v} {
- 	bluebox_select $self $canvas $v
- }
- 
  proc cnv_erase {self canvas} {
  	label_erase $self $canvas
--- 985,988 ----