[PD-dev] pd patch window automatic scrollbars

[Andre Schmidt]

hi list,

i finally got hacked a feature that i allways wanted:
automatic scrollbars :)

like, if the patch window is wider than the actual patch, dont show the
horizontal scrollbar, same for vertical. and of course show the
scrollbar(s) again, if patch bigger than window size...

i just started learning tcl/tk ~3 days ago, so this code may have
faults&co...

here we go (edit pd.tk)

add this: 
bind $name.c <Configure> { pdtk_canvas_scrollbars %W %w %h }
:some where (i have it by the other "bindings")

and add this:
proc pdtk_canvas_scrollbars {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}
}
:some where (i have it by the other "event bindings procedures")

thats it.

i dont know how i could use something like pd object [change] in those
pack if's... if needed ?

and having to use the same settings (-side, -fill) again doesnt sound
good neither....

well, atleast it seems to work :)

sleepy,
-andre

ps. sorry for line breaks, cant find the setting in my email client :/