exilepanda has asked for the wisdom of the Perl Monks concerning the following question:

Can somebody kindly tell me what's wrong with this code ? The scroll bar won't stick with the frame but just like another widget placing inside the frame. 
use Tk;
use Tk::Scrollbar;

my $mw = new MainWindow;

my $f = $mw -> Frame() -> pack;
$f->Button ( -text=> $_ )->pack for ( 1..50 ) ;
$f->Scrollbar () -> pack ;

MainLoop;

[download]

Replies are listed 'Best First'.
Re: Tk::Scrollbar don't know how to use it properly
by zentara (Cardinal) on Sep 11, 2014 at 09:58 UTC
    When you manually make Scrollbars, you must define what they do. Use a Tk::Scrolled widget if you want automatic scrolling. Sometimes, an short example is worth 10,000 words. See Re: I seek illumination and knowledge or 
    #!/usr/bin/perl

##########
use Tk;
use strict;

my $mw=tkinit;
my $c=$mw->Scrolled('Canvas',
 -width=>400,
 -height=>400,
 -bg=>'red',
 -scrollregion=>[0,0,1000,1000],
 -scrollbars=>'se')->pack(-expand=>1, -fill=>'both');

$c->create('rect',&n) for (0..40);

my $id = $mw->repeat(100,sub{
 $c->xviewScroll(1,'units');
 $c->yviewScroll(1,'units');
});
$mw->after(10000, sub{$id->cancel});
MainLoop;

sub n
{
  my ($x1,$y1) = ( rand(1000), rand(1000) );
  my ($x,$y) = ($x1/2,$y1/2);
  return ($x,$y,$x1,$y1);
}

    [download]
    I'm not really a human, but I play one on earth.
    Old Perl Programmer Haiku ................... flash japh
[reply]
[d/l]
Re: Tk::Scrollbar don't know how to use it properly ( Scrolled )
by Anonymous Monk on Sep 11, 2014 at 06:32 UTC
[reply]
[d/l]
      Thanks for reply, actually i have another piece of code that uses Tk::Scrolled, and it works perfectly ok… but i just like to give a try on Scrollbar, as its interf ace looks like i can "attach" a scroll bar after a widget is created, in contrast that a scroll widget wraps the real widget that i want to operate. Though, i am still learning how to read the GUI documentation at the same time.
[reply]
[reply]

Back to Seekers of Perl Wisdom