Jerry Kassebaum wrote:
> Friends,
>
> How do I put a Scrollbar on the following?
>
> ####
>
> use Tk;
> my $mw=new MainWindow;
> $mw->geometry("200x400+400+10"); # Width X height + from left + from top
>
my $f = $mw->Scrolled("Frame")->pack(qw/-side left -expand yes -fill
both/);
> @output=("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "a",
> "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l");
>
> while($output[$cnt]) {
>
> # $show=$mw->Checkbutton(-text, "$output[$cnt]")->pack(-anchor, "w");
>
$show=$f->Checkbutton(-text, "$output[$cnt]")->pack(-anchor, "w");
> $cnt++;
> }
>
> MainLoop;
>
> ####
>
> Thanks!
>
> Jerry
>
'use strict;' added at the top will highlight the need for a couple more
edits ;-)
HTH - Lynn.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
