Re: Scrolling a window

Hi David,

On 01/03/2010 2:37 PM, Swingle David-QWHM86 wrote:
> Hi, I'd like to scroll a window, but can't seem to get it work.  I've
> seen and tried code that scrolls widgets such as a listbox, but I want
> to scroll the entire window.  What I would prefer is that there be no
> scroll bars unless the user shrinks the window size so that widgets are
> now out of view.  First, I tried to associate the scrollbars with a
> frame, but I would get errors.  So, I tried using a canvas instead.  The
> code I have is below.  It will display scrollbars that do nothing.

I'm going to answer this from scratch again because the coffee hadn't 
kicked in the first time around and my answer was off.

For the lurking public, the scrolledwindow references ease the attaching 
and managing of auto-displaying scrollbars on scrollable windows.  It is 
part of what you (David) are actually looking for - the scrollable frame.

BWidget ScrollableFrame
http://docs.activestate.com/activetcl/8.5/bwidget/ScrollableFrame.html

This is the canvas-based widget which provides a way to scroll a 
collection of any other widgets as if in a frame.  You would wrap a 
ScrollableFrame in a ScrolledWindow for full effect, with a Tcl-based 
example at:

http://wiki.tcl.tk/1091 or http://wiki.tcl.tk/9924

converted to Tkx would be:

use strict;
use Tkx;
Tkx::package_require("BWidget");

my $mw = Tkx::widget->new(".");
my $sw = $mw->new_ScrolledWindow();
my $sf = $sw->new_ScrollableFrame();

$sw->g_pack(-fill => "both", -expand => 1);
$sw->setwidget($sf);

# This is the one tricky conversion.  We are getting a widget ref
# back from Tcl that has never been seen as a widget in Tkx, thus
# the Tkx::widget call makes the right kind of object.
my $subf = Tkx::widget->new($sf->getframe());

my $b;
for my $i (1..20) {
     for my $j (1..20) {
	$b = $subf->new_ttk__button(-text => "$i,$j",
				    -command => sub {exit;});
	$b->g_grid(-row => $i, -column => $j);
     }
}

Tkx::MainLoop;

Enjoy,

Jeff