… | |
… | |
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 |
… | |
… | |
136 | additionally stores the first match in the current line into the primary |
153 | additionally stores the first match in the current line into the primary |
137 | selection. |
154 | selection. |
138 | |
155 | |
139 | =item readline (enabled by default) |
156 | =item readline (enabled by default) |
140 | |
157 | |
141 | A support package that tries to make editing with readline easier. At the |
158 | A support package that tries to make editing with readline easier. At |
142 | moment, it reacts to clicking with the left mouse button by trying to |
159 | the moment, it reacts to clicking shift-left mouse button by trying to |
143 | move the text cursor to this position. It does so by generating as many |
160 | move the text cursor to this position. It does so by generating as many |
144 | cursor-left or cursor-right keypresses as required (the this only works |
161 | cursor-left or cursor-right keypresses as required (the this only works |
145 | for programs that correctly support wide characters). |
162 | for programs that correctly support wide characters). |
146 | |
163 | |
147 | To avoid too many false positives, this is only done when: |
164 | To avoid too many false positives, this is only done when: |
… | |
… | |
535 | a C<perl:string> action bound to a key, see description of the B<keysym> |
552 | a C<perl:string> action bound to a key, see description of the B<keysym> |
536 | resource in the @@RXVT_NAME@@(1) manpage). |
553 | resource in the @@RXVT_NAME@@(1) manpage). |
537 | |
554 | |
538 | The event is simply the action string. This interface is assumed to change |
555 | The event is simply the action string. This interface is assumed to change |
539 | slightly in the future. |
556 | slightly in the future. |
|
|
557 | |
|
|
558 | =item on_resize_all_windows $tern, $new_width, $new_height |
|
|
559 | |
|
|
560 | Called just after the new window size has been calculcated, but before |
|
|
561 | windows are actually being resized or hints are being set. If this hook |
|
|
562 | returns TRUE, setting of the window hints is being skipped. |
540 | |
563 | |
541 | =item on_x_event $term, $event |
564 | =item on_x_event $term, $event |
542 | |
565 | |
543 | Called on every X event received on the vt window (and possibly other |
566 | Called on every X event received on the vt window (and possibly other |
544 | windows). Should only be used as a last resort. Most event structure |
567 | windows). Should only be used as a last resort. Most event structure |
… | |
… | |
854 | } else { |
877 | } else { |
855 | $ext_arg{$_} ||= []; |
878 | $ext_arg{$_} ||= []; |
856 | } |
879 | } |
857 | } |
880 | } |
858 | |
881 | |
859 | while (my ($ext, $argv) = each %ext_arg) { |
882 | for my $ext (sort keys %ext_arg) { |
860 | my @files = grep -f $_, map "$_/$ext", @dirs; |
883 | my @files = grep -f $_, map "$_/$ext", @dirs; |
861 | |
884 | |
862 | if (@files) { |
885 | if (@files) { |
863 | $TERM->register_package (extension_package $files[0], $argv); |
886 | $TERM->register_package (extension_package $files[0], $ext_arg{$ext}); |
864 | } else { |
887 | } else { |
865 | warn "perl extension '$ext' not found in perl library search path\n"; |
888 | warn "perl extension '$ext' not found in perl library search path\n"; |
866 | } |
889 | } |
867 | } |
890 | } |
868 | |
891 | |
… | |
… | |
1451 | =item $env = $term->env |
1474 | =item $env = $term->env |
1452 | |
1475 | |
1453 | Returns a copy of the environment in effect for the terminal as a hashref |
1476 | Returns a copy of the environment in effect for the terminal as a hashref |
1454 | similar to C<\%ENV>. |
1477 | similar to C<\%ENV>. |
1455 | |
1478 | |
|
|
1479 | =item @envv = $term->envv |
|
|
1480 | |
|
|
1481 | Returns the environment as array of strings of the form C<VAR=VALUE>. |
|
|
1482 | |
|
|
1483 | =item @argv = $term->argv |
|
|
1484 | |
|
|
1485 | Return the argument vector as this terminal, similar to @ARGV, but |
|
|
1486 | includes the program name as first element. |
|
|
1487 | |
1456 | =cut |
1488 | =cut |
1457 | |
1489 | |
1458 | sub env { |
1490 | sub env { |
1459 | if (my $env = $_[0]->_env) { |
|
|
1460 | +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), @$env } |
1491 | +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), $_[0]->envv } |
1461 | } else { |
|
|
1462 | +{ %ENV } |
|
|
1463 | } |
|
|
1464 | } |
1492 | } |
1465 | |
1493 | |
1466 | =item $modifiermask = $term->ModLevel3Mask |
1494 | =item $modifiermask = $term->ModLevel3Mask |
1467 | |
1495 | |
1468 | =item $modifiermask = $term->ModMetaMask |
1496 | =item $modifiermask = $term->ModMetaMask |
… | |
… | |
1799 | my ($self, $text, $cb) = @_; |
1827 | my ($self, $text, $cb) = @_; |
1800 | |
1828 | |
1801 | $self->add_item ({ type => "button", text => $text, activate => $cb}); |
1829 | $self->add_item ({ type => "button", text => $text, activate => $cb}); |
1802 | } |
1830 | } |
1803 | |
1831 | |
1804 | =item $popup->add_toggle ($text, $cb, $initial_value) |
1832 | =item $popup->add_toggle ($text, $initial_value, $cb) |
1805 | |
1833 | |
1806 | Adds a toggle/checkbox item to the popup. Teh callback gets called |
1834 | 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 |
1835 | whenever it gets toggled, with a boolean indicating its new value as its |
1808 | argument. |
1836 | first argument. |
1809 | |
1837 | |
1810 | =cut |
1838 | =cut |
1811 | |
1839 | |
1812 | sub add_toggle { |
1840 | sub add_toggle { |
1813 | my ($self, $text, $cb, $value) = @_; |
1841 | my ($self, $text, $value, $cb) = @_; |
1814 | |
1842 | |
1815 | my $item; $item = { |
1843 | my $item; $item = { |
1816 | type => "button", |
1844 | type => "button", |
1817 | text => " $text", |
1845 | text => " $text", |
1818 | value => $value, |
1846 | value => $value, |