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.58 by root, Sun Jan 8 22:58:13 2006 UTC vs.
Revision 1.64 by root, Mon Jan 9 06:29:47 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
… …
200 205
201It is called before lines are scrolled out (so rows 0 .. min ($lines - 1, 206It is called before lines are scrolled out (so rows 0 .. min ($lines - 1,
202$nrow - 1) represent the lines to be scrolled out). C<$saved> is the total 207$nrow - 1) represent the lines to be scrolled out). C<$saved> is the total
203number of lines that will be in the scrollback buffer. 208number of lines that will be in the scrollback buffer.
204 209
205=item on_tty_activity $term *NYI*
206
207Called whenever the program(s) running in the urxvt window send output.
208
209=item on_osc_seq $term, $string 210=item on_osc_seq $term, $string
210 211
211Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC = 212Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
212operating system command) is processed. Cursor position and other state 213operating system command) is processed. Cursor position and other state
213information is up-to-date when this happens. For interoperability, the 214information is up-to-date when this happens. For interoperability, the
… …
331newline. The module also overwrites the C<warn> builtin with a function 332newline. The module also overwrites the C<warn> builtin with a function
332that calls this function. 333that calls this function.
333 334
334Using this function has the advantage that its output ends up in the 335Using this function has the advantage that its output ends up in the
335correct place, e.g. on stderr of the connecting urxvtc client. 336correct place, e.g. on stderr of the connecting urxvtc client.
337
338=item $is_safe = urxvt::safe
339
340Returns true when it is safe to do potentially unsafe things, such as
341evaluating perl code specified by the user. This is true when urxvt was
342started setuid or setgid.
336 343
337=item $time = urxvt::NOW 344=item $time = urxvt::NOW
338 345
339Returns the "current time" (as per the event loop). 346Returns the "current time" (as per the event loop).
340 347
… …
423 my $msg = join "", @_; 430 my $msg = join "", @_;
424 $msg .= "\n" 431 $msg .= "\n"
425 unless $msg =~ /\n$/; 432 unless $msg =~ /\n$/;
426 urxvt::warn ($msg); 433 urxvt::warn ($msg);
427 }; 434 };
435
436 delete $ENV{IFS};
437 delete $ENV{CDPATH};
438 delete $ENV{BASH_ENV};
439 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
428} 440}
429 441
430my @hook_count; 442my @hook_count;
431my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 443my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
432 444
… …
465 verbose 3, "loading extension '$path' into package '$pkg'"; 477 verbose 3, "loading extension '$path' into package '$pkg'";
466 478
467 open my $fh, "<:raw", $path 479 open my $fh, "<:raw", $path
468 or die "$path: $!"; 480 or die "$path: $!";
469 481
470 my $source = "package $pkg; use strict; use utf8;\n" 482 my $source = untaint "package $pkg; use strict; use utf8;\n"
471 . "use base urxvt::term::proxy::;\n" 483 . "use base urxvt::term::proxy::;\n"
472 . "#line 1 \"$path\"\n{\n" 484 . "#line 1 \"$path\"\n{\n"
473 . (do { local $/; <$fh> }) 485 . (do { local $/; <$fh> })
474 . "\n};\n1"; 486 . "\n};\n1";
475 487
476 $source =~ /(.*)/s and $source = $1; # untaint
477
478 eval $source or die "$path: $@"; 488 eval $source or die "$path: $@";
479 489
480 $pkg 490 $pkg
481 } 491 }
482} 492}
… …
493 503
494 my %want_ext; 504 my %want_ext;
495 505
496 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 506 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
497 if ($_ eq "default") { 507 if ($_ eq "default") {
498 $want_ext{$_}++ for qw(selection option-popup); 508 $want_ext{$_}++ for qw(selection option-popup selection-popup);
499 } elsif (/^-(.*)$/) { 509 } elsif (/^-(.*)$/) {
500 delete $want_ext{$1}; 510 delete $want_ext{$1};
501 } else { 511 } else {
502 $want_ext{$_}++; 512 $want_ext{$_}++;
503 } 513 }
… …
1092 $offset / $self->{ncol} + $self->{beg}, 1102 $offset / $self->{ncol} + $self->{beg},
1093 $offset % $self->{ncol} 1103 $offset % $self->{ncol}
1094 ) 1104 )
1095} 1105}
1096 1106
1097=item ($row, $col) = $line->coord_of ($offset)
1098=item $text = $term->special_encode $string 1107=item $text = $term->special_encode $string
1099 1108
1100Converts a perl string into the special encoding used by rxvt-unicode, 1109Converts a perl string into the special encoding used by rxvt-unicode,
1101where one character corresponds to one screen cell. See 1110where one character corresponds to one screen cell. See
1102C<< $term->ROW_t >> for details. 1111C<< $term->ROW_t >> for details.
1103 1112
1104=item $string = $term->special_decode $text 1113=item $string = $term->special_decode $text
1105 1114
1106Converts rxvt-unicodes text reprsentation into a perl string. See 1115Converts rxvt-unicodes text reprsentation into a perl string. See
1107C<< $term->ROW_t >> for details. 1116C<< $term->ROW_t >> for details.
1117
1118=item $success = $term->grab_button ($button, $modifiermask)
1119
1120Registers a synchronous button grab. See the XGrabButton manpage.
1121
1122=item $success = $term->grab ($eventtime[, $sync])
1123
1124Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1125synchronous (C<$sync> is true). Also remembers the grab timestampe.
1126
1127=item $term->allow_events_async
1128
1129Calls XAllowEvents with AsyncBoth for the most recent grab.
1130
1131=item $term->allow_events_sync
1132
1133Calls XAllowEvents with SyncBoth for the most recent grab.
1134
1135=item $term->allow_events_replay
1136
1137Calls XAllowEvents with both ReplayPointer and ReplayKeyboard for the most
1138recent grab.
1139
1140=item $term->ungrab
1141
1142Calls XUngrab for the most recent grab. Is called automatically on
1143evaluation errors, as it is better to lose the grab in the error case as
1144the session.
1108 1145
1109=back 1146=back
1110 1147
1111=cut 1148=cut
1112 1149
… …
1154} 1191}
1155 1192
1156sub add_button { 1193sub add_button {
1157 my ($self, $text, $cb) = @_; 1194 my ($self, $text, $cb) = @_;
1158 1195
1159 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); 1196 $self->add_item ({ type => "button", text => $text, activate => $cb});
1160} 1197}
1161 1198
1162sub add_toggle { 1199sub add_toggle {
1163 my ($self, $text, $cb, $value) = @_; 1200 my ($self, $text, $cb, $value) = @_;
1164 1201
… …
1178 1215
1179 local $urxvt::popup::self = $self; 1216 local $urxvt::popup::self = $self;
1180 1217
1181 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1218 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
1182 "--transient-for" => $self->{term}->parent, 1219 "--transient-for" => $self->{term}->parent,
1220 "-display" => $self->{term}->display_id,
1183 "-pe" => "urxvt-popup") 1221 "-pe" => "urxvt-popup")
1184 or die "unable to create popup window\n"; 1222 or die "unable to create popup window\n";
1185} 1223}
1186 1224
1187sub DESTROY { 1225sub DESTROY {

Diff Legend

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