aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--packages/patches/pd_autoscrollbars-0.40-pre.patch30
-rw-r--r--packages/patches/pd_controls-anchor-fix-0.40-pre.patch20
2 files changed, 50 insertions, 0 deletions
diff --git a/packages/patches/pd_autoscrollbars-0.40-pre.patch b/packages/patches/pd_autoscrollbars-0.40-pre.patch
new file mode 100644
index 00000000..2582c28c
--- /dev/null
+++ b/packages/patches/pd_autoscrollbars-0.40-pre.patch
@@ -0,0 +1,30 @@
+--- 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
new file mode 100644
index 00000000..2aa4e09a
--- /dev/null
+++ b/packages/patches/pd_controls-anchor-fix-0.40-pre.patch
@@ -0,0 +1,20 @@
+--- 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