🚀 go-pugleaf

Dnia 17.01.2007 Googie <no@spam.0rg> napisał/a:

> Więc wygląda to tak (piszę z głowy, nie testowałem poniższego):
>
> bind .menu <<MenuSelect>> "showHelp"
>
> proc showHelp {} {
> 	set selected [.menu entrycget active -label]
> 	# tutaj cokolwiek chcesz - masz do dyspozycji
> 	# tytul wybranej pozycji z menu w zmiennej selected
> }

Dzięki, to mnie faktycznie "naprowadza" - jest jednak jeszcze (mały chyba?)
problem, dla którego coś ciężko mi znaleźć rozwiązanie.

Otóż w powyższym on wykonuje - zgodnie z sensem "dowiązania" - procedurę
showHelp dla każdego przypadku "MenuSelect". Ale, żeby przejść do "menu
entry", najpierw trzeba je rozwinąć, klikając na widget; i on wtedy zgłasza
błąd, bo dla .menu nie ma ma ani operacji entrycget, ani też opcji -label.

Wstawiłbym tam if-a, który dopuszcza tego set-a (i resztę operacji
w procedurze showHelp) wyłącznie dla "menu entries" - ale jak rozróżnić, nad
czym teraz "prześlizguje się" kursor myszy - czy to jest "menu entry", czy
widget "menu", czy jeszcze coś-tam innego?

Chociaż dla if-a zasadniczo wystarczy mi informacja "akurat jestem nad .menu
entry".
-- 

Z>