… | |
… | |
153 | 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 |
154 | selection. |
154 | selection. |
155 | |
155 | |
156 | =item readline (enabled by default) |
156 | =item readline (enabled by default) |
157 | |
157 | |
158 | 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 |
159 | 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 |
160 | 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 |
161 | 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 |
162 | for programs that correctly support wide characters). |
162 | for programs that correctly support wide characters). |
163 | |
163 | |
164 | To avoid too many false positives, this is only done when: |
164 | To avoid too many false positives, this is only done when: |
… | |
… | |
552 | 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> |
553 | resource in the @@RXVT_NAME@@(1) manpage). |
553 | resource in the @@RXVT_NAME@@(1) manpage). |
554 | |
554 | |
555 | 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 |
556 | 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. |
557 | |
563 | |
558 | =item on_x_event $term, $event |
564 | =item on_x_event $term, $event |
559 | |
565 | |
560 | 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 |
561 | 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 |
… | |
… | |
1468 | =item $env = $term->env |
1474 | =item $env = $term->env |
1469 | |
1475 | |
1470 | 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 |
1471 | similar to C<\%ENV>. |
1477 | similar to C<\%ENV>. |
1472 | |
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 | |
1473 | =cut |
1488 | =cut |
1474 | |
1489 | |
1475 | sub env { |
1490 | sub env { |
1476 | if (my $env = $_[0]->_env) { |
|
|
1477 | +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), @$env } |
1491 | +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), $_[0]->envv } |
1478 | } else { |
|
|
1479 | +{ %ENV } |
|
|
1480 | } |
|
|
1481 | } |
1492 | } |
1482 | |
1493 | |
1483 | =item $modifiermask = $term->ModLevel3Mask |
1494 | =item $modifiermask = $term->ModLevel3Mask |
1484 | |
1495 | |
1485 | =item $modifiermask = $term->ModMetaMask |
1496 | =item $modifiermask = $term->ModMetaMask |