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] }