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