GUI.pm has several examples, just look for the code I mentioned. I'd only be cutting/pasting that code.

On 02/03/2010 10:31 AM, Swingle David-QWHM86 wrote:
Thanks!  Is there help on how to use widget::scrolledwindow and/or
examples that use it, or do I have to go thru GUI.pm and figure it out?
David

-----Original Message-----
From: Jeff Hobbs [mailto:je...@activestate.com]
Sent: Tuesday, March 02, 2010 1:17 PM
To: Swingle David-QWHM86
Cc: tcltk@perl.org
Subject: 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.

In order to scroll a set of widgets (rather than a single widget
designed for scrolling), you need to use a megawidget that actually
places the items on a canvas (which has a viewport for handling this).
Fortunately this case is common enough that there are a couple in the
tkkit.

The first is the BWidget ScrolledWindow.  You can find an example of
that in the tkx-ed code that ships with ActivePerl (look for
'new_ScrolledWindow').

The second (and my preferred) is package 'widget::scrolledwindow', with
an example in ActivePerl's lib/ActivePerl/PPM/GUI.pm (look for
'new_widget__scrolledwindow').

Indeed, the PPM GUI sources are a good source of Tkx code.  We wrote the
UI entirely in Tkx, just leveraging code in tkkit.  It has examples for
cross-platform considerations, improved styling with use of native
themed widgets, and advanced widget use cases.

Regards,

Jeff

Reply via email to