Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8634
Modified Files: Tag: devel_0_39 desire.tk Log Message: removing "media" menu
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.564 retrieving revision 1.1.2.565 diff -C2 -d -r1.1.2.564 -r1.1.2.565 *** desire.tk 19 Nov 2006 02:18:56 -0000 1.1.2.564 --- desire.tk 19 Nov 2006 02:49:48 -0000 1.1.2.565 *************** *** 599,603 **** set pd_apilist $apilist set pd_midiapilist $midiapilist ! $main menu_addstd }
--- 599,603 ---- set pd_apilist $apilist set pd_midiapilist $midiapilist ! # $main menu_addstd }
*************** *** 606,610 **** menu .mbar pack [frame .controls] -side top -fill x ! foreach t {file find media window help} { .mbar add cascade -label [say $t] -menu [menu .mbar.$t -tearoff $pd_tearoff] } --- 606,610 ---- menu .mbar pack [frame .controls] -side top -fill x ! foreach t {file find window help} { .mbar add cascade -label [say $t] -menu [menu .mbar.$t -tearoff $pd_tearoff] } *************** *** 851,875 **** new_file open_file {} pdrc_editor ddrc_editor send_message paths {} - quit} - $self populate_menu media { audio_on audio_off {} ! audio_settings midi_settings {} ! test_audio_and_midi load_meter latency_meter} $self populate_menu find {find find_again find_last_error} $self populate_menu help { ! about class_browser client_class_tree clipboard_view history_view do_what_i_mean} ! } ! def Client menu_addstd {} { ! global pd_apilist pd_midiapilist ! foreach {api id} $pd_apilist { ! .mbar.media add radiobutton -label $api -variable pd_whichapi -value $id \ ! -command {pd pd audio-setapi $pd_whichapi} ! } ! $self populate_menu media {{}} ! foreach {api id} $pd_midiapilist { ! .mbar.media add radiobutton -label $api -variable pd_whichmidiapi -value $id \ ! -command {pd pd midi-setapi $pd_whichmidiapi} ! } }
def Client init {} { --- 851,869 ---- new_file open_file {} pdrc_editor ddrc_editor send_message paths {} audio_on audio_off {} ! quit} $self populate_menu find {find find_again find_last_error} $self populate_menu help { ! about class_browser client_class_tree clipboard_view history_view do_what_i_mean {} ! test_audio_and_midi load_meter latency_meter} } + #def Client menu_addstd {} { + # global pd_apilist pd_midiapilist + # foreach {api id} $pd_apilist { + # .mbar.media add radiobutton -label $api -variable pd_whichapi -value $id \ + # -command {pd pd audio-setapi $pd_whichapi}} + # foreach {api id} $pd_midiapilist { + # .mbar.media add radiobutton -label $api -variable pd_whichmidiapi -value $id \ + # -command {pd pd midi-setapi $pd_whichmidiapi}}}
def Client init {} { *************** *** 1815,1820 **** $m.window configure -postcommand "$self fix_window_menu"
! foreach x {file edit view find put media window help} { ! if {$x=="find" || $x=="media"} { $m add cascade -label [say $x] -menu .mbar.$x } { --- 1809,1815 ---- $m.window configure -postcommand "$self fix_window_menu"
! foreach x {file edit view find put window help} { ! if {$x=="find" || $x=="help"} { ! # help menu is in the wrong place in patch windows because it's taken from .mbar ??? $m add cascade -label [say $x] -menu .mbar.$x } {