[PD-cvs] pd/src u_main.tk,1.25.6.6,1.25.6.7
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Fri Nov 9 20:02:05 CET 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}
More information about the Pd-cvs
mailing list