Opened by Gast at 2009-02-11 19:43
Hallo und schönen guten Abend
Ich möchte gern in einem Perl Script mit Tk eine Meldung über den Start des Scriptes ausgeben. Diese Meldung soll nach einer Zeit X z.B. 3 Sek ohne zutun des Nutzers verschwinden und mein Script läuft dann weiter.
Da ich noch nicht mit Tk gearbeitet habe bin ich nur soweit gekommen wie folgt:
-- mein Script --
Soweit läuft das auch, allerdings muss der User noch das Fenster wegklicken damit mein Script weiter läuft. Wie kann ich jetzt die Meldung so gestalten damit nach z.B. 3 sec das Fenster automatisch schließt und weiter läuft.
Vielen Dank im Voraus
Thomas
p.s. bin eigentlich Konsolenfreund habe mich mit Tk erst seid Heute befasst aber irgendwann ist immer das erstemal.
Ich möchte gern in einem Perl Script mit Tk eine Meldung über den Start des Scriptes ausgeben. Diese Meldung soll nach einer Zeit X z.B. 3 Sek ohne zutun des Nutzers verschwinden und mein Script läuft dann weiter.
Da ich noch nicht mit Tk gearbeitet habe bin ich nur soweit gekommen wie folgt:
Code: (dl
)
1
2
3
4
my $fenster = MainWindow->new();
my $meldung = $fenster->Label(-text =>'Start Script', ... )->pack()
Bei Label werden noch Breite Höhe als Parameter üebrgeben
MainLoop();
-- mein Script --
Soweit läuft das auch, allerdings muss der User noch das Fenster wegklicken damit mein Script weiter läuft. Wie kann ich jetzt die Meldung so gestalten damit nach z.B. 3 sec das Fenster automatisch schließt und weiter läuft.
Vielen Dank im Voraus
Thomas
p.s. bin eigentlich Konsolenfreund habe mich mit Tk erst seid Heute befasst aber irgendwann ist immer das erstemal.