GUI mit Perl/Tk

Perl/Tk-GUI im Vollbildmodus

Das MainWindow von Perl/Tk kann im Vollbildmodus gestartet werden. Es füllt dann den gesamten Bildschirm aus. Sogar die Titelzeile ist dann nicht mehr zu sehen. Das lässt sich auch prima mit einer Canvas kombinieren, um den Bildschirm-Bereich völlig frei zu gestalten.

So geht's (Escape drücken, um den Modus wieder zu verlassen):

#!perl

use strict;
use warnings;
use Tk;

my $mw = Tk::MainWindow->new(-bg => 'white');

$mw->bind('all' => '<Key-Escape>' => sub {exit;});
$mw->FullScreen(1);
$mw->packPropagate(0);

$mw->Label(-text => 'Hinweis: Escape-Taste drücken, um den Vollbildmodus zu verlassen.')->pack;

$mw->MainLoop;
exit(0);

Fenster mit Mindestgröße oder Maximalgröße

In dem Kontext auch Wissenswert: so wird ein Fenster mit einer Mindestgröße versehen:

#!perl

use strict;
use warnings;
use Tk;

my $mw = Tk::MainWindow->new(-bg => 'white');
$mw->minsize(150, 150);

$mw->Label(-text => 'Kleiner geht\'s nicht')->pack;
$mw->Label(-text => 'Größer schon')->pack;

$mw->MainLoop;
exit(0);

Die maximale Größe kann ebenfalls festgelegt werden. Ein Benutzer kann das Fenster dann zwar kleiner ziehen, aber nicht mehr größer machen.

#!perl

use strict;
use warnings;
use Tk;

my $mw = Tk::MainWindow->new(-bg => 'white');
$mw->maxsize(300, 200);

$mw->Label(-text => 'Größer geht\'s nicht')->pack;
$mw->Label(-text => 'Kleiner schon')->pack;

$mw->MainLoop;
exit(0);

Quellen

Top