… | |
… | |
255 | |
255 | |
256 | @@RXVT_NAME@@ -pt OnTheSpot -pe xim-onthespot |
256 | @@RXVT_NAME@@ -pt OnTheSpot -pe xim-onthespot |
257 | |
257 | |
258 | =item automove-background |
258 | =item automove-background |
259 | |
259 | |
260 | This is basically a one-line extension that dynamically changes the background pixmap offset |
260 | This is basically a very small extension that dynamically changes the |
261 | to the window position, in effect creating the same effect as pseudo transparency with |
261 | background pixmap offset to the window position, in effect creating the |
262 | a custom pixmap. No scaling is supported in this mode. Exmaple: |
262 | same effect as pseudo transparency with a custom pixmap. No scaling is |
|
|
263 | supported in this mode. Exmaple: |
263 | |
264 | |
264 | @@RXVT_NAME@@ -pixmap background.xpm -pe automove-background |
265 | @@RXVT_NAME@@ -pixmap background.xpm -pe automove-background |
265 | |
266 | |
266 | =item block-graphics-to-ascii |
267 | =item block-graphics-to-ascii |
267 | |
268 | |
… | |
… | |
368 | |
369 | |
369 | =back |
370 | =back |
370 | |
371 | |
371 | =head2 Extension Objects |
372 | =head2 Extension Objects |
372 | |
373 | |
373 | Very perl extension is a perl class. A separate perl object is created |
374 | Every perl extension is a perl class. A separate perl object is created |
374 | for each terminal and each extension and passed as the first parameter to |
375 | for each terminal and each extension and passed as the first parameter to |
375 | hooks. So extensions can use their C<$self> object without having to think |
376 | hooks. So extensions can use their C<$self> object without having to think |
376 | about other extensions, with the exception of methods and members that |
377 | about other extensions, with the exception of methods and members that |
377 | begin with an underscore character C<_>: these are reserved for internal |
378 | begin with an underscore character C<_>: these are reserved for internal |
378 | use. |
379 | use. |
… | |
… | |
493 | |
494 | |
494 | It is called before lines are scrolled out (so rows 0 .. min ($lines - 1, |
495 | It is called before lines are scrolled out (so rows 0 .. min ($lines - 1, |
495 | $nrow - 1) represent the lines to be scrolled out). C<$saved> is the total |
496 | $nrow - 1) represent the lines to be scrolled out). C<$saved> is the total |
496 | number of lines that will be in the scrollback buffer. |
497 | number of lines that will be in the scrollback buffer. |
497 | |
498 | |
|
|
499 | =item on_osc_seq $term, $op, $args |
|
|
500 | |
|
|
501 | Called on every OSC sequence and can be used to suppress it or modify its |
|
|
502 | behaviour. The default should be to return an empty list. A true value |
|
|
503 | suppresses execution of the request completely. Make sure you don't get |
|
|
504 | confused by recursive invocations when you output an osc sequence within |
|
|
505 | this callback. |
|
|
506 | |
|
|
507 | C<on_osc_seq_perl> should be used for new behaviour. |
|
|
508 | |
498 | =item on_osc_seq $term, $string |
509 | =item on_osc_seq_perl $term, $string |
499 | |
510 | |
500 | Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC = |
511 | Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC = |
501 | operating system command) is processed. Cursor position and other state |
512 | operating system command) is processed. Cursor position and other state |
502 | information is up-to-date when this happens. For interoperability, the |
513 | information is up-to-date when this happens. For interoperability, the |
503 | string should start with the extension name and a colon, to distinguish |
514 | string should start with the extension name and a colon, to distinguish |
… | |
… | |
897 | |
908 | |
898 | if (my $cb = $TERM->{_hook}[$htype]) { |
909 | if (my $cb = $TERM->{_hook}[$htype]) { |
899 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
910 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
900 | if $verbosity >= 10; |
911 | if $verbosity >= 10; |
901 | |
912 | |
902 | keys %$cb; |
913 | for my $pkg (keys %$cb) { |
903 | |
|
|
904 | while (my ($pkg, $cb) = each %$cb) { |
|
|
905 | my $retval_ = eval { $cb->($TERM->{_pkg}{$pkg}, @_) }; |
914 | my $retval_ = eval { $cb->{$pkg}->($TERM->{_pkg}{$pkg}, @_) }; |
906 | $retval ||= $retval_; |
915 | $retval ||= $retval_; |
907 | |
916 | |
908 | if ($@) { |
917 | if ($@) { |
909 | $TERM->ungrab; # better to lose the grab than the session |
918 | $TERM->ungrab; # better to lose the grab than the session |
910 | warn $@; |
919 | warn $@; |