[PD-cvs] pd/src desire.tk,1.1.2.600.2.47,1.1.2.600.2.48

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix server prefs when there are no audio devices


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.47
retrieving revision 1.1.2.600.2.48
diff -C2 -d -r1.1.2.600.2.47 -r1.1.2.600.2.48
*** desire.tk	8 Dec 2006 19:04:20 -0000	1.1.2.600.2.47
--- desire.tk	8 Dec 2006 23:41:32 -0000	1.1.2.600.2.48
***************
*** 2964,2968 ****
  }
  
! def Canvas popup_help {} {global main; $main class_browser}
  
  def Canvas popup_open {} {
--- 2964,2968 ----
  }
  
! def Canvas popup_help {} {$::main class_browser}
  
  def Canvas popup_open {} {
***************
*** 4099,4103 ****
  }
  
! def Box popup_help {} {pd pd help $@pdclass}
  
  #-----------------------------------------------------------------------------------#
--- 4099,4103 ----
  }
  
! def Box popup_help {} {netsend [list pd help $@pdclass]}
  
  #-----------------------------------------------------------------------------------#
***************
*** 6272,6280 ****
  
  def Dialog add_devlist {f name label} {
- 	global _
  	$self add_stuff $f $name $label
  	menu $f.menu -tearoff 0
  	set i 0
  	set trim_name [string trimleft $name "-"]
  	foreach part $@$trim_name {
  		$f.menu add command -label $part \
--- 6272,6280 ----
  
  def Dialog add_devlist {f name label} {
  	$self add_stuff $f $name $label
  	menu $f.menu -tearoff 0
  	set i 0
  	set trim_name [string trimleft $name "-"]
+ 	set part none ;# in case there are none
  	foreach part $@$trim_name {
  		$f.menu add command -label $part \
***************
*** 7271,7276 ****
  	super close
          wm title .$self "About DesireData"
!         pack [label .$self.title -text "DesireData 0.39.A.pre3" -font {helvetica 24}] -side top
! 	pack [label .$self.date -text "released on 2006.11.27"] -side top
  	pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72
  	     ] -side left -fill both -expand yes
--- 7271,7276 ----
  	super close
          wm title .$self "About DesireData"
!         pack [label .$self.title -text "DesireData 0.39.A.pre5" -font {helvetica 24}] -side top
! 	pack [label .$self.date -text "released on 2006.12.??"] -side top
  	pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72
  	     ] -side left -fill both -expand yes