@@ -1,19 +1,42 @@ package require Tk +# This function updates the size of the frame +proc updateScrollableThing {path} { + set frame ${path}.frame + set canHeight [winfo height $path] + set height [winfo reqheight $frame ] + + if {0} { + if {$canHeight > $height} { + set height $canHeight + } + } + + set canWidth [winfo width $path] + set width [winfo reqwidth $frame] + + if {$canWidth > $width} { + set width $canWidth + } + + $path configure -scrollregion [list 0 0 $width $height] + $path itemconfigure CONTENTS -height $height -width $width +} + # This function makes a canvas at path and a frame inside it. # It returns the path to the canvas. # The frame is at $path.frame proc scrollableThing {path} { - canvas $path - set frame [frame $path.frame] + canvas $path + set frame [frame ${path}.frame ] $path create window 0 0 -tags CONTENTS -window $frame -anchor nw # This assumes that everything is in the frame and it's rendered # by 100ms from now after 100 " - set height \[winfo reqheight $frame\] - set width \[winfo reqwidth $frame\] - $path configure -scrollregion \[list 0 0 \$width \$height\] - $path itemconfigure CONTENTS -height \$height -width \$width + [list updateScrollableThing $path] + [list bind $path <Configure> [list updateScrollableThing $path]] + [list bind $frame <Configure> [list updateScrollableThing $path]] " + return $path } market/scrollable.tcl cd0e66f9f0aaea02b576db21370508e4008ec3a0 Christopher Vollick psycotica0@gmail.com http://github.com/singpolyma/xgame/commit/b0479c53b8857eb3f62ae7f2f92d4c4d658ba8d4 b0479c53b8857eb3f62ae7f2f92d4c4d658ba8d4 2009-01-07T06:20:49-08:00 2009-01-07T05:44:28-08:00 Updated scrollable.tcl Scrollable has been updated so that it binds the resizemejig to the configure event of the frame or the canvas. This means that the frame is now always as wide as the canvas, and the scrollarea will always be as tall as it needs to be. A "commented" out section has been left in. It does for height what has been done for width. It can be used, but in this case it seems to work better without it. Maybe. 25e39638437fa9baceb37c40d5be1c7c2814cae6 Christopher Vollick psycotica0@gmail.com