bindings des menüs wegbekommen, geht das? - #105336 (Graphische Oberflächen)

MatthiasW

2008-01-29 21:21

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

Versuch mal mit bindtags() und Tk->break() zu arbeiten, so wie in perldoc Tk::bind beschrieben unter "Multiple Matches".

Also wenn du die Events an $mw bindest, dann versuchs mal so:

Code: (dl )

$mw -> bind(
    einEindeutigerTag =>
    '<Type>' => sub {
        # dein code
        Tk->break;
} );

$mw -> bindtags( [qw/einEindeutigerTag all/] );

edit: Evtl. brauchst du auch nur eines der beiden, kannste ja mal ausprobieren.

MfG

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