Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9558
Modified Files: Tag: desiredata desire.tk Log Message: iempropertiesdialog apply works again
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.43 retrieving revision 1.1.2.600.2.44 diff -C2 -d -r1.1.2.600.2.43 -r1.1.2.600.2.44 *** desire.tk 8 Dec 2006 09:35:30 -0000 1.1.2.600.2.43 --- desire.tk 8 Dec 2006 15:10:14 -0000 1.1.2.600.2.44 *************** *** 4581,4591 **** }]] $self add .$self $d ! set textvar ${prop}2 if {$prop == "steady" || $prop == "is_log" || $prop == "isa" || $prop == "fstyle"} { ! set @$textvar [say [lindex [lindex $d end] $@$prop]] } } }
class_new CanvasPropertiesDialog {PropertiesDialog}
--- 4581,4602 ---- }]] $self add .$self $d ! set textvar ${prop}2; # used as textvariable ! set textops ${prop}list; # store the options for later if {$prop == "steady" || $prop == "is_log" || $prop == "isa" || $prop == "fstyle"} { ! set @$textops [lindex $d end] ! set @$textvar [say [lindex $@$textops $@$prop]] } } }
+ def IEMPropertiesDialog dropmenu_open {f name part} {super $f} + def IEMPropertiesDialog dropmenu_set {frame var part val} { + set tmp ${var}list + set textvar ${var}2 + set @$textvar [say [lindex $@$tmp $val]] + set @$var $val + $self do_auto_apply + } + class_new CanvasPropertiesDialog {PropertiesDialog}
*************** *** 6122,6126 **** foreach part $choices { $f.menu add command -label [say $part] \ ! -command [list $self dropmenu_set $f $name $part $i 1] incr i } --- 6133,6137 ---- foreach part $choices { $f.menu add command -label [say $part] \ ! -command [list $self dropmenu_set $f $name $part $i] incr i } *************** *** 6259,6263 **** foreach part $@$trim_name { $f.menu add command -label $part \ ! -command [list $self dropmenu_set $f $name $part $i 0] incr i } --- 6270,6274 ---- foreach part $@$trim_name { $f.menu add command -label $part \ ! -command [list $self dropmenu_set $f $name $part $i] incr i } *************** *** 6573,6579 **** }
! def Dialog dropmenu_set {frame var part val say} { ! if {$say} {set text [say $part]} else {set text $part} ! #$frame.butt configure -text $text set @$var $val } --- 6584,6589 ---- }
! def Dialog dropmenu_set {frame var part val} { ! #if {$say} {set text [say $part]} else {set text $part} set @$var $val } *************** *** 6709,6713 **** set audio_props [$self audio_properties=?] #pd pd audio-dialog $audio_props ! netsend [list "pd" "sudio-dialog" $audio_props] }
--- 6719,6723 ---- set audio_props [$self audio_properties=?] #pd pd audio-dialog $audio_props ! netsend [list "pd" "audio-dialog" $audio_props] }
*************** *** 6900,6904 **** }
! def ServerPrefsDialog dropmenu_set {frame var part val say} { global pd_apilist pd_apilist2 _ set trim_part [string trimleft $part "-"] --- 6910,6914 ---- }
! def ServerPrefsDialog dropmenu_set {frame var part val} { global pd_apilist pd_apilist2 _ set trim_part [string trimleft $part "-"] *************** *** 6907,6912 **** foreach api $pd_apilist { if {$trim_part == [string tolower [lindex $api 0]]} { ! pd pd audio-setapi [lindex $api 1] ! after 1 pd pd audio-properties } } --- 6917,6922 ---- foreach api $pd_apilist { if {$trim_part == [string tolower [lindex $api 0]]} { ! netsend [list pd audio-setapi [lindex $api 1]] ! after 1 [netsend [list pd audio-properties]] } } *************** *** 6914,6918 **** set _($self:${trim_var}0) $part } ! super $frame $var $part $val $say } #used by choice and devlist --- 6924,6928 ---- set _($self:${trim_var}0) $part } ! super $frame $var $part $val } #used by choice and devlist *************** *** 6925,6929 **** $m delete 0 end foreach part $@$trim_name { ! $m add command -label $part -command [list $self dropmenu_set $f $name $part $i 0] incr i } --- 6935,6939 ---- $m delete 0 end foreach part $@$trim_name { ! $m add command -label $part -command [list $self dropmenu_set $f $name $part $i] incr i } *************** *** 6932,6937 **** }
- def IEMPropertiesDialog dropmenu_open {f name part} {super $f} - #################### ClientPrefsDialog set ddrc_options { --- 6942,6945 ----