5 Einträge, 1 Seite |
1
2
3
4
5
6
7
unless ($FLG{'Toplevel'}) {
$FLG{'Toplevel'} = 1;
}
else {
$TopLevel->focus if ($Toplevel);
return 0;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
sub zeige_status{
if (! Exists($statusfenster)){
$statusfenster=$gui->Toplevel(-width => 400,
-height => 200);
$statusfenster->title("Status");
$statusfenster->Label (-text => "Statusfenster")->pack;
$statusfenster->Button (-text=> "close",
-command => [$statusfenster => "destroy"])->pack(-pady=>5
);
...
}else{
$statusfenster->deiconify();
$statusfenster->raise();
}
5 Einträge, 1 Seite |