Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28205
Modified Files: Tag: devel_0_39 desire.tk Log Message: IEMPropertiesDialog fix
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.362 retrieving revision 1.1.2.363 diff -C2 -d -r1.1.2.362 -r1.1.2.363 *** desire.tk 18 Aug 2006 00:37:24 -0000 1.1.2.362 --- desire.tk 18 Aug 2006 01:16:33 -0000 1.1.2.363 *************** *** 2182,2186 **** $id populate_menu $p {popup_properties popup_open popup_help} } ! tk_popup $p $x $y }
--- 2182,2186 ---- $id populate_menu $p {popup_properties popup_open popup_help} } ! tk_popup $p [expr $x-5] [expr $y-5] }
*************** *** 3206,3214 **** lappend orig $_($@of:$var) lappend props2 $@$var ;# does $@$ really work or not? if not, fix objective.tcl ... switch $var { ! is_log {set val [expr $@$var == "linear"]} ! isa {set val [expr $@$var == "yes" ]} ! steady {set val [expr $@$var == "jump" ]} ! fstyle {set val [expr $@$var == "yes" ]} default {set val $@$var} } --- 3206,3215 ---- lappend orig $_($@of:$var) lappend props2 $@$var ;# does $@$ really work or not? if not, fix objective.tcl ... + set v $@$var switch $var { ! is_log {set val [lsearch {linear logarithmic} $v]} ! isa {set val [lsearch {no yes} $v]} ! steady {set val [lsearch {steady jump} $v]} ! fstyle {set val [lsearch {no yes} $v]} default {set val $@$var} } *************** *** 3228,3236 **** if {![info exists fields($class)]} {set class obj} foreach var $fields($class) { switch $var { ! is_log {if {$_($of:$var)} {set val "linear"} else {set val "logarithmic"}} ! isa {if {$_($of:$var)} {set val "yes" } else {set val "no"}} ! steady {if {$_($of:$var)} {set val "jump" } else {set val "steady"}} ! fstyle {if {$_($of:$var)} {set val "yes" } else {set val "no"}} default {set val $_($of:$var)} } --- 3229,3238 ---- if {![info exists fields($class)]} {set class obj} foreach var $fields($class) { + set v $_($of:$var) switch $var { ! is_log {set val [say [lindex {linear logarithmic} $v]]} ! isa {set val [say [lindex {no yes} $v]]} ! steady {set val [say [lindex {steady jump} $v]]} ! fstyle {set val [say [lindex {no yes} $v]]} default {set val $_($of:$var)} } *************** *** 3257,3266 **** } isa { ! set options [list [say $prop] [say 1] [say 0]] set d [list $prop $options choice {}] } n {set d [list $prop [say $prop] integer {-width 4}]} steady { ! set options [list [say $prop] "jump" "steady"] set d [list $prop $options choice {}] } --- 3259,3268 ---- } isa { ! set options [list [say $prop] 1 0] set d [list $prop $options choice {}] } n {set d [list $prop [say $prop] integer {-width 4}]} steady { ! set options [list [say $prop] [say jump] [say steady]] set d [list $prop $options choice {}] }