[PD-cvs] packages/patches keybindings_and_panels-0.41-test06.patch, NONE, 1.1
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Sun Nov 4 21:31:06 CET 2007
Update of /cvsroot/pure-data/packages/patches
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3135
Added Files:
keybindings_and_panels-0.41-test06.patch
Log Message:
patch #1825692 fixed up keybindings and panels
--- NEW FILE: keybindings_and_panels-0.41-test06.patch ---
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.28
diff -u -w -r1.28 u_main.tk
--- u_main.tk 18 Aug 2007 23:32:44 -0000 1.28
+++ u_main.tk 4 Nov 2007 20:13:46 -0000
@@ -93,28 +93,19 @@
set help_top_directory $pd_guidir/doc
-# it's unfortunate but we seem to have to turn off global bindings
-# for Text objects to get control-s and control-t to do what we want for
-# "text" dialogs below. Also we have to get rid of tab's changing the focus.
-
-bind all <Key-Tab> ""
-bind all <<PrevWindow>> ""
-bind Text <Control-t> {}
-bind Text <Control-s> {}
-# puts stderr [bind all]
-
################## set up main window #########################
# the menus are instantiated here for the main window
# for the patch windows, they are created by pdtk_canvas_new
menu .mbar
-canvas .dummy -height 2p -width 6c
-frame .controls
-pack .controls .dummy -side top -fill x
menu .mbar.file -tearoff $pd_tearoff
-.mbar add cascade -label "File" -menu .mbar.file
+.mbar add cascade -label File -menu .mbar.file
+menu .mbar.edit -tearoff $pd_tearoff
+.mbar add cascade -label Edit -menu .mbar.edit
+menu .mbar.put -tearoff $pd_tearoff
+.mbar add cascade -label Put -menu .mbar.put
menu .mbar.find -tearoff $pd_tearoff
-.mbar add cascade -label "Find" -menu .mbar.find
+.mbar add cascade -label Find -menu .mbar.find
menu .mbar.windows -postcommand [concat pdtk_fixwindowmenu] -tearoff $pd_tearoff
menu .mbar.audio -tearoff $pd_tearoff
if {$pd_nt != 2} {
@@ -132,11 +123,22 @@
.mbar add cascade -label "Help" -menu .mbar.help
}
+proc showhide_printouttext {state} {
+ if {$state} {
+ pack .printout -side bottom -fill both -expand 1
+ } else {
+ pack forget .printout
+ }
+}
+
set ctrls_audio_on 0
set ctrls_meter_on 0
set ctrls_inlevel 0
set ctrls_outlevel 0
+set show_text_window 0
+frame .controls
+pack .controls -fill x -expand 1
frame .controls.switches
checkbutton .controls.switches.audiobutton -text {compute audio} \
-variable ctrls_audio_on \
@@ -148,7 +150,12 @@
-anchor w \
-command {pd [concat pd meters $ctrls_meter_on \;]}
-pack .controls.switches.audiobutton .controls.switches.meterbutton -side top
+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
frame .controls.inout
frame .controls.inout.in
@@ -190,16 +197,35 @@
proc pdtk_standardkeybindings {id} {
global pd_nt
- bind $id <Control-Key> {pdtk_pd_ctrlkey %W %K 0}
- bind $id <Control-Shift-Key> {pdtk_pd_ctrlkey %W %K 1}
if {$pd_nt == 2} {
bind $id <Mod1-Key> {pdtk_canvas_ctrlkey %W %K 0}
bind $id <Mod1-Shift-Key> {pdtk_canvas_ctrlkey %W %K 1}
+ } else {
+ bind $id <Control-Key> {pdtk_pd_ctrlkey %W %K 0}
+ bind $id <Control-Shift-Key> {pdtk_pd_ctrlkey %W %K 1}
+ }
+}
+
+proc pdtk_panelkeybindings {id panelname} {
+ global pd_nt
+ pdtk_standardkeybindings $id
+ bind $id <KeyPress-Escape> [format "%s_cancel %s" $panelname $id]
+ bind $id <KeyPress-Return> [format "%s_ok %s" $panelname $id]
+ if {$pd_nt == 2} {
+ bind $id <Mod1-Key-w> [format "%s_cancel %s" $panelname $id]
+ } else {
+ bind $id <Control-Key-w> [format "%s_cancel %s" $panelname $id]
}
}
pdtk_standardkeybindings .
+if {$pd_nt == 2} {
+ bind .printout.text <Mod1-Key-a> {puts stderr ARG.printout.text}
+} else {
+ bind .printout.text <Control-Key-a> {puts stderr ARG.printout.text}
+}
+
wm title . "Pd"
. configure -menu .mbar -width 200 -height 150
@@ -331,18 +357,29 @@
################## the "Message" menu command #########################
proc menu_send {} {
+ global pd_nt
+ destroy .sendpanel
toplevel .sendpanel
+ pdtk_standardkeybindings .sendpanel
entry .sendpanel.entry -textvariable send_textvariable
pack .sendpanel.entry -side bottom -fill both -ipadx 100
.sendpanel.entry select from 0
.sendpanel.entry select adjust end
+ if {$pd_nt == 2} {
+ bind .sendpanel <Mod1-Key-w> {destroy .sendpanel}
+ } else {
+ bind .sendpanel <Control-Key-w> {destroy .sendpanel}
+ }
+ bind .sendpanel <KeyPress-Escape> {destroy .sendpanel}
bind .sendpanel.entry <KeyPress-Return> {
pd [concat $send_textvariable \;]
}
- pdtk_standardkeybindings .sendpanel.entry
focus .sendpanel.entry
}
+################## the "Clear Pd window" menu command #########################
+proc menu_clear_pd_window {} {.printout.text delete 0.0 end}
+
################## the "Quit" menu command #########################
proc menu_really_quit {} {pd {pd quit;}}
@@ -416,10 +453,10 @@
################## help browser and support functions #########################
-proc menu_doc_browser {dir} {
- global .mbar
- if {![file isdirectory $dir]} {
- puts stderr "menu_doc_browser non-directory $dir\n"
+proc menu_doc_browser {} {
+ global .mbar pd_nt help_top_directory
+ if {![file isdirectory $help_top_directory]} {
+ puts stderr "menu_doc_browser non-directory $help_top_directory\n"
}
if { [winfo exists .help_browser.frame] } {
raise .help_browser
@@ -428,7 +465,13 @@
wm title .help_browser "Pd Documentation Browser"
frame .help_browser.frame
pack .help_browser.frame -side top -fill both
- doc_make_listbox .help_browser.frame $dir 0
+ pdtk_standardkeybindings .help_browser
+ if {$pd_nt == 2} {
+ bind .help_browser <Mod1-Key-w> {destroy .help_browser}
+ } else {
+ bind .help_browser <Control-Key-w> {destroy .help_browser}
+ }
+ doc_make_listbox .help_browser.frame $help_top_directory 0
}
}
@@ -549,7 +592,8 @@
$mbar.help add command -label {Html ...} \
-command {menu_doc_open doc/1.manual index.htm}
$mbar.help add command -label {Browser ...} \
- -command {menu_doc_browser $help_top_directory}
+ -accelerator [accel_munge "Ctrl+b"] \
+ -command {menu_doc_browser}
}
#################### the "File" menu for the Pd window ##############
@@ -573,7 +617,52 @@
.mbar.file add command -label Quit -command {menu_quit} \
-accelerator [accel_munge "Ctrl+q"]
+
+#################### the "Edit" menu for the Pd window ##############
+# this is mostly a placeholder
+.mbar.edit add command -label Undo -accelerator [accel_munge "Ctrl+z"] \
+ -state disabled
+.mbar.edit add command -label Redo -accelerator [accel_munge "Ctrl+Z"] \
+ -state disabled
+.mbar.edit add separator
+# this should apply to .printout.text
+.mbar.edit add command -label Cut -accelerator [accel_munge "Ctrl+x"] \
+ -state disabled
+# this should apply to .printout.text
+.mbar.edit add command -label Copy -accelerator [accel_munge "Ctrl+c"] \
+ -state disabled
+.mbar.edit add command -label Paste -accelerator [accel_munge "Ctrl+v"] \
+ -state disabled
+.mbar.edit add command -label Duplicate -accelerator [accel_munge "Ctrl+d"] \
+ -state disabled
+# this should apply to .printout.text
+.mbar.edit add command -label {Select all} -accelerator [accel_munge "Ctrl+a"] \
+ -state disabled
+.mbar.edit add separator
+.mbar.edit add command -label {Text Editor} \
+ -accelerator "Ctrl-T" -state disabled
+.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
+.mbar.edit add command -label {Find...} -accelerator [accel_munge "Ctrl+f"] \
+ -state disabled
+# this should apply to .printout.text
+.mbar.edit add command -label {Find Again} -accelerator [accel_munge "Ctrl+g"] \
+ -state disabled
+.mbar.edit add command -label {Find last error}
+.mbar.edit add separator
+.mbar.edit add command -label {Edit mode} -accelerator [accel_munge "Ctrl+e"] \
+ -state disabled
+
#################### the "Find" menu for the Pd window ##############
+
+.mbar.find add command -label Find -accelerator [accel_munge "Ctrl+f"] \
+ -state disabled
+.mbar.find add command -label {Find Again} -accelerator [accel_munge "Ctrl+g"] \
+ -state disabled
.mbar.find add command -label {Find last error} -command {menu_finderror}
########### functions for menu functions on document windows ########
@@ -802,7 +891,7 @@
set find_string ""
set find_count 1
-proc find_apply {name} {
+proc find_ok {name} {
global find_string
global find_canvas
regsub -all \; $find_string " _semi_ " find_string2
@@ -830,6 +919,9 @@
toplevel $name
+ #bind $name <FocusIn> "puts stderr \"bind focus $name.entry\""
+ pdtk_panelkeybindings $name "find"
+
label $name.label -text {find...}
pack $name.label -side top
@@ -841,15 +933,15 @@
button $name.buttonframe.cancel -text {Cancel}\
-command "find_cancel $name"
button $name.buttonframe.ok -text {OK}\
- -command "find_apply $name"
+ -command "find_ok $name"
pack $name.buttonframe.cancel -side left -expand 1
pack $name.buttonframe.ok -side left -expand 1
$name.entry select from 0
$name.entry select adjust end
- bind $name.entry <KeyPress-Return> [ concat find_apply $name]
- pdtk_standardkeybindings $name.entry
+ #puts stderr "before focus $name.entry"
focus $name.entry
+ #puts stderr "after focus $name.entry"
}
@@ -974,7 +1066,7 @@
$name.m.edit add command -label {Text Editor} \
-command [concat menu_texteditor $name] \
- -accelerator [accel_munge "Ctrl+t"]
+ -accelerator "Ctrl-T"
$name.m.edit add command -label Font \
-command [concat menu_font $name]
@@ -982,6 +1074,10 @@
$name.m.edit add command -label {Tidy Up} \
-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
# Apple, Microsoft, and others put find functions in the Edit menu.
@@ -1006,7 +1102,8 @@
-accelerator [accel_munge "Ctrl+e"]
if { $editable == 0 } {
- $name.m.edit entryconfigure "Edit mode" -indicatoron false }
+ $name.m.edit entryconfigure "Edit mode" -indicatoron false
+ }
############iemlib##################
@@ -1616,11 +1713,13 @@
if {$key == "q" || $key == "Q"} {menu_quit}
if {$key == "s" || $key == "S"} {menu_save $topname}
if {$key == "z" || $key == "Z"} {menu_undo $topname}
+ if {$key == "b" || $key == "B"} {menu_doc_browser}
if {$key == "n" || $key == "N"} {menu_new}
if {$key == "o" || $key == "O"} {menu_open}
if {$key == "m" || $key == "M"} {menu_send}
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}
if {$key == "v" || $key == "V"} {menu_paste $topname}
@@ -1704,28 +1803,42 @@
############ pdtk_canvas_dofont -- run a font and resize dialog #########
set fontsize 0
+set dofont_fontsize 0
set stretchval 0
set whichstretch 0
-proc dofont_apply {name} {
- global fontsize
+proc dofont_apply {name myfontsize} {
global stretchval
global whichstretch
- set cmd [concat $name font $fontsize $stretchval $whichstretch \;]
+ set cmd [concat $name font $myfontsize $stretchval $whichstretch \;]
+# puts stderr $cmd
+ pd $cmd
+}
+
+proc dofont_close {name} {
+ set cmd [concat $name cancel \;]
# puts stderr $cmd
pd $cmd
}
proc dofont_cancel {name} {
+ global fontsize
+ dofont_apply $name $fontsize
set cmd [concat $name cancel \;]
# puts stderr $cmd
pd $cmd
}
+proc dofont_ok {name} {
+ global fontsize dofont_fontsize
+ set fontsize $dofont_fontsize
+ dofont_apply $name $fontsize
+ dofont_close $name
+}
+
proc pdtk_canvas_dofont {name initsize} {
- global fontsize
- set fontsize $initsize
+ global dofont_fontsize
global stretchval
set stretchval 100
@@ -1737,12 +1850,14 @@
wm title $name {FONT BOMB}
wm protocol $name WM_DELETE_WINDOW [concat dofont_cancel $name]
+ pdtk_panelkeybindings $name dofont
+
frame $name.buttonframe
pack $name.buttonframe -side bottom -fill x -pady 2m
button $name.buttonframe.cancel -text {Cancel}\
-command "dofont_cancel $name"
- button $name.buttonframe.ok -text {Do it}\
- -command "dofont_apply $name"
+ button $name.buttonframe.ok -text {OK}\
+ -command "dofont_ok $name"
pack $name.buttonframe.cancel -side left -expand 1
pack $name.buttonframe.ok -side left -expand 1
@@ -1752,12 +1867,18 @@
label $name.radiof.label -text {Font Size:}
pack $name.radiof.label -side top
- radiobutton $name.radiof.radio8 -value 8 -variable fontsize -text "8"
- radiobutton $name.radiof.radio10 -value 10 -variable fontsize -text "10"
- radiobutton $name.radiof.radio12 -value 12 -variable fontsize -text "12"
- radiobutton $name.radiof.radio16 -value 16 -variable fontsize -text "16"
- radiobutton $name.radiof.radio24 -value 24 -variable fontsize -text "24"
- radiobutton $name.radiof.radio36 -value 36 -variable fontsize -text "36"
+ radiobutton $name.radiof.radio8 -value 8 -variable dofont_fontsize -text "8" \
+ -command [concat dofont_apply $name 8]
+ radiobutton $name.radiof.radio10 -value 10 -variable dofont_fontsize -text "10" \
+ -command [concat dofont_apply $name 10]
+ radiobutton $name.radiof.radio12 -value 12 -variable dofont_fontsize -text "12" \
+ -command [concat dofont_apply $name 12]
+ radiobutton $name.radiof.radio16 -value 16 -variable dofont_fontsize -text "16" \
+ -command [concat dofont_apply $name 16]
+ radiobutton $name.radiof.radio24 -value 24 -variable dofont_fontsize -text "24" \
+ -command [concat dofont_apply $name 24]
+ radiobutton $name.radiof.radio36 -value 36 -variable dofont_fontsize -text "36" \
+ -command [concat dofont_apply $name 36]
pack $name.radiof.radio8 -side top -anchor w
pack $name.radiof.radio10 -side top -anchor w
pack $name.radiof.radio12 -side top -anchor w
@@ -1902,6 +2023,8 @@
wm title $id {Atom}
wm protocol $id WM_DELETE_WINDOW [concat dogatom_cancel $id]
+ pdtk_panelkeybindings $id "dogatom"
+
frame $id.buttonframe
pack $id.buttonframe -side bottom -fill x -pady 2m
button $id.buttonframe.cancel -text {Cancel}\
@@ -1973,14 +2096,6 @@
entry $id.params.entry -textvariable $var_gatomwidth -width 4
pack $id.params.entryname $id.params.entry -side left
-
-
- bind $id.paramhi.entry <KeyPress-Return> [concat dogatom_ok $id]
- bind $id.paramlo.entry <KeyPress-Return> [concat dogatom_ok $id]
- bind $id.params.entry <KeyPress-Return> [concat dogatom_ok $id]
- pdtk_standardkeybindings $id.paramhi.entry
- pdtk_standardkeybindings $id.paramlo.entry
- pdtk_standardkeybindings $id.params.entry
$id.params.entry select from 0
$id.params.entry select adjust end
focus $id.params.entry
@@ -2489,6 +2604,8 @@
wm title $id [format "%s-PROPERTIES" $mainheader]
wm protocol $id WM_DELETE_WINDOW [concat iemgui_cancel $id]
+ pdtk_panelkeybindings $id "iemgui"
+
frame $id.dim
pack $id.dim -side top
label $id.dim.head -text $dim_header
@@ -2708,31 +2825,6 @@
bind $id <<PrevWindow>> {tk::TabToWindow [tk_focusPrev %W]}
}
- bind $id.dim.w_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.dim.h_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.rng.min_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.rng.max_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.para.num_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.snd.ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.rcv.ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.gnam.ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.gnxy.x_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.gnxy.y_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.gnfs.fs_ent <KeyPress-Return> [concat iemgui_ok $id]
- bind $id.cao.ok <KeyPress-Return> [concat iemgui_ok $id]
- pdtk_standardkeybindings $id.dim.w_ent
- pdtk_standardkeybindings $id.dim.h_ent
- pdtk_standardkeybindings $id.rng.min_ent
- pdtk_standardkeybindings $id.rng.max_ent
- pdtk_standardkeybindings $id.para.num_ent
- pdtk_standardkeybindings $id.snd.ent
- pdtk_standardkeybindings $id.rcv.ent
- pdtk_standardkeybindings $id.gnam.ent
- pdtk_standardkeybindings $id.gnxy.x_ent
- pdtk_standardkeybindings $id.gnxy.y_ent
- pdtk_standardkeybindings $id.gnfs.fs_ent
- pdtk_standardkeybindings $id.cao.ok
-
$id.dim.w_ent select from 0
$id.dim.w_ent select adjust end
focus $id.dim.w_ent
@@ -2810,6 +2902,8 @@
wm title $id {array}
wm protocol $id WM_DELETE_WINDOW [concat array_cancel $id]
+ pdtk_panelkeybindings $id "array"
+
frame $id.name
pack $id.name -side top
label $id.name.label -text "name"
@@ -2876,10 +2970,6 @@
if {$newone == 0} {pack $id.buttonframe.apply -side left -expand 1}
pack $id.buttonframe.ok -side left -expand 1
- bind $id.name.entry <KeyPress-Return> [concat array_ok $id]
- bind $id.n.entry <KeyPress-Return> [concat array_ok $id]
- pdtk_standardkeybindings $id.name.entry
- pdtk_standardkeybindings $id.n.entry
$id.name.entry select from 0
$id.name.entry select adjust end
focus $id.name.entry
@@ -3070,6 +3160,8 @@
wm title $id {canvas}
wm protocol $id WM_DELETE_WINDOW [concat canvas_cancel $id]
+ pdtk_panelkeybindings $id "canvas"
+
label $id.toplabel -text "Canvas Properties"
pack $id.toplabel -side top
@@ -3139,10 +3231,6 @@
pack $id.buttonframe.apply -side left -expand 1
pack $id.buttonframe.ok -side left -expand 1
- bind $id.xscale.entry <KeyPress-Return> [concat canvas_ok $id]
- bind $id.yscale.entry <KeyPress-Return> [concat canvas_ok $id]
- pdtk_standardkeybindings $id.xscale.entry
- pdtk_standardkeybindings $id.yscale.entry
$id.xscale.entry select from 0
$id.xscale.entry select adjust end
focus $id.xscale.entry
@@ -3182,6 +3270,10 @@
wm title $name {Atom}
wm protocol $name WM_DELETE_WINDOW [concat dodata_cancel $name]
+ pdtk_panelkeybindings $name "dodata"
+ bind $name <Control-t> [concat dodata_ok $name]
+ bind $name <Control-s> [concat dodata_send $name]
+
frame $name.buttonframe
pack $name.buttonframe -side bottom -fill x -pady 2m
button $name.buttonframe.send -text {Send (Ctrl s)}\
@@ -3198,8 +3290,6 @@
pack $name.text -side left -fill both -expand 1
$name.text insert end $stuff
focus $name.text
- bind $name.text <Control-t> [concat dodata_ok $name]
- bind $name.text <Control-s> [concat dodata_send $name]
}
############ check or uncheck the "edit" menu item ##############
@@ -3375,6 +3465,10 @@
toplevel $name
wm title $name {TEXT}
+ pdtk_standardkeybindings $name
+ bind $name <Control-t> {texteditor_ok %W}
+ bind $name <Control-s> {texteditor_send %W}
+
frame $name.buttons
pack $name.buttons -side bottom -fill x -pady 2m
button $name.buttons.send -text {Send (Ctrl s)}\
@@ -3391,8 +3485,6 @@
pack $name.text -side left -fill both -expand 1
$name.text insert end $stuff
focus $name.text
- bind $name.text <Control-t> {texteditor_ok %W}
- bind $name.text <Control-s> {texteditor_send %W}
}
# paste text into a text box
@@ -3591,6 +3683,8 @@
wm title $id {audio}
wm protocol $id WM_DELETE_WINDOW [concat audio_cancel $id]
+ pdtk_panelkeybindings $id "audio"
+
frame $id.buttonframe
pack $id.buttonframe -side bottom -fill x -pady 2m
button $id.buttonframe.cancel -text {Cancel}\
@@ -3752,17 +3846,9 @@
-command {pd pd audio-properties 1 \;}
pack $id.longbutton.b
}
- bind $id.srf.x1 <KeyPress-Return> [concat audio_ok $id]
- bind $id.srf.x2 <KeyPress-Return> [concat audio_ok $id]
- bind $id.in1f.x2 <KeyPress-Return> [concat audio_ok $id]
- bind $id.out1f.x2 <KeyPress-Return> [concat audio_ok $id]
$id.srf.x1 select from 0
$id.srf.x1 select adjust end
focus $id.srf.x1
- pdtk_standardkeybindings $id.srf.x1
- pdtk_standardkeybindings $id.srf.x2
- pdtk_standardkeybindings $id.in1f.x2
- pdtk_standardkeybindings $id.out1f.x2
}
####################### midi dialog ##################
@@ -3841,6 +3927,8 @@
wm title $id {midi}
wm protocol $id WM_DELETE_WINDOW [concat midi_cancel $id]
+ pdtk_panelkeybindings $id "midi"
+
frame $id.buttonframe
pack $id.buttonframe -side bottom -fill x -pady 2m
button $id.buttonframe.cancel -text {Cancel}\
@@ -3975,6 +4063,8 @@
wm title $id {midi}
wm protocol $id WM_DELETE_WINDOW [concat midi_cancel $id]
+ pdtk_panelkeybindings $id "midi"
+
frame $id.buttonframe
pack $id.buttonframe -side bottom -fill x -pady 2m
button $id.buttonframe.cancel -text {Cancel}\
@@ -4132,6 +4222,8 @@
wm title $id {PD search path for patches and other files}
wm protocol $id WM_DELETE_WINDOW [concat path_cancel $id]
+ pdtk_panelkeybindings $id "path"
+
frame $id.buttonframe
pack $id.buttonframe -side bottom -fill x -pady 2m
button $id.buttonframe.cancel -text {Cancel}\
@@ -4157,8 +4249,6 @@
for {set x 0} {$x < 10} {incr x} {
entry $id.f$x -textvariable pd_path$x -width 80
- bind $id.f$x <KeyPress-Return> [concat path_ok $id]
- pdtk_standardkeybindings $id.f$x
pack $id.f$x -side top
}
@@ -4206,6 +4296,8 @@
wm title $id {Pd binaries to load (on next startup)}
wm protocol $id WM_DELETE_WINDOW [concat startup_cancel $id]
+ pdtk_panelkeybindings $id "startup"
+
frame $id.buttonframe
pack $id.buttonframe -side bottom -fill x -pady 2m
button $id.buttonframe.cancel -text {Cancel}\
@@ -4222,8 +4314,6 @@
pack $id.flags -side bottom
label $id.flags.entryname -text {startup flags}
entry $id.flags.entry -textvariable pd_flags -width 80
- bind $id.flags.entry <KeyPress-Return> [concat startup_ok $id]
- pdtk_standardkeybindings $id.flags.entry
pack $id.flags.entryname $id.flags.entry -side left
frame $id.nortframe
@@ -4242,8 +4332,6 @@
for {set x 0} {$x < 10} {incr x} {
entry $id.f$x -textvariable pd_startup$x -width 80
- bind $id.f$x <KeyPress-Return> [concat startup_ok $id]
- pdtk_standardkeybindings $id.f$x
pack $id.f$x -side top
}
More information about the Pd-cvs
mailing list