[PD-cvs] pd/src desire.tk,1.1.2.371,1.1.2.372

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
undo on iem properties


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.371
retrieving revision 1.1.2.372
diff -C2 -d -r1.1.2.371 -r1.1.2.372
*** desire.tk	18 Aug 2006 07:51:49 -0000	1.1.2.371
--- desire.tk	18 Aug 2006 08:18:15 -0000	1.1.2.372
***************
*** 3210,3229 ****
  class_new IEMPropertiesDialog {PropertiesDialog}
  
  def IEMPropertiesDialog apply {} {
  	global fields classinfo
  	set class $_($@of:class)
! 	if {![info exists fields($class)]} {set class obj}
! 	set orig {}
! 	set props ".$@of reload"
! 	set props2 {}
          foreach var [lrange $fields($class) 5 end] {
! 	  lappend orig $_($@of:$var)
! 	  lappend props2 $@$var ;# does $@$ really work or not? if not, fix objective.tcl ...
! 	  set val $@$var
! 	  if {[regexp -nocase {^([a-z])col$} $var]} {set val [unparse_color $val]}
! 	  switch -- $val { {} {set val "empty"}}
! 	  set props "$props $val"
  	}
! 	pd $props
  }
  
--- 3210,3233 ----
  class_new IEMPropertiesDialog {PropertiesDialog}
  
+ def BlueBox properties_apply {args} {
+ 	global fields
+ 	set orig [list $self properties_apply]
+         foreach var [lrange $fields($@class) 5 end] {lappend orig $@$var}
+ 	[$@canvas history] add $orig
+ 	set tosend {}
+ 	foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v}
+ 	eval [concat [list pd .$self reload] $props]
+ }
+ 
  def IEMPropertiesDialog apply {} {
  	global fields classinfo
  	set class $_($@of:class)
! 	set props {}
          foreach var [lrange $fields($class) 5 end] {
! 		set v $@$var ;# does $@$ really work or not? if not, fix objective.tcl ...
! 		if {[regexp -nocase {^[bfl]col$} $var]} {set v [unparse_color $v]}
! 		lappend props $v
  	}
! 	eval [concat [list $@of properties_apply] $props]
  }