pd/src u_main.tk,1.25.6.6,1.25.6.7 - Pd-cvs

9 Nov 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31694
Modified Files:
      Tag: branch-v0-40-extended
    u_main.tk 
Log Message:
added key shortcut to toggle open state of console
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.25.6.6
retrieving revision 1.25.6.7
diff -C2 -d -r1.25.6.6 -r1.25.6.7
*** u_main.tk	8 Nov 2007 02:49:55 -0000	1.25.6.6
--- u_main.tk	9 Nov 2007 19:02:03 -0000	1.25.6.7
***************
*** 223,232 ****
      -command {pd [concat pd meters $ctrls_meter_on ;]}
! checkbutton .controls.switches.textwindow -text {text window} \
!     -variable show_text_window \
!     -command {showhide_printouttext $show_text_window}
pack .controls.switches.audiobutton .controls.switches.meterbutton \
!     .controls.switches.textwindow -side top -anchor w
frame .controls.inout
--- 223,232 ----
      -command {pd [concat pd meters $ctrls_meter_on ;]}
! checkbutton .controls.switches.console -text "console" \
!     -variable show_console \
!     -command {showhide_printouttext $show_console}
pack .controls.switches.audiobutton .controls.switches.meterbutton \
!     .controls.switches.console -side top -anchor w
frame .controls.inout
***************
*** 445,450 ****
  }
! ################## the "Clear Pd window" menu command #########################
! proc menu_clear_pd_window {} {.printout.text delete 0.0 end}
################## the "Quit" menu command #########################
--- 445,452 ----
  }
! ################## menu commands for console #########################
! proc menu_clear_console {} {.printout.text delete 0.0 end}
! 
! proc menu_toggle_console {} {.controls.switches.console invoke}
################## the "Quit" menu command #########################
***************
*** 732,737 ****
  .mbar.edit add command -label Font -state disabled
  .mbar.edit add command -label {Tidy Up} -state disabled
! .mbar.edit add command -label {Clear Pd window} \
!     -accelerator [accel_munge "Ctrl+r"] -command menu_clear_pd_window
  .mbar.edit add separator
  # this should apply to .printout.text
--- 734,741 ----
  .mbar.edit add command -label Font -state disabled
  .mbar.edit add command -label {Tidy Up} -state disabled
! .mbar.edit add command -label "Toggle console" -accelerator [accel_munge "Ctrl+l"]\
!         -command menu_toggle_console
! .mbar.edit add command -label "Clear console" \
!     -accelerator [accel_munge "Ctrl+r"] -command menu_clear_console
  .mbar.edit add separator
  # this should apply to .printout.text
***************
*** 1166,1172 ****
          -command [concat menu_tidyup $name]
!     $name.m.edit add command -label {Clear Pd window} \
          -accelerator [accel_munge "Ctrl+r"] \
!         -command [concat menu_clear_pd_window]
$name.m.edit add separator
--- 1170,1180 ----
          -command [concat menu_tidyup $name]
!     $name.m.edit add command -label "Toggle console" \
!         -accelerator [accel_munge "Ctrl+l"] \
!         -command [concat .controls.switches.console invoke]
! 
!     $name.m.edit add command -label "Clear console" \
          -accelerator [accel_munge "Ctrl+r"] \
!         -command [concat menu_clear_console]
$name.m.edit add separator
***************
*** 1844,1848 ****
          if {$key == "w" || $key == "W"} {menu_close $topname}
          if {$key == "p" || $key == "P"} {menu_print $topname}
!         if {$key == "r" || $key == "R"} {menu_clear_pd_window}
          if {$key == "x" || $key == "X"} {menu_cut $topname}
          if {$key == "c" || $key == "C"} {menu_copy $topname}
--- 1852,1857 ----
          if {$key == "w" || $key == "W"} {menu_close $topname}
          if {$key == "p" || $key == "P"} {menu_print $topname}
!         if {$key == "l" || $key == "L"} {menu_toggle_console}
!         if {$key == "r" || $key == "R"} {menu_clear_console}
          if {$key == "x" || $key == "X"} {menu_cut $topname}
          if {$key == "c" || $key == "C"} {menu_copy $topname}