have a look at the Tk::Table module.
i have provided a trivial example below.
#------------------------------- 8< -------------------------------#
use strict;
use warnings;
use Tk;
use Tk::Table;
my $mw;
my $table;
my $txtEntry1;
my $txtEntry2;
$mw = new MainWindow();
$mw->title("Table Layout Example");
$table = $mw->Table(
-rows => 2,
-columns => 2,
-scrollbars => 0,
-takefocus => 0
)->pack;
$txtEntry1 = $table->Entry();
$txtEntry2 = $table->Entry();
$table->put(1,0,"Entry 1");
$table->put(1,1,$txtEntry1);
$table->put(2,0,"Entry 2");
$table->put(2,1,$txtEntry2);
MainLoop;
#------------------------------- 8< -------------------------------#
hth
toby
> -----Original Message-----
> From: Prabu Subroto [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, September 18, 2002 6:53 AM
> To: Milis Perl Beginners List
> Subject: Please...Help me. How to arrange my widget with pack
>
>
> Dear my friends,
>
> Any body would be so kind to teach me how to put label and input of a
> form in one row.
> I am meaning like this :
> "
> Name of person : [input column with entry widget]
> "
>
> Here I rewrote the code under below.
>
> Thank you very much in advance.
> #!/usr/bin/perl
> use Tk;
> my $MainWindow = MainWindow->new;
> $MainWindow->title("Data Entry Form");
>
> $MainWindow -> Label(-justify => 'left',
> -text => "Name of person : ")->pack;
> $NameOfPerson = $MainWindow -> Entry(-selectborderwidth => 10)->pack;
>
> $MainWindow -> Button(-text => "Close Form",
> -command => sub {exit})->pack;
>
> MainLoop;
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
