| … | |
… | |
| 94 | =item option-popup (enabled by default) |
94 | =item option-popup (enabled by default) |
| 95 | |
95 | |
| 96 | Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at |
96 | Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at |
| 97 | runtime. |
97 | runtime. |
| 98 | |
98 | |
|
|
99 | Other extensions can extend this popup menu by pushing a code reference |
|
|
100 | onto C<@{ $term->{option_popup_hook} }>, which gets called whenever the |
|
|
101 | popup is being displayed. |
|
|
102 | |
|
|
103 | It's sole argument is the popup menu, which can be modified. It should |
|
|
104 | either return nothing or a string, the initial boolean value and a code |
|
|
105 | reference. The string will be used as button text and the code reference |
|
|
106 | will be called when the toggle changes, with the new boolean value as |
|
|
107 | first argument. |
|
|
108 | |
|
|
109 | The following will add an entry C<myoption> that changes |
|
|
110 | C<$self->{myoption}>: |
|
|
111 | |
|
|
112 | push @{ $self->{term}{option_popup_hook} }, sub { |
|
|
113 | ("my option" => $myoption, sub { $self->{myoption} = $_[0] }) |
|
|
114 | }; |
|
|
115 | |
| 99 | =item selection-popup (enabled by default) |
116 | =item selection-popup (enabled by default) |
| 100 | |
117 | |
| 101 | Binds a popup menu to Ctrl-Button3 that lets you convert the selection |
118 | Binds a popup menu to Ctrl-Button3 that lets you convert the selection |
| 102 | text into various other formats/action (such as uri unescaping, perl |
119 | text into various other formats/action (such as uri unescaping, perl |
| 103 | evaluation, web-browser starting etc.), depending on content. |
120 | evaluation, web-browser starting etc.), depending on content. |
| 104 | |
121 | |
| 105 | Other extensions can extend this popup menu by pushing a code reference |
122 | Other extensions can extend this popup menu by pushing a code reference |
| 106 | onto C<@{ $term->{selection_popup_hook} }>, that is called whenever the |
123 | onto C<@{ $term->{selection_popup_hook} }>, which gets called whenever the |
| 107 | popup is displayed. |
124 | popup is being displayed. |
| 108 | |
125 | |
| 109 | It's sole argument is the popup menu, which can be modified. The selection |
126 | It's sole argument is the popup menu, which can be modified. The selection |
| 110 | is in C<$_>, which can be used to decide wether to add something or not. |
127 | is in C<$_>, which can be used to decide wether to add something or not. |
| 111 | It should either return nothing or a string and a code reference. The |
128 | It should either return nothing or a string and a code reference. The |
| 112 | string will be used as button text and the code reference will be called |
129 | string will be used as button text and the code reference will be called |
| … | |
… | |
| 854 | } else { |
871 | } else { |
| 855 | $ext_arg{$_} ||= []; |
872 | $ext_arg{$_} ||= []; |
| 856 | } |
873 | } |
| 857 | } |
874 | } |
| 858 | |
875 | |
| 859 | while (my ($ext, $argv) = each %ext_arg) { |
876 | for my $ext (sort keys %ext_arg) { |
| 860 | my @files = grep -f $_, map "$_/$ext", @dirs; |
877 | my @files = grep -f $_, map "$_/$ext", @dirs; |
| 861 | |
878 | |
| 862 | if (@files) { |
879 | if (@files) { |
| 863 | $TERM->register_package (extension_package $files[0], $argv); |
880 | $TERM->register_package (extension_package $files[0], $ext_arg{$ext}); |
| 864 | } else { |
881 | } else { |
| 865 | warn "perl extension '$ext' not found in perl library search path\n"; |
882 | warn "perl extension '$ext' not found in perl library search path\n"; |
| 866 | } |
883 | } |
| 867 | } |
884 | } |
| 868 | |
885 | |
| … | |
… | |
| 1799 | my ($self, $text, $cb) = @_; |
1816 | my ($self, $text, $cb) = @_; |
| 1800 | |
1817 | |
| 1801 | $self->add_item ({ type => "button", text => $text, activate => $cb}); |
1818 | $self->add_item ({ type => "button", text => $text, activate => $cb}); |
| 1802 | } |
1819 | } |
| 1803 | |
1820 | |
| 1804 | =item $popup->add_toggle ($text, $cb, $initial_value) |
1821 | =item $popup->add_toggle ($text, $initial_value, $cb) |
| 1805 | |
1822 | |
| 1806 | Adds a toggle/checkbox item to the popup. Teh callback gets called |
1823 | Adds a toggle/checkbox item to the popup. The callback gets called |
| 1807 | whenever it gets toggled, with a boolean indicating its value as its first |
1824 | whenever it gets toggled, with a boolean indicating its new value as its |
| 1808 | argument. |
1825 | first argument. |
| 1809 | |
1826 | |
| 1810 | =cut |
1827 | =cut |
| 1811 | |
1828 | |
| 1812 | sub add_toggle { |
1829 | sub add_toggle { |
| 1813 | my ($self, $text, $cb, $value) = @_; |
1830 | my ($self, $text, $value, $cb) = @_; |
| 1814 | |
1831 | |
| 1815 | my $item; $item = { |
1832 | my $item; $item = { |
| 1816 | type => "button", |
1833 | type => "button", |
| 1817 | text => " $text", |
1834 | text => " $text", |
| 1818 | value => $value, |
1835 | value => $value, |
