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]