[PD-cvs] pd/src desire.tk,1.1.2.79,1.1.2.80

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
attempted to fix some stuff but getting a bit lost:/


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.79
retrieving revision 1.1.2.80
diff -C2 -d -r1.1.2.79 -r1.1.2.80
*** desire.tk	24 Sep 2005 02:04:16 -0000	1.1.2.79
--- desire.tk	24 Sep 2005 13:31:40 -0000	1.1.2.80
***************
*** 947,950 ****
--- 947,951 ----
  		#set @cx 40; catch {set @cx $_($canvas:current_x)}
  		#set @cy 40; catch {set @cy $_($canvas:current_y)}
+ 		if {[info exists focus(createdby)]} {
  		switch $focus(createdby) {
  		butt {
***************
*** 965,968 ****
--- 966,970 ----
  		}
  		}
+ 		}
  	}
  
***************
*** 1885,1888 ****
--- 1887,1898 ----
  			# hack
  			set canvas $_($x:canvas)
+ 			if {![info exists _($canvas:action)]} {
+ 			#puts "!!!!!! $canvas not initd !!!!!"
+ 			$canvas init
+ 			}
+ 			if {![info exists _($x:cx)]} {
+ 				set _($x:cx) [lindex $d 2]
+ 				set _($x:cy) [lindex $d 3]
+ 			}
  			$x init
  			set _($x:text) [lrange $d $i end]