Tk::WaitBoxFixed - Bitte-Warten-Dialog

Eine Tk::WaitBoxFixed ist ein modaler Dialog, den man anzeigen kann, um dem Nutzer mitzuteilen, dass er auf das Programm warten muss. Das ist dann praktisch, wenn eine Aufgabe längere Zeit braucht, bis sie beendet ist und der Nutzer in dieser Zeit nicht weiter mit der Applikation arbeiten soll.

Tk::WaitBoxFixed ist im Prinzip eine mit Bugfixes verbesserte Version von Tk::WaitBox.


Quellcode-Beispiel

#!perl

use strict;
use warnings;
use Tk;
use Tk::WaitBoxFixed;
use Tk::ProgressBar;

my $mw = Tk::MainWindow->new;
$mw->geometry('480x320');

my $wd = $mw->WaitBoxFixed(
                     -bitmap =>'questhead', # Default would be 'hourglass'
                     -txt1 => "Hurry up and Wait, my Drill Sergeant told me",
					 -txt2 => 'tick-tick-tick', #default would be 'Please Wait'
                     -title => 'Takes forever to get service around here',
);
$wd->configure(-cancelroutine => sub {
	print "\nI'm canceling....\n";
	$wd->unShow;
});
$wd->configure(-foreground => 'blue',-background => 'white');

$mw->Button(
	-text => 'click to see Tk::WaitBoxFixed',
	-command => sub{ $wd->Show; },
)->pack;

$mw->MainLoop;
exit(0);
Top