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

Strat

2005-08-12 01:37

User since
2003-08-04
5246 Artikel
ModeratorIn

ich mache das meistens 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');
...

Dann wird immer alles, was in $Status steht, angezeigt...\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/