Perl 使用Label 标签

<pre name="code" class="sql">grid 布局:

#!/usr/local/bin/perl
use Tk;
use dbi;
# Main Window
my $mw = new MainWindow;
#GUI Building Area


my $lab =  $mw -> Label(-text=>"BBBBBBBBBBBB");
##插入一行空白标签
my $lab1 =  $mw -> Label();
my $lab2 =  $mw -> Label(-text=>"AAAAAAAAAAAAA");



$lab -> grid(-row=>1,-column=>5,-columnspan=>1,-sticky=>"ew");
$lab1 -> grid(-row=>2,-column=>5,-columnspan=>1,-sticky=>"ew");
$lab2 -> grid(-row=>3,-column=>5,-columnspan=>1,-sticky=>"ew");
MainLoop;


Label标签


pack 布局:
use Tk;
use strict;  
use DBI; 
# Main Window
my $mw = new MainWindow;

my $frm2 = $mw -> Frame() ->pack(-side=>"top");

my $lab1 = $frm2 -> Label(-text=>"Start date:")->pack;
MainLoop;



use Tk;
use DBI; 
# Main Window
my $mw = new MainWindow;


my $lab =  $mw -> Label(-text=>"BBBBBBBBBBBB")->pack;
MainLoop;