Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
nerrons
purr-data
Commits
414c1671
Commit
414c1671
authored
Nov 12, 2012
by
Ivica Bukvic
Browse files
enabled console in k12 mode
parent
6cde5b3e
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/pd.tk
View file @
414c1671
...
...
@@ -2644,16 +2644,17 @@ proc pdtk_canvas_new {name width height geometry editable} {
$
name
.
m
.
edit
add
separator
##
end
jsarlo
if
{
$
k12_mode
==
0
}
{
$
name
.
m
.
edit
add
command
-
label
"Toggle console"
\
-
accelerator
[
accel_munge
"Ctrl+R"
]
\
-
command
[
concat
.
controls
.
switches
.
console
invoke
]
$
name
.
m
.
edit
add
command
-
label
"Toggle console"
\
-
accelerator
[
accel_munge
"Ctrl+R"
]
\
-
command
[
concat
.
controls
.
switches
.
console
invoke
]
$
name
.
m
.
edit
add
command
-
label
"Clear console"
\
-
accelerator
[
accel_munge
"Ctrl+L"
]
\
-
command
[
concat
menu_clear_console
]
$
name
.
m
.
edit
add
command
-
label
"Clear console"
\
-
accelerator
[
accel_munge
"Ctrl+L"
]
\
-
command
[
concat
menu_clear_console
]
$
name
.
m
.
edit
add
separator
$
name
.
m
.
edit
add
separator
if
{
$
k12_mode
==
0
}
{
#
Apple
,
Microsoft
,
and
others
put
find
functions
in
the
Edit
menu
.
$
name
.
m
.
edit
add
command
-
label
{
Find
...}
\
...
...
@@ -3739,9 +3740,9 @@ proc pdtk_canvas_ctrlkey {name key shift} {
if {$key == "period"} {menu_audio 0}
if {$shift == 1} {
if {$key == "q" || $key == "Q"} {menu_really_quit}
if {$key == "l" || $key == "L"} {menu_clear_console}
if {$key == "r" || $key == "R"} {menu_toggle_console}
if { $k12_mode == 0 } {
if {$key == "l" || $key == "L"} {menu_clear_console}
if {$key == "r" || $key == "R"} {menu_toggle_console}
if {$key == "E"} {menu_tooltips $topname}
if {$key == "Return"} {pdtk_zoom_reset $topname}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment