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
