I have been using a long time Perl with TK and it has been working fine and have been able to do everything I need besides one thing I have never been able to make work is to link a scrollbar to different GUI objects so that I can make a GUI which has more objects then can fit in the screen and that I can use a scrollbar to show them. Does anybody know if this is possible at all in Tk. I put a small example below to show what I mean, what if I have 40 buttons and I want to have them all in the GUI.
Pieter
#!c:/perl/bin/perl
use Tk;
$mw = MainWindow->new();
$mw->geometry('+0+0');
$mw->title( "Many buttons" );
## Create Frame of elements
my $frame= $mw->Frame(
-relief => 'groove',
-bd => 1,
-height => 5);
$frame->pack( -side => 'left',-pady => 1, -fill => 'x');
my $num_of_buttons=10;
#my num_of_buttons=40;
while ($num_of_buttons > 0)
{
## Create Button of elements
my $button = $frame->Button(
-font => 'system',
-text => "test",
-activebackground => 'cyan',
-width => 34,
-state => "active",
-relief => "raised",
);
$button->pack( -side => 'top', -fill => 'x' );
$num_of_buttons--;
}
MainLoop();