Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6154
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed some little bugs i found
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.205 retrieving revision 1.1.2.206 diff -C2 -d -r1.1.2.205 -r1.1.2.206 *** desire.tk 16 May 2006 01:18:32 -0000 1.1.2.205 --- desire.tk 17 May 2006 11:06:55 -0000 1.1.2.206 *************** *** 1246,1250 **** -variable @editmode -onvalue 1 -offvalue 0 #binds the state of the checkbox to global variable editmod ! dict append @accels "Ctrl+e" "$self editmode 0" $m.edit configure -postcommand "$self fix_edit_menu" $m.window configure -postcommand "menu_fixwindowmenu" --- 1246,1250 ---- -variable @editmode -onvalue 1 -offvalue 0 #binds the state of the checkbox to global variable editmod ! dict append @accels "Ctrl+e" "$self editmodeswitch" $m.edit configure -postcommand "$self fix_edit_menu" $m.window configure -postcommand "menu_fixwindowmenu" *************** *** 2426,2433 **** --- 2426,2435 ---- obj {set i 4; set class [lindex $d 4]} } + puts "class is $class ---------------" #puts "canvas -------- $canvas(current)" if {![info exists _($x:_class)]} { # new object if {[info exists classinfo($class)]} { + puts "and here ------------------------" set _($x:_class) [lindex $classinfo($class) 0] } { *************** *** 2501,2504 **** --- 2503,2507 ---- # puts "!!!!!! args:$args" super + set @valid 0 set @w 15 set @xs $@w *************** *** 2880,2885 **** #-----------------------------------------------------------------------------------# class_new Bang {BlueBox} ! def Bang init {args} { super set @w 15 } --- 2883,2889 ---- #-----------------------------------------------------------------------------------# class_new Bang {BlueBox} ! def* Bang init {args} { super + set @valid 0 set @w 15 }