Toplevel: Toplevel überschreiben - #44345 (Graphische Oberflächen)

eisbeer

2003-09-29 20:18

User since
2003-08-29
347 Artikel
BenutzerIn

Code: (dl )

unless ($FLG{'Toplevel'}) {
     $FLG{'Toplevel'} = 1;
}
else {
     $TopLevel->focus if ($Toplevel);
     return 0;
}

in %FLG sind alle deine Toplevels gespeichert,
du musst nur aufpassen, das du $FLG{'xyz'}
wieder auf undef/0 setzt wenn du dein Fenster
schliesst, sonst kannst es nämlich net öffnen :)

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...