From f27668feb873e2b7abe31b7681797eb71b5c7a40 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 16 Sep 2006 17:03:13 +0000
Subject: added two nice, small GUI patches from oskude

svn path=/trunk/; revision=5949
---
 packages/patches/pd_autoscrollbars-0.40-pre.patch  | 30 ++++++++++++++++++++++
 .../patches/pd_controls-anchor-fix-0.40-pre.patch  | 20 +++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 packages/patches/pd_autoscrollbars-0.40-pre.patch
 create mode 100644 packages/patches/pd_controls-anchor-fix-0.40-pre.patch

(limited to 'packages')

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
-- 
cgit v1.2.1