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.61 by root, Mon Jan 9 01:36:56 2006 UTC vs.
Revision 1.73 by root, Tue Jan 10 04:23:39 2006 UTC

… …
65 65
66=item selection-popup (enabled by default) 66=item selection-popup (enabled by default)
67 67
68Binds a popup menu to Ctrl-Button3 that lets you convert the selection 68Binds a popup menu to Ctrl-Button3 that lets you convert the selection
69text into various other formats/action. 69text into various other formats/action.
70
71=item searchable-scrollback (enabled by default)
72
73Adds regex search functionality to the scrollback buffer, triggered by a
74hotkey (default: C<M-s>). When in search mode, terminal input/output is
75suspended, C</> starts an incremental regex search, C<n> searches further,
76C<p> jumps to the previous match. C<enter> leaves search mode at the
77current position and C<escape> returns to the original position.
70 78
71=item digital-clock 79=item digital-clock
72 80
73Displays a digital clock using the built-in overlay. 81Displays a digital clock using the built-in overlay.
74 82
… …
124Either binary data or - more common - a text string encoded in a 132Either binary data or - more common - a text string encoded in a
125locale-specific way. 133locale-specific way.
126 134
127=back 135=back
128 136
137=head2 Extension Objects
138
139Very perl extension is a perl class. A separate perl object is created
140for each terminal and each extension and passed as the first parameter to
141hooks. So extensions can use their C<$self> object without having to think
142about other extensions, with the exception of methods and members that
143begin with an underscore character C<_>: these are reserved for internal
144use.
145
146Although it isn't a C<urxvt::term> object, you can call all methods of the
147C<urxvt::term> class on this object.
148
149It has the following methods and data members:
150
151=over 4
152
153=item $urxvt_term = $self->{term}
154
155Returns the C<urxvt::term> object associated with this instance of the
156extension. This member I<must not> be changed in any way.
157
158=item $self->enable ($hook_name => $cb, [$hook_name => $cb..])
159
160Dynamically enable the given hooks (named without the C<on_> prefix) for
161this extension, replacing any previous hook. This is useful when you want
162to overwrite time-critical hooks only temporarily.
163
164=item $self->disable ($hook_name[, $hook_name..])
165
166Dynamically disable the given hooks.
167
168=back
169
129=head2 Hooks 170=head2 Hooks
130 171
131The following subroutines can be declared in extension files, and will be 172The following subroutines can be declared in extension files, and will be
132called whenever the relevant event happens. 173called whenever the relevant event happens.
133 174
134The first argument passed to them is an object private to each terminal 175The first argument passed to them is an extension oject as described in
135and extension package. You can call all C<urxvt::term> methods on it, but 176the in the C<Extension Objects> section.
136its not a real C<urxvt::term> object. Instead, the real C<urxvt::term>
137object that is shared between all packages is stored in the C<term>
138member. It is, however, blessed intot he package of the extension script,
139so for all practical purposes you can treat an extension script as a class.
140 177
141All of them must return a boolean value. If it is true, then the event 178B<All> of these hooks must return a boolean value. If it is true, then the
142counts as being I<consumed>, and the invocation of other hooks is skipped, 179event counts as being I<consumed>, and the invocation of other hooks is
143and the relevant action might not be carried out by the C++ code. 180skipped, and the relevant action might not be carried out by the C++ code.
144 181
145When in doubt, return a false value (preferably C<()>). 182I<< When in doubt, return a false value (preferably C<()>). >>
146 183
147=over 4 184=over 4
148 185
149=item on_init $term 186=item on_init $term
150 187
… …
226can filter/change and output the text yourself by returning a true value 263can filter/change and output the text yourself by returning a true value
227and calling C<< $term->scr_add_lines >> yourself. Please note that this 264and calling C<< $term->scr_add_lines >> yourself. Please note that this
228might be very slow, however, as your hook is called for B<all> text being 265might be very slow, however, as your hook is called for B<all> text being
229output. 266output.
230 267
268=item on_tt_write $term, $octets
269
270Called whenever some data is written to the tty/pty and can be used to
271suppress or filter tty input.
272
231=item on_line_update $term, $row 273=item on_line_update $term, $row
232 274
233Called whenever a line was updated or changed. Can be used to filter 275Called whenever a line was updated or changed. Can be used to filter
234screen output (e.g. underline urls or other useless stuff). Only lines 276screen output (e.g. underline urls or other useless stuff). Only lines
235that are being shown will be filtered, and, due to performance reasons, 277that are being shown will be filtered, and, due to performance reasons,
… …
267=item on_focus_out $term 309=item on_focus_out $term
268 310
269Called wheneever the window loses keyboard focus, before rxvt-unicode does 311Called wheneever the window loses keyboard focus, before rxvt-unicode does
270focus out processing. 312focus out processing.
271 313
272=item on_key_press $term, $event, $octets 314=item on_key_press $term, $event, $keysym, $octets
273 315
274=item on_key_release $term, $event 316=item on_key_release $term, $event, $keysym
275 317
276=item on_button_press $term, $event 318=item on_button_press $term, $event
277 319
278=item on_button_release $term, $event 320=item on_button_release $term, $event
279 321
… …
333that calls this function. 375that calls this function.
334 376
335Using this function has the advantage that its output ends up in the 377Using this function has the advantage that its output ends up in the
336correct place, e.g. on stderr of the connecting urxvtc client. 378correct place, e.g. on stderr of the connecting urxvtc client.
337 379
380=item $is_safe = urxvt::safe
381
382Returns true when it is safe to do potentially unsafe things, such as
383evaluating perl code specified by the user. This is true when urxvt was
384started setuid or setgid.
385
338=item $time = urxvt::NOW 386=item $time = urxvt::NOW
339 387
340Returns the "current time" (as per the event loop). 388Returns the "current time" (as per the event loop).
341 389
342=item urxvt::CurrentTime 390=item urxvt::CurrentTime
… …
405 453
406package urxvt; 454package urxvt;
407 455
408use utf8; 456use utf8;
409use strict; 457use strict;
458use Carp ();
410use Scalar::Util (); 459use Scalar::Util ();
411use List::Util (); 460use List::Util ();
412 461
413our $VERSION = 1; 462our $VERSION = 1;
414our $TERM; 463our $TERM;
415our @HOOKNAME; 464our @HOOKNAME;
465our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME;
416our %OPTION; 466our %OPTION;
467
417our $LIBDIR; 468our $LIBDIR;
469our $RESNAME;
470our $RESCLASS;
471our $RXVTNAME;
418 472
419BEGIN { 473BEGIN {
420 urxvt->bootstrap; 474 urxvt->bootstrap;
421 475
422 # overwrite perl's warn 476 # overwrite perl's warn
… …
439sub verbose { 493sub verbose {
440 my ($level, $msg) = @_; 494 my ($level, $msg) = @_;
441 warn "$msg\n" if $level <= $verbosity; 495 warn "$msg\n" if $level <= $verbosity;
442} 496}
443 497
444# find on_xxx subs in the package and register them
445# as hooks
446sub register_package($) {
447 my ($pkg) = @_;
448
449 for my $htype (0.. $#HOOKNAME) {
450 my $name = $HOOKNAME[$htype];
451
452 my $ref = $pkg->can ("on_" . lc $name)
453 or next;
454
455 $TERM->{_hook}[$htype]{$pkg} = $ref;
456 $hook_count[$htype]++
457 or set_should_invoke $htype, 1;
458 }
459}
460
461my $extension_pkg = "extension0000"; 498my $extension_pkg = "extension0000";
462my %extension_pkg; 499my %extension_pkg;
463 500
464# load a single script into its own package, once only 501# load a single script into its own package, once only
465sub extension_package($) { 502sub extension_package($) {
… …
471 verbose 3, "loading extension '$path' into package '$pkg'"; 508 verbose 3, "loading extension '$path' into package '$pkg'";
472 509
473 open my $fh, "<:raw", $path 510 open my $fh, "<:raw", $path
474 or die "$path: $!"; 511 or die "$path: $!";
475 512
513 my $source = untaint
476 my $source = untaint "package $pkg; use strict; use utf8;\n" 514 "package $pkg; use strict; use utf8;\n"
477 . "use base urxvt::term::proxy::;\n" 515 . "use base urxvt::term::extension::;\n"
478 . "#line 1 \"$path\"\n{\n" 516 . "#line 1 \"$path\"\n{\n"
479 . (do { local $/; <$fh> }) 517 . (do { local $/; <$fh> })
480 . "\n};\n1"; 518 . "\n};\n1";
481 519
520 eval $source
482 eval $source or die "$path: $@"; 521 or die "$path: $@";
483 522
484 $pkg 523 $pkg
485 } 524 }
486} 525}
487 526
… …
493 my $htype = shift; 532 my $htype = shift;
494 533
495 if ($htype == 0) { # INIT 534 if ($htype == 0) { # INIT
496 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 535 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
497 536
498 my %want_ext; 537 my %ext_arg;
499 538
500 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 539 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
501 if ($_ eq "default") { 540 if ($_ eq "default") {
502 $want_ext{$_}++ for qw(selection option-popup selection-popup); 541 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback);
503 } elsif (/^-(.*)$/) { 542 } elsif (/^-(.*)$/) {
504 delete $want_ext{$1}; 543 delete $ext_arg{$1};
544 } elsif (/^([^<]+)<(.*)>$/) {
545 push @{ $ext_arg{$1} }, $2;
505 } else { 546 } else {
506 $want_ext{$_}++; 547 $ext_arg{$_} ||= [];
507 } 548 }
508 } 549 }
509 550
510 for my $ext (keys %want_ext) { 551 while (my ($ext, $argv) = each %ext_arg) {
511 my @files = grep -f $_, map "$_/$ext", @dirs; 552 my @files = grep -f $_, map "$_/$ext", @dirs;
512 553
513 if (@files) { 554 if (@files) {
514 register_package extension_package $files[0]; 555 $TERM->register_package (extension_package $files[0], $argv);
515 } else { 556 } else {
516 warn "perl extension '$ext' not found in perl library search path\n"; 557 warn "perl extension '$ext' not found in perl library search path\n";
517 } 558 }
518 } 559 }
519 560
… …
528 if $verbosity >= 10; 569 if $verbosity >= 10;
529 570
530 keys %$cb; 571 keys %$cb;
531 572
532 while (my ($pkg, $cb) = each %$cb) { 573 while (my ($pkg, $cb) = each %$cb) {
533 eval { 574 $retval = eval { $cb->($TERM->{_pkg}{$pkg}, @_) }
534 $retval = $cb->(
535 $TERM->{_pkg}{$pkg} ||= do {
536 my $proxy = bless { }, $pkg;
537 Scalar::Util::weaken ($proxy->{term} = $TERM);
538 $proxy
539 },
540 @_,
541 ) and last; 575 and last;
542 }; 576
543 if ($@) { 577 if ($@) {
544 $TERM->ungrab; # better to lose the grab than the session 578 $TERM->ungrab; # better to lose the grab than the session
545 warn $@; 579 warn $@;
546 } 580 }
547 } 581 }
548 } 582 }
549 583
550 if ($htype == 1) { # DESTROY 584 if ($htype == 1) { # DESTROY
551 # remove hooks if unused
552 if (my $hook = $TERM->{_hook}) { 585 if (my $hook = delete $TERM->{_hook}) {
553 for my $htype (0..$#$hook) { 586 for my $htype (0..$#$hook) {
554 $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} } 587 $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} }
555 or set_should_invoke $htype, 0; 588 or set_should_invoke $htype, 0;
556 } 589 }
557 } 590 }
… …
564 } 597 }
565 598
566 $retval 599 $retval
567} 600}
568 601
569# urxvt::term::proxy 602# urxvt::term::extension
570 603
571sub urxvt::term::proxy::AUTOLOAD { 604package urxvt::term::extension;
572 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 605
606sub enable {
607 my ($self, %hook) = @_;
608 my $pkg = $self->{_pkg};
609
610 while (my ($name, $cb) = each %hook) {
611 my $htype = $HOOKTYPE{uc $name};
612 defined $htype
613 or Carp::croak "unsupported hook type '$name'";
614
615 unless (exists $self->{term}{_hook}[$htype]{$pkg}) {
616 $hook_count[$htype]++
617 or urxvt::set_should_invoke $htype, 1;
618 }
619
620 $self->{term}{_hook}[$htype]{$pkg} = $cb;
621 }
622}
623
624sub disable {
625 my ($self, @hook) = @_;
626 my $pkg = $self->{_pkg};
627
628 for my $name (@hook) {
629 my $htype = $HOOKTYPE{uc $name};
630 defined $htype
631 or Carp::croak "unsupported hook type '$name'";
632
633 if (delete $self->{term}{_hook}[$htype]{$pkg}) {
634 --$hook_count[$htype]
635 or urxvt::set_should_invoke $htype, 0;
636 }
637 }
638}
639
640our $AUTOLOAD;
641
642sub AUTOLOAD {
643 $AUTOLOAD =~ /:([^:]+)$/
573 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 644 or die "FATAL: \$AUTOLOAD '$AUTOLOAD' unparsable";
574 645
575 eval qq{ 646 eval qq{
576 sub $urxvt::term::proxy::AUTOLOAD { 647 sub $AUTOLOAD {
577 my \$proxy = shift; 648 my \$proxy = shift;
578 \$proxy->{term}->$1 (\@_) 649 \$proxy->{term}->$1 (\@_)
579 } 650 }
580 1 651 1
581 } or die "FATAL: unable to compile method forwarder: $@"; 652 } or die "FATAL: unable to compile method forwarder: $@";
582 653
583 goto &$urxvt::term::proxy::AUTOLOAD; 654 goto &$AUTOLOAD;
584} 655}
585 656
586sub urxvt::term::proxy::DESTROY { 657sub DESTROY {
587 # nop 658 # nop
588} 659}
589 660
590# urxvt::destroy_hook 661# urxvt::destroy_hook
591 662
… …
658 ${$_[0]}++; 729 ${$_[0]}++;
659} 730}
660 731
661sub urxvt::anyevent::condvar::wait { 732sub urxvt::anyevent::condvar::wait {
662 unless (${$_[0]}) { 733 unless (${$_[0]}) {
663 require Carp;
664 Carp::croak ("AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API"); 734 Carp::croak "AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API";
665 } 735 }
666} 736}
667 737
668package urxvt::term; 738package urxvt::term;
669 739
670=head2 The C<urxvt::term> Class 740=head2 The C<urxvt::term> Class
671 741
672=over 4 742=over 4
743
744=cut
745
746# find on_xxx subs in the package and register them
747# as hooks
748sub register_package {
749 my ($self, $pkg, $argv) = @_;
750
751 my $proxy = bless {
752 _pkg => $pkg,
753 argv => $argv,
754 }, $pkg;
755 Scalar::Util::weaken ($proxy->{term} = $self);
756
757 $self->{_pkg}{$pkg} = $proxy;
758
759 for my $name (@HOOKNAME) {
760 if (my $ref = $pkg->can ("on_" . lc $name)) {
761 $proxy->enable ($name => $ref);
762 }
763 }
764}
673 765
674=item $term->destroy 766=item $term->destroy
675 767
676Destroy the terminal object (close the window, free resources etc.). 768Destroy the terminal object (close the window, free resources etc.).
677 769
… …
731 my ($self, $name) = (shift, shift); 823 my ($self, $name) = (shift, shift);
732 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 824 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
733 &urxvt::term::_resource 825 &urxvt::term::_resource
734} 826}
735 827
828=item $success = $term->parse_keysym ($keysym_spec, $command_string)
829
830Adds a keymap translation exactly as specified via a resource. See the
831C<keysym> resource in the @@RXVT_NAME@@(1) manpage.
832
736=item $rend = $term->rstyle ([$new_rstyle]) 833=item $rend = $term->rstyle ([$new_rstyle])
737 834
738Return and optionally change the current rendition. Text that is output by 835Return and optionally change the current rendition. Text that is output by
739the terminal application will use this style. 836the terminal application will use this style.
740 837
… …
759 856
760=item $oldtext = $term->selection ([$newtext]) 857=item $oldtext = $term->selection ([$newtext])
761 858
762Return the current selection text and optionally replace it by C<$newtext>. 859Return the current selection text and optionally replace it by C<$newtext>.
763 860
764#=item $term->overlay ($x, $y, $text) 861=item $term->overlay_simple ($x, $y, $text)
765# 862
766#Create a simple multi-line overlay box. See the next method for details. 863Create a simple multi-line overlay box. See the next method for details.
767# 864
768#=cut 865=cut
769# 866
770#sub urxvt::term::scr_overlay { 867sub overlay_simple {
771# my ($self, $x, $y, $text) = @_; 868 my ($self, $x, $y, $text) = @_;
772# 869
773# my @lines = split /\n/, $text; 870 my @lines = split /\n/, $text;
774# 871
775# my $w = 0; 872 my $w = List::Util::max map $self->strwidth ($_), @lines;
776# for (map $self->strwidth ($_), @lines) { 873
777# $w = $_ if $w < $_;
778# }
779#
780# $self->scr_overlay_new ($x, $y, $w, scalar @lines); 874 my $overlay = $self->overlay ($x, $y, $w, scalar @lines);
781# $self->scr_overlay_set (0, $_, $lines[$_]) for 0.. $#lines; 875 $overlay->set (0, $_, $lines[$_]) for 0.. $#lines;
782#} 876
877 $overlay
878}
783 879
784=item $term->overlay ($x, $y, $width, $height[, $rstyle[, $border]]) 880=item $term->overlay ($x, $y, $width, $height[, $rstyle[, $border]])
785 881
786Create a new (empty) overlay at the given position with the given 882Create a new (empty) overlay at the given position with the given
787width/height. C<$rstyle> defines the initial rendition style 883width/height. C<$rstyle> defines the initial rendition style
… …
854 950
855=item $string = $term->locale_decode ($octets) 951=item $string = $term->locale_decode ($octets)
856 952
857Convert the given locale-encoded octets into a perl string. 953Convert the given locale-encoded octets into a perl string.
858 954
955=item $term->scr_xor_span ($beg_row, $beg_col, $end_row, $end_col[, $rstyle])
956
957XORs the rendition values in the given span with the provided value
958(default: C<RS_RVid>). Useful in refresh hooks to provide effects similar
959to the selection.
960
961=item $term->scr_xor_rect ($beg_row, $beg_col, $end_row, $end_col[, $rstyle1[, $rstyle2]])
962
963Similar to C<scr_xor_span>, but xors a rectangle instead. Trailing
964whitespace will additionally be xored with the C<$rstyle2>, which defaults
965to C<RS_RVid | RS_Uline>, which removes reverse video again and underlines
966it instead.
967
968=item $term->scr_bell
969
970Ring the bell!
971
859=item $term->scr_add_lines ($string) 972=item $term->scr_add_lines ($string)
860 973
861Write the given text string to the screen, as if output by the application 974Write the given text string to the screen, as if output by the application
862running inside the terminal. It may not contain command sequences (escape 975running inside the terminal. It may not contain command sequences (escape
863codes), but is free to use line feeds, carriage returns and tabs. The 976codes), but is free to use line feeds, carriage returns and tabs. The
… …
877 990
878Write the octets given in C<$data> to the tty (i.e. as program input). To 991Write the octets given in C<$data> to the tty (i.e. as program input). To
879pass characters instead of octets, you should convert your strings first 992pass characters instead of octets, you should convert your strings first
880to the locale-specific encoding using C<< $term->locale_encode >>. 993to the locale-specific encoding using C<< $term->locale_encode >>.
881 994
995=item $old_events = $term->pty_ev_events ([$new_events])
996
997Replaces the event mask of the pty watcher by the given event mask. Can
998be used to suppress input and output handling to the pty/tty. See the
999description of C<< urxvt::timer->events >>. Make sure to always restore
1000the previous value.
1001
882=item $windowid = $term->parent 1002=item $windowid = $term->parent
883 1003
884Return the window id of the toplevel window. 1004Return the window id of the toplevel window.
885 1005
886=item $windowid = $term->vt 1006=item $windowid = $term->vt
… …
910=item $nrow_plus_saveLines = $term->total_rows 1030=item $nrow_plus_saveLines = $term->total_rows
911 1031
912=item $lines_in_scrollback = $term->nsaved 1032=item $lines_in_scrollback = $term->nsaved
913 1033
914Return various integers describing terminal characteristics. 1034Return various integers describing terminal characteristics.
1035
1036=item $lc_ctype = $term->locale
1037
1038Returns the LC_CTYPE category string used by this rxvt-unicode.
1039
1040=item $x_display = $term->display_id
1041
1042Return the DISPLAY used by rxvt-unicode.
915 1043
916=item $modifiermask = $term->ModLevel3Mask 1044=item $modifiermask = $term->ModLevel3Mask
917 1045
918=item $modifiermask = $term->ModMetaMask 1046=item $modifiermask = $term->ModMetaMask
919 1047
… …
1109Converts rxvt-unicodes text reprsentation into a perl string. See 1237Converts rxvt-unicodes text reprsentation into a perl string. See
1110C<< $term->ROW_t >> for details. 1238C<< $term->ROW_t >> for details.
1111 1239
1112=item $success = $term->grab_button ($button, $modifiermask) 1240=item $success = $term->grab_button ($button, $modifiermask)
1113 1241
1114Registers a synchronous button grab. See XGrabButton. 1242Registers a synchronous button grab. See the XGrabButton manpage.
1115 1243
1116=item $success = $term->grab ($eventtime[, $sync]) 1244=item $success = $term->grab ($eventtime[, $sync])
1117 1245
1118Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or 1246Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1119synchronous (C<$sync> is true). Also remembers the grab timestampe. 1247synchronous (C<$sync> is true). Also remembers the grab timestampe.
… …
1162} 1290}
1163 1291
1164sub add_separator { 1292sub add_separator {
1165 my ($self, $sep) = @_; 1293 my ($self, $sep) = @_;
1166 1294
1167 $sep ||= "═"; 1295 $sep ||= "=";
1168 1296
1169 $self->add_item ({ 1297 $self->add_item ({
1170 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" }, 1298 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1171 text => "", 1299 text => "",
1172 render => sub { $sep x $urxvt::TERM->ncol }, 1300 render => sub { $sep x $self->{term}->ncol },
1173 activate => sub { }, 1301 activate => sub { },
1174 }); 1302 });
1175} 1303}
1176 1304
1177sub add_title { 1305sub add_title {
… …
1185} 1313}
1186 1314
1187sub add_button { 1315sub add_button {
1188 my ($self, $text, $cb) = @_; 1316 my ($self, $text, $cb) = @_;
1189 1317
1190 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); 1318 $self->add_item ({ type => "button", text => $text, activate => $cb});
1191} 1319}
1192 1320
1193sub add_toggle { 1321sub add_toggle {
1194 my ($self, $text, $cb, $value) = @_; 1322 my ($self, $text, $cb, $value) = @_;
1195 1323
… …
1207sub show { 1335sub show {
1208 my ($self) = @_; 1336 my ($self) = @_;
1209 1337
1210 local $urxvt::popup::self = $self; 1338 local $urxvt::popup::self = $self;
1211 1339
1340 local $ENV{LC_ALL} = $self->{term}->locale;
1341
1212 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1342 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
1213 "--transient-for" => $self->{term}->parent, 1343 "--transient-for" => $self->{term}->parent,
1344 "-display" => $self->{term}->display_id,
1214 "-pe" => "urxvt-popup") 1345 "-pe" => "urxvt-popup")
1215 or die "unable to create popup window\n"; 1346 or die "unable to create popup window\n";
1216} 1347}
1217 1348
1218sub DESTROY { 1349sub DESTROY {
… …
1281 1412
1282 $term->{socket} = ... 1413 $term->{socket} = ...
1283 $term->{iow} = urxvt::iow 1414 $term->{iow} = urxvt::iow
1284 ->new 1415 ->new
1285 ->fd (fileno $term->{socket}) 1416 ->fd (fileno $term->{socket})
1286 ->events (1) # wait for read data 1417 ->events (urxvt::EVENT_READ)
1287 ->start 1418 ->start
1288 ->cb (sub { 1419 ->cb (sub {
1289 my ($iow, $revents) = @_; 1420 my ($iow, $revents) = @_;
1290 # $revents must be 1 here, no need to check 1421 # $revents must be 1 here, no need to check
1291 sysread $term->{socket}, my $buf, 8192 1422 sysread $term->{socket}, my $buf, 8192
… …
1308 1439
1309Set the filedescriptor (not handle) to watch. 1440Set the filedescriptor (not handle) to watch.
1310 1441
1311=item $iow = $iow->events ($eventmask) 1442=item $iow = $iow->events ($eventmask)
1312 1443
1313Set the event mask to watch. Bit #0 (value C<1>) enables watching for read 1444Set the event mask to watch. The only allowed values are
1314data, Bit #1 (value C<2>) enables watching for write data. 1445C<urxvt::EVENT_READ> and C<urxvt::EVENT_WRITE>, which might be ORed
1446together, or C<urxvt::EVENT_NONE>.
1315 1447
1316=item $iow = $iow->start 1448=item $iow = $iow->start
1317 1449
1318Start watching for requested events on the given handle. 1450Start watching for requested events on the given handle.
1319 1451

Diff Legend

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