Tk: Statusleiste am unteren Fensterrand: Welches Widget und wie? - #44337 (Graphische Oberflächen)

J-jayz-Z

2005-08-12 02:19

User since
2005-04-13
625 Artikel
BenutzerIn

Du meinst es wohl so:

Code: (dl )

use vars qw($Status);
$Status = "initializing...";


my $mw = MainWindow->new();
my $frameStatus = $mw->Frame(-relief => 'ridge', -border => 2)->pack(-side => 'bottom', -fill => 'x');
$frameStatus->Label(-text => 'Status: ')->pack(-side => 'left');
$frameStatus->Label(-textvariable => \$Status)->pack(-side => 'left');

\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de