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