[PD-cvs] pd/src desire.tk,1.1.2.25,1.1.2.26

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
quick commit for $id:class fix so that the bang will bang


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.25
retrieving revision 1.1.2.26
diff -C2 -d -r1.1.2.25 -r1.1.2.26
*** desire.tk	5 Sep 2005 05:57:43 -0000	1.1.2.25
--- desire.tk	5 Sep 2005 10:05:21 -0000	1.1.2.26
***************
*** 1541,1544 ****
--- 1541,1545 ----
  
  set object_id [format %x [expr 0x81168b0 - $offset]]
+ set _($object_id:class) textobj
  
  puts "new object id -> $object_id"
***************
*** 2126,2129 ****
--- 2127,2141 ----
  	   # my click select object code begins --chun
  	   
+ 	   switch $_($id:class) {
+ 	   
+ 	   	bang {
+ 		
+ 		puts "clicked on bang"
+ 		
+ 		bang_bang $id $canvas
+ 		
+ 		}
+ 		textobj {
+ 	   
  	   	# may need to call canvas_select_object here to work out 
  	   	# the shfit+click selection
***************
*** 2169,2185 ****
      		set _($self:select_by) "click"
      	
!     		#set _($self:edit_object) $id
      	
!     		#turns the selected object into edit mode
!     		#if {[llength $_($self:selection)] == 1} {
!     		#
!     		#		if {$_($self:obj_in_edit) == 0} {
!     		#		set _($self:obj_in_edit) 1
!     		#		object_edit [lindex $_($self:selection) 0] $canvas
!     		#		}
!     		#
!     		#}
! 		
  		
  	   # my click select object code ends
  		
--- 2181,2189 ----
      		set _($self:select_by) "click"
      	
! 		}    		
      	
!     		
  		
+ 	   }
  	   # my click select object code ends
  		
***************
*** 2892,2895 ****
--- 2896,2900 ----
  set fields1 {foo bar x1 y1 class}
  set fields2 {snd rcv lab ldx ldy fstyle fs bcol fcol lcol}
+ puts "fields1 = $fields1"
  
  # real classes
***************
*** 3446,3449 ****
--- 3451,3455 ----
  set _($bang_id:snd) 1
  set _($bang_id:bcol) 20
+ set _($bang_id:fcol) 5
  set _($bang_id:ldx) 17
  set _($bang_id:ldy) 0
***************
*** 3452,3455 ****
--- 3458,3462 ----
  set _($bang_id:fs) 10
  set _($bang_id:lcol) 13
+ set _($bang_id:class) bang
  
  
***************
*** 3495,3499 ****
  def bang bang {canvas} {
  	$canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:fcol)]]
! 	after 300 [list $canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:bcol)]]]
  }
  
--- 3502,3506 ----
  def bang bang {canvas} {
  	$canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:fcol)]]
! 	after 100 [list $canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:bcol)]]]
  }