Kontextmenüs und Linux.: Perl/Tk (Graphische Oberflächen)

Crian

2005-01-03 20:10

User since
2003-08-04
5871 Artikel
ModeratorIn

Wie Renee herausgefunden hat, habe ich mit meinem GED (zu bekommen unter http://www.duehl.de/christian/perl/ged.html) Probleme mit den Kontextmenüs unter Linux. Sie verschwinden im Gegensatz zu Windows nicht, wenn man außerhalb des Menüs klickt.

Renees Bild zu dem Thema:

http://perl.renee-baecker.de/images/dialog_7.png

Ich erzeuge das Kontextmenü im Prinzip so:

Code: (dl )

        $mw->Menu(
            -tearoff   => 0,
            -menuitems => [ ... ],
        )->post($ax, $ay);

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2005-01-04 01:17

User since
2003-08-04
5246 Artikel
ModeratorIn

ein aehnliches problem (allerdings mit einem toplevel) hatte ich auch gerade mal; durch ein binding konnte ich das automatisch schliessen; ich glaube, es war <Leave> ... aber ich kann morgen nachschauen (komme momentan nicht an den code)

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2005-01-04 02:48

User since
2003-08-04
5871 Artikel
ModeratorIn

Wär nett wenn Du nachschauen könntest und berichten, wie DU das genau gemacht hast.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2005-01-04 18:19

User since
2003-08-04
5246 Artikel
ModeratorIn

Das hat bei mir funktioniert:

Code: (dl )

$topLevel->bind('<FocusOut>', sub { $topLevel->destroy; undef $topLevel });

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2005-01-17 19:16

User since
2003-08-04
5871 Artikel
ModeratorIn

Das ist ein Ansatz, aber bisher hab ich damit noch keinen Erfolg =(

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Crian

2005-01-17 19:44

User since
2003-08-04
5871 Artikel
ModeratorIn

So, habs hinbekommen =)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite