Tk MainWindow per Shortcut Minimieren - #145525 (Graphische Oberflächen)

MatthiasW

2011-02-09 16:57

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Minimieren kannst du dein Fenster mittels $mw->iconify; und Wiederherstellen mittels $mw->deiconify;. Allerdings empfängt dein Fenster nach dem Minimieren keine Ereignisse mehr, deshalb wüsste ich momentan keine Lösung um nach dem Minimieren mittels Tastenkombi das Fenster wiederherstellen zu können. Nunja, je nachdem was der Benutzer nach dem Minimieren machen können soll, könntest du mit Hilfe eines zweiten Fensters, das erste wiederherstellen:

Code (perl): (dl )

$ perl -Mstrict -MTk -w
my $mw = tkinit;
my $tl = $mw->Toplevel;
$tl->geometry('=1x1+0+0');
$tl->withdraw;

$mw->bind('<Control-Shift-Key-M>' => sub {
    $mw->iconify;
    $tl->deiconify;
});
$tl->bind('<Control-Shift-Key-T>' => sub {
    $mw->deiconify;
    $tl->withdraw;
});

MainLoop;

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'