diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-07-21 22:30:51 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-07-21 22:30:51 +0000 |
commit | 74a53fd5280ecb3e9364f29dc315469a97a72cc0 (patch) | |
tree | 47af9620f876f9fbb8a02cea6ba2b4cf97dee20c /packages/patches/pd_autoscrollbars-0.40-pre.patch | |
parent | 6a40415e3ab3b67dc2a9515727e74307235bd839 (diff) |
removed u_main.tk patches that have been incorporated into the 0.43 GUI rewrite
svn path=/trunk/; revision=13725
Diffstat (limited to 'packages/patches/pd_autoscrollbars-0.40-pre.patch')
-rw-r--r-- | packages/patches/pd_autoscrollbars-0.40-pre.patch | 30 |
1 files changed, 0 insertions, 30 deletions
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] - } |