[PD-cvs] pd/src desire.tk,1.1.2.440,1.1.2.441

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2233

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed writing of pdrc


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.440
retrieving revision 1.1.2.441
diff -C2 -d -r1.1.2.440 -r1.1.2.441
*** desire.tk	31 Aug 2006 20:26:04 -0000	1.1.2.440
--- desire.tk	31 Aug 2006 20:38:54 -0000	1.1.2.441
***************
*** 5031,5035 ****
  				    -activestyle none -xscrollcommand "$f.a.xscroll set"
  				#foreach line $@$name {$f.a.list insert end $line}
! 				foreach line $v {$f.a.list insert end $line} ;# bug in objective.tcl
  				# save the listbox path at @$name instead
  				set @$name $f.a.list
--- 5031,5035 ----
  				    -activestyle none -xscrollcommand "$f.a.xscroll set"
  				#foreach line $@$name {$f.a.list insert end $line}
! 				foreach line $v {$f.a.list insert end $line}
  				# save the listbox path at @$name instead
  				set @$name $f.a.list
***************
*** 5526,5530 ****
  
  class_new ServerPrefsDialog {PagedDialog}
! def ServerPrefsDialog apply  {} {$self write}
  
  def ServerPrefsDialog init_reverse_hash {} {
--- 5526,5530 ----
  
  class_new ServerPrefsDialog {PagedDialog}
! def ServerPrefsDialog apply {} {$self write}
  
  def ServerPrefsDialog init_reverse_hash {} {
***************
*** 5569,5590 ****
  def ServerPrefsDialog write {} {
  	global pdrc_options pdrc_options_h cmdline
! 	#set fd [open $cmdline(rcfilename) w]
! 	set fd stdout; puts "WOULD SAVE:"
  	foreach {type names} $pdrc_options {
  		set name [lindex $names 0]
  		#set v $@$name
  		set v $_($self:$name) ;# bug in objective.tcl ?
- 		puts "_($self:$name) = $v"
  		switch $type {
! 			folders   {foreach item $v {puts $fd "$name $item"}}
! 			libraries {foreach item $v {puts $fd "$name $item"}}
  			#files    {foreach item $v {puts $fd "$name $item"}}
  			void      {if {$v != ""} {if {$v} {puts $fd $name}}}
! 			choice    {if {$v != "" && $v != "default"} {puts $fd "$v"}}
  			default   {if {[string length $v]} {puts $fd "$name $v"}}
  		}
  	}
! 	#close $fd
! 	puts "THE END"
  }
  def ServerPrefsDialog reset {} {
--- 5569,5592 ----
  def ServerPrefsDialog write {} {
  	global pdrc_options pdrc_options_h cmdline
! 	set fd [open $cmdline(rcfilename) w]
! 	#set fd stdout; puts "WOULD SAVE:"
  	foreach {type names} $pdrc_options {
  		set name [lindex $names 0]
  		#set v $@$name
  		set v $_($self:$name) ;# bug in objective.tcl ?
  		switch $type {
! 			folders   {foreach item [$v get 0 end] {puts $fd "$name $item"}}
! 			libraries {foreach item [$v get 0 end] {puts $fd "$name $item"}}
  			#files    {foreach item $v {puts $fd "$name $item"}}
  			void      {if {$v != ""} {if {$v} {puts $fd $name}}}
! 			choice    {
! 				set vv [lindex $names [expr 1+$v]]
! 				if {$vv != "default"} {puts $fd $vv}
! 			}
  			default   {if {[string length $v]} {puts $fd "$name $v"}}
  		}
  	}
! 	close $fd
! 	#puts "THE END"
  }
  def ServerPrefsDialog reset {} {