🚀 go-pugleaf

> Użytkownik "Googie" <googie@no.spam.org> napisał w wiadomości
news:d88o0q$o9$1@srv.cyf-kr.edu.pl...
> Tworzę sobie menu za pomoc? komendy: menu .m
> Potem dodaję do niego kilka pozycji.
> Następnie pokazuję to menu za pomoc?: .m post 20 20
>
> Działa. Ale...
>
> Problem w tym, że aby to menu zniknęło, to muszę co? z niego wybrać. Nie
> znika, gdy kliknię gdziekolwiek indziej - a nie zawsze mogę chcieć co?
> wybrać. Jak to zrobić?
>
> Platforma to Win2000.

Platforma też Win2000. Menu tworzę tak:

menu .s -tearoff 0
     .s add command -label {label1} -command {polecenie1}
     .s add command -label {label2} -command {polecenie2}

Wywołuję (z listbox'a):

bind kontrolka <Double-Button-1> {tk_popup .s %X %Y}

I gdy powinno to znika.

> Platforma też Win2000. Menu tworzę tak:
>
> menu .s -tearoff 0
>      .s add command -label {label1} -command {polecenie1}
>      .s add command -label {label2} -command {polecenie2}
>
> Wywołuję (z listbox'a):
>
> bind kontrolka <Double-Button-1> {tk_popup .s %X %Y}
>
> I gdy powinno to znika.

Hm... rzeczywiscie. Generalnie dziala dobrze, ale problem pojawia sie przy
"postowaniu" menu w tray'u (przy zdarzeniu klikniecia na ikonce dodanej
przez rozszerzenie winico). Dziwne - metoda "postowania" niczym sie nie
rozni :/

Googie napisał(a):
> Hm... rzeczywiscie. Generalnie dziala dobrze, ale problem pojawia sie przy
> "postowaniu" menu w tray'u (przy zdarzeniu klikniecia na ikonce dodanej
> przez rozszerzenie winico). Dziwne - metoda "postowania" niczym sie nie
> rozni :/

Wystarczy zrobic

toplevel .jakiesokno
wm overrideredirect .jakiesokno 1
wm geometry .jakiesokno 0x0-1-1

proc callback {m x y} {
     if {$m == "WM_LBUTTONUP"} {
         focus -force .jakiesokno
         .menu post $x $y
     }
}

ps. Wlasnie sie bawilem, to nie jest w 100% sprawdzone na kazdym 
Windowsie etc. W kazdym razie dziala lepiej niz bez, jak ktos to 
udoskonali to prosilbym o post tutaj :)

-- 
WK