1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | =head1 NAME |
3 | =head1 NAME |
4 | |
4 | |
5 | option-popup - option menu (enabled by default) |
5 | option-popup - option menu (enabled by default) |
6 | |
6 | |
7 | =head1 DESCRIPTION |
7 | =head1 DESCRIPTION |
8 | |
8 | |
9 | Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at |
9 | Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at |
10 | runtime. |
10 | runtime. |
11 | |
11 | |
12 | Other extensions can extend this popup menu by pushing a code reference |
12 | Other extensions can extend this popup menu by pushing a code reference |
13 | onto C<@{ $term->{option_popup_hook} }>, which gets called whenever the |
13 | onto C<< @{ $term->{option_popup_hook} } >>, which gets called whenever |
14 | popup is being displayed. |
14 | the popup is being displayed. |
15 | |
15 | |
16 | Its sole argument is the popup menu, which can be modified. It should |
16 | Its sole argument is the popup menu, which can be modified. It should |
17 | either return nothing or a string, the initial boolean value and a code |
17 | either return nothing or a string, the initial boolean value and a code |
18 | reference. The string will be used as button text and the code reference |
18 | reference. The string will be used as button text and the code reference |
19 | will be called when the toggle changes, with the new boolean value as |
19 | will be called when the toggle changes, with the new boolean value as |