bind nur einmal ausführen (Graphische Oberflächen)

[thread]12443[/thread]

bind nur einmal ausführen

Leser: 2

rommi

2008-09-04 14:50

User since
2005-03-03
54 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

gibt es eigentlich eine Möglichkeit bind nur einmal/zweimal auszuführen? Ich habe mir gedacht so in etwa wie der nachstehende Code, der aber so natürlich nicht funktioniert.

$anzahl = 1;
$HF = new MainWindow (-title => "Test");

if($anzahl eq 1)
{
$HF->bind('<FocusOut>', sub{$HF->messageBox (-message=>"Bitte Fenster\naktiviert lassen!");});
$anzahl++;
}

Liebe grüsse und danke, rommi

Gast Gast

2008-09-04 16:24

kann mann wieder "entbinden" :)

Code (perl): (dl )

#!/perl

use Tk;

my $mw = Tk::MainWindow->new;

$mw->bind('<FocusOut>',
        sub {
                $mw->messageBox (-message=>"Bitte Fenster\naktiviert lassen!");
                $mw->bind('<FocusOut>', []);
        }
);

Tk::MainLoop;

rommi

2008-09-04 18:58

User since
2005-03-03
54 Artikel
BenutzerIn
[default_avatar]

Hallo Gast!

Gerade ** ENTBUNDEN **. Es ist ein "Programm" und 14,6 KB schwer.
Nachdem Klapps auf den Hintern hat es dann auch gleich funktioniert :-)

Alles Bestens, danke für die Hilfestellung!

gruss rommi

View all threads created 2008-09-04 14:50.