aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--packages/patches/add_urls_to_help_menu-0.40.3.patch28
-rw-r--r--packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch27
-rw-r--r--packages/patches/keybindings_and_panels-0.41-test06.patch648
-rw-r--r--packages/patches/pd_autoscrollbars-0.40-pre.patch30
-rw-r--r--packages/patches/pd_controls-anchor-fix-0.40-pre.patch20
-rw-r--r--packages/patches/pd_hidden_file_dialogs-0.41.4.patch23
6 files changed, 0 insertions, 776 deletions
diff --git a/packages/patches/add_urls_to_help_menu-0.40.3.patch b/packages/patches/add_urls_to_help_menu-0.40.3.patch
deleted file mode 100644
index b203c151..00000000
--- a/packages/patches/add_urls_to_help_menu-0.40.3.patch
+++ /dev/null
@@ -1,28 +0,0 @@
-Index: u_main.tk
-===================================================================
-RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
-retrieving revision 1.25
-diff -u -w -r1.25 u_main.tk
---- u_main.tk 9 Oct 2006 04:36:12 -0000 1.25
-+++ u_main.tk 10 Oct 2007 05:22:28 -0000
-@@ -549,6 +549,20 @@
- -command {menu_doc_open doc/1.manual index.htm}
- $mbar.help add command -label {Browser ...} \
- -command {menu_doc_browser $help_top_directory}
-+ $mbar.help add separator
-+ $mbar.help add command -label {puredata.org} \
-+ -command {menu_openhtml http://puredata.org}
-+ $mbar.help add command -label {Pdpedia} \
-+ -command {menu_openhtml http://pdpedia.org}
-+ $mbar.help add command -label {FAQ} \
-+ -command {menu_openhtml http://puredata.org/docs/faq}
-+ $mbar.help add separator
-+ $mbar.help add command -label {mailing lists} \
-+ -command {menu_openhtml http://puredata.org/community/lists}
-+ $mbar.help add command -label {forums} \
-+ -command {menu_openhtml http://puredata.org/community/forums}
-+ $mbar.help add command -label {IRC} \
-+ -command {menu_openhtml irc://irc.freenode.net/dataflow}
- }
-
- #################### the "File" menu for the Pd window ##############
diff --git a/packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch b/packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch
deleted file mode 100644
index a280732f..00000000
--- a/packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch
+++ /dev/null
@@ -1,27 +0,0 @@
-Index: u_main.tk
-===================================================================
-RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
-retrieving revision 1.17.2.16
-diff -u -w -r1.17.2.16 u_main.tk
---- u_main.tk 8 Jul 2007 21:56:30 -0000 1.17.2.16
-+++ u_main.tk 9 Jul 2007 16:29:16 -0000
-@@ -1618,6 +1619,7 @@
- }
-
- proc pdtk_canvas_ctrlkey {name key shift} {
-+ global pd_nt
- # first get rid of ".c" suffix; we'll refer to the toplevel instead
- set topname [string trimright $name .c]
- # puts stderr [concat ctrl-key $key $topname]
-@@ -1658,7 +1659,11 @@
- if {$key == "v" || $key == "V"} {menu_paste $topname}
- if {$key == "d" || $key == "D"} {menu_duplicate $topname}
- if {$key == "a" || $key == "A"} {menu_selectall $topname}
-+ if {$pd_nt == 2} { # by default, Cmd-T opens the font panel on Mac OS X
-+ if {$key == "t" || $key == "T"} {menu_font $topname}
-+ } else {
- if {$key == "t" || $key == "T"} {menu_texteditor $topname}
-+ }
- if {$key == "f" || $key == "F"} {menu_findobject $topname}
- if {$key == "g" || $key == "G"} {menu_findagain $topname}
- }
diff --git a/packages/patches/keybindings_and_panels-0.41-test06.patch b/packages/patches/keybindings_and_panels-0.41-test06.patch
deleted file mode 100644
index 82d76d4d..00000000
--- a/packages/patches/keybindings_and_panels-0.41-test06.patch
+++ /dev/null
@@ -1,648 +0,0 @@
-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
- }
-
diff --git a/packages/patches/pd_autoscrollbars-0.40-pre.patch b/packages/patches/pd_autoscrollbars-0.40-pre.patch
deleted file mode 100644
index 2582c28c..00000000
--- a/packages/patches/pd_autoscrollbars-0.40-pre.patch
+++ /dev/null
@@ -1,30 +0,0 @@
---- u_main.tk 2006-08-15 18:09:57.000000000 +0200
-+++ u_main.tk 2006-09-04 10:12:10.000000000 +0200
-@@ -1137,6 +1137,7 @@
- # bother with modifiers there.
- # We don't handle multiple clicks yet.
-
-+ bind $name.c <Configure> { pdtk_canvas_autoscrollbars %W %w %h }
- bind $name.c <Button> {pdtk_canvas_click %W %x %y %b 0}
- bind $name.c <Shift-Button> {pdtk_canvas_click %W %x %y %b 1}
- bind $name.c <Control-Shift-Button> {pdtk_canvas_click %W %x %y %b 3}
-@@ -1430,6 +1431,19 @@
- #get the name of the toplevel window for a canvas; this is also
- #the name of the canvas object in Pd.
-
-+proc pdtk_canvas_autoscrollbars {name x y} {
-+ set size [$name bbox all]
-+ set x2 [lindex $size 2]
-+ set y2 [lindex $size 3]
-+ set rootname [winfo parent $name]
-+ if {$x > $x2} {pack forget $rootname.scrollhort}
-+ if {$y > $y2} {pack forget $rootname.scrollvert}
-+ if {$x < $x2} {pack $rootname.scrollhort -side bottom \
-+ -fill x -before $rootname.c}
-+ if {$y < $y2} {pack $rootname.scrollvert -side right \
-+ -fill y -before $rootname.c}
-+}
-+
- proc canvastosym {name} {
- string range $name 0 [expr [string length $name] - 3]
- }
diff --git a/packages/patches/pd_controls-anchor-fix-0.40-pre.patch b/packages/patches/pd_controls-anchor-fix-0.40-pre.patch
deleted file mode 100644
index 2aa4e09a..00000000
--- a/packages/patches/pd_controls-anchor-fix-0.40-pre.patch
+++ /dev/null
@@ -1,20 +0,0 @@
---- u_main.tk 2006-08-15 18:09:57.000000000 +0200
-+++ u_main.tk 2006-09-04 09:41:46.000000000 +0200
-@@ -140,15 +140,14 @@
- frame .controls.switches
- checkbutton .controls.switches.audiobutton -text {compute audio} \
- -variable ctrls_audio_on \
-- -anchor w \
- -command {pd [concat pd dsp $ctrls_audio_on \;]}
-
- checkbutton .controls.switches.meterbutton -text {peak meters} \
- -variable ctrls_meter_on \
-- -anchor w \
- -command {pd [concat pd meters $ctrls_meter_on \;]}
-
--pack .controls.switches.audiobutton .controls.switches.meterbutton -side top
-+pack .controls.switches.audiobutton .controls.switches.meterbutton \
-+ -side top -anchor w
-
- frame .controls.inout
- frame .controls.inout.in
diff --git a/packages/patches/pd_hidden_file_dialogs-0.41.4.patch b/packages/patches/pd_hidden_file_dialogs-0.41.4.patch
deleted file mode 100644
index fc91f586..00000000
--- a/packages/patches/pd_hidden_file_dialogs-0.41.4.patch
+++ /dev/null
@@ -1,23 +0,0 @@
-*** u_main.tk 2007-10-25 06:18:43.000000000 -0500
---- u_main.tk 2008-04-09 16:49:00.000000000 -0500
-***************
-*** 39,44 ****
---- 39,56 ----
-
- # end Pd-extended font hacks -----------------------------
-
-+ # begin hack to hide hidden files/folder in tk browser on unix ----------
-+ if {$pd_nt == 0} {
-+ # load the dialog once, otherwise setting the vars will not work
-+ catch {tk_getOpenFile -with-invalid-argument}
-+
-+ # change the environment variables
-+ namespace eval ::tk::dialog::file {
-+ variable showHiddenBtn 1
-+ variable showHiddenVar 0
-+ }
-+ }
-+ # end hidden files/folder hack ------------------
-
- # Tearoff is set to true by default:
- set pd_tearoff 1
generated by cgit v1.2.1 (git 2.18.0) at 2024-12-28 19:46:22 +0000