[PD-cvs] pd/src desire.tk,1.1.2.284,1.1.2.285

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
pdrc editor now also writes .pdrc


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.284
retrieving revision 1.1.2.285
diff -C2 -d -r1.1.2.284 -r1.1.2.285
*** desire.tk	4 Aug 2006 14:09:46 -0000	1.1.2.284
--- desire.tk	4 Aug 2006 15:13:33 -0000	1.1.2.285
***************
*** 4660,4663 ****
--- 4660,4665 ----
  				-activestyle none -xscrollcommand "$f.a.xscroll set"
  		foreach line $_($self:$name) {$f.a.list insert end $line}
+ 		# save the listbox path at _($self:$name) instead
+ 		set _($self:$name) $f.a.list 
  		scrollbar $f.a.yscroll -command "$f.a.list yview"
  		scrollbar $f.a.xscroll -command "$f.a.list xview" -orient horizontal
***************
*** 4695,4698 ****
--- 4697,4702 ----
  				-activestyle none -xscrollcommand "$f.a.xscroll set"
  		foreach line $_($self:$name) {$f.a.list insert end $line}
+ 		# save the listbox path at _($self:$name) instead
+ 		set _($self:$name) $f.a.list 
  		scrollbar $f.a.yscroll -command "$f.a.list yview"
  		scrollbar $f.a.xscroll -command "$f.a.list xview" -orient horizontal
***************
*** 4941,4945 ****
  def PagedDialog entry_set2listbox {listbox entry} {
  	set var [$entry get]
- 	puts $var
  	$listbox insert end $var
  	$listbox yview end
--- 4945,4948 ----
***************
*** 5125,5137 ****
  	foreach {type names} $pdrc_options {
  		switch $type {
! 			radio   {set name [lindex $names 0]}
  			default {set name [lindex [split $names |] 0]}
  		}
  		set v $@$name
  		switch $type {
! 			folders {foreach x $v {puts $fd "$name $x"}}
! 			files   {foreach x $v {puts $fd "$name $x"}}
! 			void    {if {[string length $v]} {if {$v} {puts $fd $name}}}
! 			radio   {if {$v} {set t [lindex $names $v]; puts [split $t |]}}
  			default {if {[string length $v]} {puts $fd "$name $v"}}
  		}
--- 5128,5142 ----
  	foreach {type names} $pdrc_options {
  		switch $type {
! 			radio   {set name [lindex [split $names |] 0]}
  			default {set name [lindex [split $names |] 0]}
  		}
  		set v $@$name
  		switch $type {
! 			folders {foreach item [$v get 0 [$v size]] {puts $fd "$name $item"}}
! 			lists {foreach item [$v get 0 [$v size]] {puts $fd "$name $item"}}
! 			#files   {foreach x $v {puts $fd "$name $x"}}
! 			#void    {if {[string length $v]} {if {$v} {puts $fd $name}}}
! 			#radio   {if {$v} {set t [lindex $names $v]; puts [split $t |]}}
! 			radio {puts $fd "$v"}
  			default {if {[string length $v]} {puts $fd "$name $v"}}
  		}