diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2006-09-16 17:03:13 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2006-09-16 17:03:13 +0000 |
commit | f27668feb873e2b7abe31b7681797eb71b5c7a40 (patch) | |
tree | 0605349ac85a7b16d58fb50d41d32b7aa141735a /packages | |
parent | de69f5796d3f5cd0ae61b5ba7ccd130626aef0a5 (diff) |
added two nice, small GUI patches from oskude
svn path=/trunk/; revision=5949
Diffstat (limited to 'packages')
-rw-r--r-- | packages/patches/pd_autoscrollbars-0.40-pre.patch | 30 | ||||
-rw-r--r-- | packages/patches/pd_controls-anchor-fix-0.40-pre.patch | 20 |
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 |