Skip to content
Snippets Groups Projects
Commit 219fa79e authored by Ivica Ico Bukvic's avatar Ivica Ico Bukvic
Browse files

additional fixes for k12 mode and minor clean-up

parent aab8fe1b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 7 additions and 3 deletions
src/pd.tk
+ 7
− 3
View file @ 219fa79e
...@@ -386,6 +386,10 @@ proc pdtk_enable_k12_mode {extra_dir} { ...@@ -386,6 +386,10 @@ proc pdtk_enable_k12_mode {extra_dir} {
image create photo i.edit -file $extra_dir/K12/icons/edit.png image create photo i.edit -file $extra_dir/K12/icons/edit.png
image create photo i.perform -file $extra_dir/K12/icons/perform.png image create photo i.perform -file $extra_dir/K12/icons/perform.png
pack forget .controls.switches.audiobutton
#pack forget .controls.inout
.mbar.audio delete 0 2
} }
# calculate offset on a movable canvas # calculate offset on a movable canvas
...@@ -674,7 +678,7 @@ match_linux_wm [list checkbutton .controls.switches.audiobutton -text {compute a ...@@ -674,7 +678,7 @@ match_linux_wm [list checkbutton .controls.switches.audiobutton -text {compute a
-variable ctrls_audio_on \ -variable ctrls_audio_on \
-command {pd [concat pd dsp $ctrls_audio_on \;]}] -command {pd [concat pd dsp $ctrls_audio_on \;]}]
match_linux_wm [list checkbutton .controls.switches.meterbutton -text {peak meters} \ match_linux_wm [list checkbutton .controls.switches.meterbutton -text {peak meters } \
-variable ctrls_meter_on \ -variable ctrls_meter_on \
-command {pd [concat pd meters $ctrls_meter_on \;]}] -command {pd [concat pd meters $ctrls_meter_on \;]}]
...@@ -1466,8 +1470,8 @@ if {$pd_nt != 2} { ...@@ -1466,8 +1470,8 @@ if {$pd_nt != 2} {
.mbar.edit add command -label Duplicate -accelerator [accel_munge "Ctrl+d"] \ .mbar.edit add command -label Duplicate -accelerator [accel_munge "Ctrl+d"] \
-state disabled -state disabled
# this should apply to .printout.frame.text # this should apply to .printout.frame.text
.mbar.edit add command -label {Select all} -accelerator [accel_munge "Ctrl+a"]\ .mbar.edit add command -label {Select all in console} -accelerator [accel_munge "Ctrl+a"]\
-command {pdtk_post selall; .printout.frame.text tag add sel 1.0 end} -command {.printout.frame.text tag add sel 1.0 end}
.mbar.edit add command -label {Reselect} \ .mbar.edit add command -label {Reselect} \
-accelerator "Ctrl+Enter" -state disabled -accelerator "Ctrl+Enter" -state disabled
.mbar.edit add separator .mbar.edit add separator
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment