[PD-cvs] pd/src desire.tk,1.1.2.205,1.1.2.206

[chunlee]

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
  }