search

eserte / perl-tk

the perl module Tk
https://metacpan.org/release/Tk
Other
44 stars 31 forks source link

bounce.pl: use Tk 8 menubar #32

Closed chrstphrchvz closed 5 years ago

chrstphrchvz commented 6 years ago

As an exercise, I adapted the bouncing balls widget demo to use a Tk 8 style menubar instead of packed Menubuttons. That way, the native menubar gets used on macOS aqua. For readability, I also use a reference $simulate_menu instead of @menu_button_list[1] (so @menu_button_list isn't needed anymore), and refer to the Start/Stop entries by label rather than index.

chrstphrchvz commented 5 years ago

Actually, this syntax doesn't do what I want in Tcl::pTk. I will reopen this if I have a better way of doing it.