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.66 by root, Mon Jan 9 19:28:39 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 }
… …
907 917
908=item $lines_in_scrollback = $term->nsaved 918=item $lines_in_scrollback = $term->nsaved
909 919
910Return various integers describing terminal characteristics. 920Return various integers describing terminal characteristics.
911 921
922=item $lc_ctype = $term->locale
923
924Returns the LC_CTYPE category string used by this rxvt-unicode.
925
926=item $x_display = $term->display_id
927
928Return the DISPLAY used by rxvt-unicode.
929
912=item $modifiermask = $term->ModLevel3Mask 930=item $modifiermask = $term->ModLevel3Mask
913 931
914=item $modifiermask = $term->ModMetaMask 932=item $modifiermask = $term->ModMetaMask
915 933
916=item $modifiermask = $term->ModNumLockMask 934=item $modifiermask = $term->ModNumLockMask
… …
1092 $offset / $self->{ncol} + $self->{beg}, 1110 $offset / $self->{ncol} + $self->{beg},
1093 $offset % $self->{ncol} 1111 $offset % $self->{ncol}
1094 ) 1112 )
1095} 1113}
1096 1114
1097=item ($row, $col) = $line->coord_of ($offset)
1098=item $text = $term->special_encode $string 1115=item $text = $term->special_encode $string
1099 1116
1100Converts a perl string into the special encoding used by rxvt-unicode, 1117Converts a perl string into the special encoding used by rxvt-unicode,
1101where one character corresponds to one screen cell. See 1118where one character corresponds to one screen cell. See
1102C<< $term->ROW_t >> for details. 1119C<< $term->ROW_t >> for details.
… …
1104=item $string = $term->special_decode $text 1121=item $string = $term->special_decode $text
1105 1122
1106Converts rxvt-unicodes text reprsentation into a perl string. See 1123Converts rxvt-unicodes text reprsentation into a perl string. See
1107C<< $term->ROW_t >> for details. 1124C<< $term->ROW_t >> for details.
1108 1125
1126=item $success = $term->grab_button ($button, $modifiermask)
1127
1128Registers a synchronous button grab. See the XGrabButton manpage.
1129
1130=item $success = $term->grab ($eventtime[, $sync])
1131
1132Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1133synchronous (C<$sync> is true). Also remembers the grab timestampe.
1134
1135=item $term->allow_events_async
1136
1137Calls XAllowEvents with AsyncBoth for the most recent grab.
1138
1139=item $term->allow_events_sync
1140
1141Calls XAllowEvents with SyncBoth for the most recent grab.
1142
1143=item $term->allow_events_replay
1144
1145Calls XAllowEvents with both ReplayPointer and ReplayKeyboard for the most
1146recent grab.
1147
1148=item $term->ungrab
1149
1150Calls XUngrab for the most recent grab. Is called automatically on
1151evaluation errors, as it is better to lose the grab in the error case as
1152the session.
1153
1109=back 1154=back
1110 1155
1111=cut 1156=cut
1112 1157
1113package urxvt::popup; 1158package urxvt::popup;
… …
1136 $sep ||= "═"; 1181 $sep ||= "═";
1137 1182
1138 $self->add_item ({ 1183 $self->add_item ({
1139 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" }, 1184 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1140 text => "", 1185 text => "",
1141 render => sub { $sep x $urxvt::TERM->ncol }, 1186 render => sub { $sep x $self->{term}->ncol },
1142 activate => sub { }, 1187 activate => sub { },
1143 }); 1188 });
1144} 1189}
1145 1190
1146sub add_title { 1191sub add_title {
… …
1154} 1199}
1155 1200
1156sub add_button { 1201sub add_button {
1157 my ($self, $text, $cb) = @_; 1202 my ($self, $text, $cb) = @_;
1158 1203
1159 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); 1204 $self->add_item ({ type => "button", text => $text, activate => $cb});
1160} 1205}
1161 1206
1162sub add_toggle { 1207sub add_toggle {
1163 my ($self, $text, $cb, $value) = @_; 1208 my ($self, $text, $cb, $value) = @_;
1164 1209
… …
1176sub show { 1221sub show {
1177 my ($self) = @_; 1222 my ($self) = @_;
1178 1223
1179 local $urxvt::popup::self = $self; 1224 local $urxvt::popup::self = $self;
1180 1225
1226 local $ENV{LC_ALL} = $self->{term}->locale;
1227
1181 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1228 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
1182 "--transient-for" => $self->{term}->parent, 1229 "--transient-for" => $self->{term}->parent,
1230 "-display" => $self->{term}->display_id,
1183 "-pe" => "urxvt-popup") 1231 "-pe" => "urxvt-popup")
1184 or die "unable to create popup window\n"; 1232 or die "unable to create popup window\n";
1185} 1233}
1186 1234
1187sub DESTROY { 1235sub DESTROY {

Diff Legend

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