pd/src desire.tk,1.1.2.440,1.1.2.441 - Pd-cvs

31 Aug 2006


      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 {} {