Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23184
Modified Files: Tag: devel_0_39 desire.tk Log Message: .
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.188 retrieving revision 1.1.2.189 diff -C2 -d -r1.1.2.188 -r1.1.2.189 *** desire.tk 23 Apr 2006 09:49:41 -0000 1.1.2.188 --- desire.tk 23 Apr 2006 10:16:59 -0000 1.1.2.189 *************** *** 277,280 **** --- 277,281 ----
set cmdline(rcfilename) ~/.pdrc + set cmdline(ddrcfilename) ~/.ddrc set cmdline(console) 1000 set cmdline(icons) icons *************** *** 3215,3219 **** foreach class $class_list { if {[string length $s]==0 || [string first $s $class]>=0} { ! $f.1 insert end "$class" incr n } --- 3216,3220 ---- foreach class $class_list { if {[string length $s]==0 || [string first $s $class]>=0} { ! $f.1 insert end "$class : [say $class]" incr n } *************** *** 3242,3246 **** set f .$self.cl set i [$f.1 curselection] ! set class [$f.1 get $i] pd pd update-class-info $class $self info_callback } --- 3243,3247 ---- set f .$self.cl set i [$f.1 curselection] ! set class [lindex [$f.1 get $i] 0] pd pd update-class-info $class $self info_callback } *************** *** 3254,3260 **** pack [frame $f] -side top -fill both -expand yes pack [label .browser.title -text ""] -side top ! listbox $f.1 -width 40 -height 20 -yscrollcommand "$f.2 set" scrollbar $f.2 -command "$f.1 yview" ! text $f.3 -width 40 -height 20 -yscrollcommand "$f.4 set" scrollbar $f.4 -command "$f.3 yview"
--- 3255,3261 ---- pack [frame $f] -side top -fill both -expand yes pack [label .browser.title -text ""] -side top ! listbox $f.1 -width 50 -height 20 -yscrollcommand "$f.2 set" scrollbar $f.2 -command "$f.1 yview" ! text $f.3 -width 30 -height 20 -yscrollcommand "$f.4 set" scrollbar $f.4 -command "$f.3 yview"
*************** *** 3285,3289 **** set f .browser.cl set i [$f.1 curselection] ! set class [$f.1 get $i] $f.3 delete 0.0 end $f.3 insert end "class $class\n" --- 3286,3290 ---- set f .browser.cl set i [$f.1 curselection] ! set class [lindex [$f.1 get $i] 0] $f.3 delete 0.0 end $f.3 insert end "class $class\n" *************** *** 3503,3508 **** pack [message $top.txt -aspect 10000 -bg lightyellow \ -font fixed -text $arg] ! set wmx [winfo rootx $w] ! set wmy [expr [winfo rooty $w]+[winfo height $w]] wm geometry $top \ [winfo reqwidth $top.txt]x[winfo reqheight $top.txt]+$wmx+$wmy --- 3504,3511 ---- pack [message $top.txt -aspect 10000 -bg lightyellow \ -font fixed -text $arg] ! # set wmx [winfo rootx $w] ! # set wmy [expr [winfo rooty $w]+[winfo height $w]] ! set wmx [expr [winfo rootx $w]+[winfo width $w]] ! set wmy [winfo rooty $w] wm geometry $top \ [winfo reqwidth $top.txt]x[winfo reqheight $top.txt]+$wmx+$wmy *************** *** 3615,3619 **** void -nodac void -noadc ! radio {audio_api_choice -alsa -jack -mmio -portaudio|-pa|-asio -oss} void -32bit
--- 3618,3622 ---- void -nodac void -noadc ! radio {audio_api_choice default -alsa -jack -mmio -portaudio|-pa|-asio -oss} void -32bit
*************** *** 3727,3731 **** radio { set babble {} ! foreach subname $name {lappend babble [say $subname]} properties_dialog $self $f.main.$section ServerPrefsDialog_ok server \ [list [lindex $name 0] $babble choice {}] --- 3730,3734 ---- radio { set babble {} ! foreach subname $names {lappend babble [say [lindex [split $subname |] 0]]} properties_dialog $self $f.main.$section ServerPrefsDialog_ok server \ [list [lindex $name 0] $babble choice {}] *************** *** 3786,3790 **** def ClientPrefsDialog read {} { global ddrc_options ddrc_options_h cmdline ! set fd [open $cmdline(rcfilename) "RDONLY CREAT"] set contents [split [string map {"\n" " "} [read $fd]] " "] close $fd --- 3789,3793 ---- def ClientPrefsDialog read {} { global ddrc_options ddrc_options_h cmdline ! set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] set contents [split [string map {"\n" " "} [read $fd]] " "] close $fd