Re^2: Tk::pack help


Don't ask to ask, just ask
	PerlMonks

Re^2: Tk::pack help

by sleepingsquirrel (Chaplain)

on Aug 03, 2004 at 20:36 UTC ( [id://379818]=note: print w/replies, xml )

Need Help??

in reply to Re: Tk::pack help
in thread Tk::pack help

Maybe closer to your needs...

#!/usr/bin/perl -w

use strict;
use Tk;

my $mw = MainWindow->new;

for (["A","B"],["C","D"],["E","F"],["G","H"])
{
    my $frame = $mw->Frame()->pack(-side => "top");
    $frame->Button(-text => "$_->[0]",)->pack(-side => "left");
    $frame->Button(-text => "$_->[1]",)->pack(-side => "left");
}

MainLoop;
[download]

-- All code is 100% tested and functional unless otherwise noted.