[PD-cvs] pd/src desire.tk,1.1.2.564,1.1.2.565

[Mathieu Bouchard]

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
        } {