[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.31,1.1.1.4.2.7.4.32

Mathieu Bouchard matju at users.sourceforge.net
Sat Apr 3 16:24:14 CEST 2004


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
  }
  





More information about the Pd-cvs mailing list