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

[thread]11211[/thread]

bindings des menüs wegbekommen, geht das?

Leser: 1

#Kein Kommentar

2008-01-29 17:30

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

hallo,

ich arbeite zurzeit an einem programm das oben ein menü (durch Tk::Menu) besitzt.
Jetzt habe ich aber Events mit funktionen mit dem Alt-Key gesetzt, sodass immer, wenn die Alt-Taste gedrückt wird gleichzeitig die Funktion und oben das menü geöffnet wird.

kann ich das irgendwie untergraben oder wegbekommen, sodass mit der Alt-taste nur meine funktionen ausgeführt werden und das Menü geschlossen bleibt?

Betriebssystem ist windowsXP und Perl 5.8.822 mit Perl/Tk 804.027.

weiß jemand wie ich das hinbekomme?

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

#Kein Kommentar

2008-01-29 18:21

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

eigentlich reicht mir auch ne antwort, dass es wirklich überhaupt nicht geht.
denn dann würde ich ein eigenes menü programmieren...
(wollt mir nur keine doppelte arbeit machen)

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

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"'

#Kein Kommentar

2008-01-31 14:27

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

danke, ich schaue es mir mal an...

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

View all threads created 2008-01-29 17:30.