[PD-cvs] pd/src desire.tk,1.1.2.188,1.1.2.189

[Mathieu Bouchard]

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