ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.158 by ayin, Wed Oct 31 15:17:51 2007 UTC vs.
Revision 1.164 by root, Mon Dec 24 08:21:40 2007 UTC

… …
40 40
41 @@RXVT_NAME@@ -pe <extensionname> 41 @@RXVT_NAME@@ -pe <extensionname>
42 42
43Or by adding them to the resource for extensions loaded by default: 43Or by adding them to the resource for extensions loaded by default:
44 44
45 URxvt.perl-ext-common: default,automove-background,selection-autotransform 45 URxvt.perl-ext-common: default,selection-autotransform
46 46
47=over 4 47=over 4
48 48
49=item selection (enabled by default) 49=item selection (enabled by default)
50 50
… …
165=item readline (enabled by default) 165=item readline (enabled by default)
166 166
167A support package that tries to make editing with readline easier. At 167A support package that tries to make editing with readline easier. At
168the moment, it reacts to clicking shift-left mouse button by trying to 168the moment, it reacts to clicking shift-left mouse button by trying to
169move the text cursor to this position. It does so by generating as many 169move the text cursor to this position. It does so by generating as many
170cursor-left or cursor-right keypresses as required (the this only works 170cursor-left or cursor-right keypresses as required (this only works
171for programs that correctly support wide characters). 171for programs that correctly support wide characters).
172 172
173To avoid too many false positives, this is only done when: 173To avoid too many false positives, this is only done when:
174 174
175=over 4 175=over 4
… …
302The accelerator key is grabbed regardless of any modifiers, so this 302The accelerator key is grabbed regardless of any modifiers, so this
303extension will actually grab a physical key just for this function. 303extension will actually grab a physical key just for this function.
304 304
305If you want a quake-like animation, tell your window manager to do so 305If you want a quake-like animation, tell your window manager to do so
306(fvwm can do it). 306(fvwm can do it).
307
308=item automove-background
309
310This is basically a very small extension that dynamically changes the
311background pixmap offset to the window position, in effect creating the
312same effect as pseudo transparency with a custom pixmap. No scaling is
313supported in this mode. Example:
314
315 @@RXVT_NAME@@ -pixmap background.xpm -pe automove-background
316
317L<http://wiki.archlinux.org/index.php/Perl_Background_Rotation/Extensions>
318shows how this extension can be used to implement an automatically blurred
319transparent background.
320 307
321=item block-graphics-to-ascii 308=item block-graphics-to-ascii
322 309
323A not very useful example of filtering all text output to the terminal 310A not very useful example of filtering all text output to the terminal
324by replacing all line-drawing characters (U+2500 .. U+259F) by a 311by replacing all line-drawing characters (U+2500 .. U+259F) by a
… …
1298 mouseWheelScrollPage name override_redirect pastableTabs path perl_eval 1285 mouseWheelScrollPage name override_redirect pastableTabs path perl_eval
1299 perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay 1286 perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay
1300 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar 1287 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar
1301 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness 1288 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness
1302 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle 1289 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle
1303 secondaryScreen secondaryScroll selectstyle shade term_name title 1290 secondaryScreen secondaryScroll shade term_name title
1304 transient_for transparent transparent_all tripleclickwords utmpInhibit 1291 transient_for transparent transparent_all tripleclickwords utmpInhibit
1305 visualBell 1292 visualBell
1306 1293
1307=cut 1294=cut
1308 1295
… …
1638automatically be updated. 1625automatically be updated.
1639 1626
1640C<$text> is in a special encoding: tabs and wide characters that use more 1627C<$text> is in a special encoding: tabs and wide characters that use more
1641than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535) 1628than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1642characters. Characters with combining characters and other characters that 1629characters. Characters with combining characters and other characters that
1643do not fit into the normal tetx encoding will be replaced with characters 1630do not fit into the normal text encoding will be replaced with characters
1644in the private use area. 1631in the private use area.
1645 1632
1646You have to obey this encoding when changing text. The advantage is 1633You have to obey this encoding when changing text. The advantage is
1647that C<substr> and similar functions work on screen cells and not on 1634that C<substr> and similar functions work on screen cells and not on
1648characters. 1635characters.
… …
1967 my $env = $self->{term}->env; 1954 my $env = $self->{term}->env;
1968 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. 1955 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE.
1969 delete $env->{LC_ALL}; 1956 delete $env->{LC_ALL};
1970 $env->{LC_CTYPE} = $self->{term}->locale; 1957 $env->{LC_CTYPE} = $self->{term}->locale;
1971 1958
1972 urxvt::term->new ($env, "popup", 1959 my $term = urxvt::term->new (
1960 $env, "popup",
1973 "--perl-lib" => "", "--perl-ext-common" => "", 1961 "--perl-lib" => "", "--perl-ext-common" => "",
1974 "-pty-fd" => -1, "-sl" => 0, 1962 "-pty-fd" => -1, "-sl" => 0,
1975 "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", 1963 "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect",
1976 "--transient-for" => $self->{term}->parent, 1964 "--transient-for" => $self->{term}->parent,
1977 "-display" => $self->{term}->display_id, 1965 "-display" => $self->{term}->display_id,
1978 "-pe" => "urxvt-popup") 1966 "-pe" => "urxvt-popup",
1979 or die "unable to create popup window\n"; 1967 ) or die "unable to create popup window\n";
1968
1969 unless (delete $term->{urxvt_popup_init_done}) {
1970 $term->ungrab;
1971 $term->destroy;
1972 die "unable to initialise popup window\n";
1973 }
1980} 1974}
1981 1975
1982sub DESTROY { 1976sub DESTROY {
1983 my ($self) = @_; 1977 my ($self) = @_;
1984 1978
… …
2055 2049
2056 $term->{socket} = ... 2050 $term->{socket} = ...
2057 $term->{iow} = urxvt::iow 2051 $term->{iow} = urxvt::iow
2058 ->new 2052 ->new
2059 ->fd (fileno $term->{socket}) 2053 ->fd (fileno $term->{socket})
2060 ->events (urxvt::EVENT_READ) 2054 ->events (urxvt::EV_READ)
2061 ->start 2055 ->start
2062 ->cb (sub { 2056 ->cb (sub {
2063 my ($iow, $revents) = @_; 2057 my ($iow, $revents) = @_;
2064 # $revents must be 1 here, no need to check 2058 # $revents must be 1 here, no need to check
2065 sysread $term->{socket}, my $buf, 8192 2059 sysread $term->{socket}, my $buf, 8192
… …
2083Set the file descriptor (not handle) to watch. 2077Set the file descriptor (not handle) to watch.
2084 2078
2085=item $iow = $iow->events ($eventmask) 2079=item $iow = $iow->events ($eventmask)
2086 2080
2087Set the event mask to watch. The only allowed values are 2081Set the event mask to watch. The only allowed values are
2088C<urxvt::EVENT_READ> and C<urxvt::EVENT_WRITE>, which might be ORed 2082C<urxvt::EV_READ> and C<urxvt::EV_WRITE>, which might be ORed
2089together, or C<urxvt::EVENT_NONE>. 2083together, or C<urxvt::EV_NONE>.
2090 2084
2091=item $iow = $iow->start 2085=item $iow = $iow->start
2092 2086
2093Start watching for requested events on the given handle. 2087Start watching for requested events on the given handle.
2094 2088

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines