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.57 by root, Sun Jan 8 08:43:11 2006 UTC vs.
Revision 1.59 by root, Mon Jan 9 00:34:36 2006 UTC

… …
58 58
59=back 59=back
60 60
61=item option-popup (enabled by default) 61=item option-popup (enabled by default)
62 62
63Binds a popup menu to Ctrl-Button3 that lets you toggle (some) options at 63Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at
64runtime. 64runtime.
65
66=item selection-popup (enabled by default)
67
68Binds a popup menu to Ctrl-Button3 that lets you convert the selection
69text into various other formats/action.
65 70
66=item digital-clock 71=item digital-clock
67 72
68Displays a digital clock using the built-in overlay. 73Displays a digital clock using the built-in overlay.
69 74
… …
423 my $msg = join "", @_; 428 my $msg = join "", @_;
424 $msg .= "\n" 429 $msg .= "\n"
425 unless $msg =~ /\n$/; 430 unless $msg =~ /\n$/;
426 urxvt::warn ($msg); 431 urxvt::warn ($msg);
427 }; 432 };
433
434 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
435 delete $ENV{CDPATH};
428} 436}
429 437
430my @hook_count; 438my @hook_count;
431my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 439my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
432 440
… …
465 verbose 3, "loading extension '$path' into package '$pkg'"; 473 verbose 3, "loading extension '$path' into package '$pkg'";
466 474
467 open my $fh, "<:raw", $path 475 open my $fh, "<:raw", $path
468 or die "$path: $!"; 476 or die "$path: $!";
469 477
470 my $source = "package $pkg; use strict; use utf8;\n" 478 my $source = untaint "package $pkg; use strict; use utf8;\n"
471 . "use base urxvt::term::proxy::;\n" 479 . "use base urxvt::term::proxy::;\n"
472 . "#line 1 \"$path\"\n{\n" 480 . "#line 1 \"$path\"\n{\n"
473 . (do { local $/; <$fh> }) 481 . (do { local $/; <$fh> })
474 . "\n};\n1"; 482 . "\n};\n1";
475 483
476 $source =~ /(.*)/s and $source = $1; # untaint
477
478 eval $source or die "$path: $@"; 484 eval $source or die "$path: $@";
479 485
480 $pkg 486 $pkg
481 } 487 }
482} 488}
… …
493 499
494 my %want_ext; 500 my %want_ext;
495 501
496 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 502 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
497 if ($_ eq "default") { 503 if ($_ eq "default") {
498 $want_ext{$_}++ for qw(selection option-popup); 504 $want_ext{$_}++ for qw(selection option-popup selection-popup);
499 } elsif (/^-(.*)$/) { 505 } elsif (/^-(.*)$/) {
500 delete $want_ext{$1}; 506 delete $want_ext{$1};
501 } else { 507 } else {
502 $want_ext{$_}++; 508 $want_ext{$_}++;
503 } 509 }
… …
534 $proxy 540 $proxy
535 }, 541 },
536 @_, 542 @_,
537 ) and last; 543 ) and last;
538 }; 544 };
539 warn $@ if $@;#d# 545 if ($@) {
546 $TERM->ungrab; # better to lose the grab than the session
547 warn $@;
548 }
540 } 549 }
541 } 550 }
542 551
543 if ($htype == 1) { # DESTROY 552 if ($htype == 1) { # DESTROY
544 # remove hooks if unused 553 # remove hooks if unused
… …
572 } 581 }
573 1 582 1
574 } or die "FATAL: unable to compile method forwarder: $@"; 583 } or die "FATAL: unable to compile method forwarder: $@";
575 584
576 goto &$urxvt::term::proxy::AUTOLOAD; 585 goto &$urxvt::term::proxy::AUTOLOAD;
586}
587
588sub urxvt::term::proxy::DESTROY {
589 # nop
577} 590}
578 591
579# urxvt::destroy_hook 592# urxvt::destroy_hook
580 593
581sub urxvt::destroy_hook::DESTROY { 594sub urxvt::destroy_hook::DESTROY {
… …
1157 1170
1158 my $item; $item = { 1171 my $item; $item = {
1159 type => "button", 1172 type => "button",
1160 text => " $text", 1173 text => " $text",
1161 value => $value, 1174 value => $value,
1162 render => sub { ($item->{value} ? "* " : " ") . $text }, 1175 render => sub { ($_[0]{value} ? "* " : " ") . $text },
1163 activate => sub { $cb->($item->{value} = !$item->{value}); }, 1176 activate => sub { $cb->($_[0]{value} = !$_[0]{value}); },
1164 }; 1177 };
1165 1178
1166 $self->add_item ($item); 1179 $self->add_item ($item);
1167} 1180}
1168 1181
… …
1178} 1191}
1179 1192
1180sub DESTROY { 1193sub DESTROY {
1181 my ($self) = @_; 1194 my ($self) = @_;
1182 1195
1196 delete $self->{term}{_destroy}{$self};
1183 $self->{term}->ungrab; 1197 $self->{term}->ungrab;
1184} 1198}
1185 1199
1186=head2 The C<urxvt::timer> Class 1200=head2 The C<urxvt::timer> Class
1187 1201
… …
1291This variable controls the verbosity level of the perl extension. Higher 1305This variable controls the verbosity level of the perl extension. Higher
1292numbers indicate more verbose output. 1306numbers indicate more verbose output.
1293 1307
1294=over 4 1308=over 4
1295 1309
1296=item =0 - only fatal messages 1310=item == 0 - fatal messages
1297 1311
1298=item =3 - script loading and management 1312=item >= 3 - script loading and management
1299 1313
1300=item =10 - all events received 1314=item >=10 - all events received
1301 1315
1302=back 1316=back
1303 1317
1304=head1 AUTHOR 1318=head1 AUTHOR
1305 1319

Diff Legend

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