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]
