in reply to Scrollbars in Perl::Tk

You cannot pass Frame widget to Scrolled. Only those widgets that support -xscrollcommand and -yscrollcommand can be passed to Scrolled.

Unfortunately, at this point, no warning or error message will be given, and your attempt will just be quietly discarded.

Replies are listed 'Best First'.
Re: Re: Scrollbars in Perl::Tk
by PodMaster (Abbot) on Jan 15, 2004 at 07:01 UTC
    You cannot pass Frame widget to Scrolled.
    I know you can(works for me). 
    #!/usr/local/bin/perl -W
#tk.scroll.frame.pl
use Tk;
use strict;
use vars qw($top $drop);


$top = new MainWindow;
$top->Label(-text => "Enter the scroll frame")->pack;
$top = $top->Scrolled('Frame', -scrollbars => "osoe",)->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
MainLoop;

    [download]
    Anonymous Monk isn't showing enough code, but my ESP tells me he's got a logical error (not packing the frame he needs/wants it or not having it as a child of his scrollable frame or something).

    update: screenshot on my Win2K box, perl5.6.1, Tk 800.025.

    MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
    I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
    ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]

      For what it's worth, the example you posted runs without errors here, but yields a window without scrollbars.

      Tk 800.024, Perl 5.8.0, on a gentoo linux install running mostly stable packages.

      converter

[reply]
Re: Re: Scrollbars in Perl::Tk
by Anonymous Monk on Jan 15, 2004 at 07:22 UTC
    Thanks, that appears correct. I'll find some other way around this problem and let you know the result. :-)

    Dean
[reply]

In Section Seekers of Perl Wisdom