Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9542
Modified Files: Tag: impd_0_37 u_main.tk Log Message: file encoder for dialog
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.31 retrieving revision 1.1.1.4.2.7.4.32 diff -C2 -d -r1.1.1.4.2.7.4.31 -r1.1.1.4.2.7.4.32 *** u_main.tk 3 Apr 2004 13:17:15 -0000 1.1.1.4.2.7.4.31 --- u_main.tk 3 Apr 2004 14:24:12 -0000 1.1.1.4.2.7.4.32 *************** *** 2296,2300 **** proc pdrc_editor_ok {self} {pdrc_editor_apply $self; pdrc_editor_cancel $self} proc pdrc_editor_cancel {self} {destroy $self} ! proc pdrc_editor_apply {self} {error "Come Back Next Month Or So"}
proc notebook_select {self i} { --- 2296,2303 ---- proc pdrc_editor_ok {self} {pdrc_editor_apply $self; pdrc_editor_cancel $self} proc pdrc_editor_cancel {self} {destroy $self} ! proc pdrc_editor_apply {self} { ! set self [string trimleft $self .] ! pdrc_write $self ! }
proc notebook_select {self i} { *************** *** 2340,2344 ****
proc pdrc_write {self} { ! }
--- 2343,2360 ----
proc pdrc_write {self} { ! global pdrc_options pdrc_options_h _ cmdline ! #set fd [open $cmdline($rcfilename) w] ! set fd stderr ! foreach {type name desc} $pdrc_options { ! set v $_($self:$name) ! set op [lindex [split $name |] 0] ! switch $type { ! folders {foreach x $v {puts $fd "$op $x"}} ! files {foreach x $v {puts $fd "$op $x"}} ! void {if {[string length $v]} {if {$v} {puts $fd $op}}} ! default {if {[string length $v]} {puts $fd "$op $v"}} ! } ! } ! #close $fd }