blob: 2582c28c76f06e3cdeec7b087aae0f3a7aef96f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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]
}
|
