[PD-cvs] pd/src desire.tk,1.1.2.205,1.1.2.206
chunlee
chunlee at users.sourceforge.net
Wed May 17 13:06:58 CEST 2006
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
}
More information about the Pd-cvs
mailing list