Re:perl Tk

[Jorge Goncalvez]

Hi , I have made a perl tk script with some labels.
Now i want to put a frame that contains alla labels how can I do this?

I tried this but it doesn't work it seems to ignore -width, -length options.
There is only a little frame at the left top which doen't surrond the labels.

My code:
my $mw = MainWindow->new( -title => "Serveur d'installation "
                         );
$mw->geometry('570x377');
$image = $mw->Photo(-file => "logo_alcatel.gif");
&makemenu;
&makeframe;
&makelabels;
$mw->repeat($msdelay,[\&check_syslog,$SYSLOG]);


MainLoop;

#------------------------ Subroutines ------------------------
sub makeframe
{
        $mw->Frame(-label => "Informations",
                   -relief => 'groove',
                   -borderwidth => 2,
                   -height => 10,
                   -width => 15)->pack(-anchor=>'w');



}





sub makelabels
{




$mw->Label(-text => 'Client Ethernet adress')->pack(-anchor=>'w');
my $label1=$mw->Label(-relief=>'sunken', 
                      -textvariable=>\$ethernet_address,
                      -width=>$lw,
                      -anchor=>'w',
                      -bg=>'white')->pack(-anchor=>'w');

$mw->Label(-text=> 'Client IP address')->pack(-anchor=>'w');
my $label2=$mw->Label(-relief=>'sunken',
                      -textvariable=>\$IP_address,
                      -width=>$lw,
                      -anchor=>'w',
                      -bg=>'white')->pack(-anchor=>'w');

$mw->Label(-text=> 'Client Name')->pack(-anchor=>'w');
my $label3=$mw->Label(-relief=>'sunken',
                      -textvariable=>\$client_name,
                      -width=>$lw,
                      -anchor=>'w',
                      -bg=>'white')->pack(-anchor=>'w');

$mw->Label(-text=> 'Boot File')->pack(-anchor=>'w');
my $label4=$mw->Label(-relief=>'sunken',
                      -textvariable=>\$boot_file,
                      -width=>$lw,
                      -anchor=>'w',
                      -bg=>'white')->pack(-anchor=>'w');

$mw->Label(-text=> 'Installation File Path')->pack(-anchor=>'w');
my $label5=$mw->Label(-relief=>'sunken',
                      -textvariable=>\$install_file_path,
                      -width=>$lw,
                      -anchor=>'w',
                      -bg=>'white')->pack(-anchor=>'w');
}


Thanks.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]