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.59 by root, Mon Jan 9 00:34:36 2006 UTC vs.
Revision 1.66 by root, Mon Jan 9 19:28:39 2006 UTC

… …
205 205
206It 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,
207$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
208number of lines that will be in the scrollback buffer. 208number of lines that will be in the scrollback buffer.
209 209
210=item on_tty_activity $term *NYI*
211
212Called whenever the program(s) running in the urxvt window send output.
213
214=item on_osc_seq $term, $string 210=item on_osc_seq $term, $string
215 211
216Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC = 212Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
217operating system command) is processed. Cursor position and other state 213operating system command) is processed. Cursor position and other state
218information is up-to-date when this happens. For interoperability, the 214information is up-to-date when this happens. For interoperability, the
… …
336newline. The module also overwrites the C<warn> builtin with a function 332newline. The module also overwrites the C<warn> builtin with a function
337that calls this function. 333that calls this function.
338 334
339Using 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
340correct 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.
341 343
342=item $time = urxvt::NOW 344=item $time = urxvt::NOW
343 345
344Returns the "current time" (as per the event loop). 346Returns the "current time" (as per the event loop).
345 347
… …
429 $msg .= "\n" 431 $msg .= "\n"
430 unless $msg =~ /\n$/; 432 unless $msg =~ /\n$/;
431 urxvt::warn ($msg); 433 urxvt::warn ($msg);
432 }; 434 };
433 435
436 delete $ENV{IFS};
437 delete $ENV{CDPATH};
438 delete $ENV{BASH_ENV};
434 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; 439 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
435 delete $ENV{CDPATH};
436} 440}
437 441
438my @hook_count; 442my @hook_count;
439my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 443my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
440 444
… …
913 917
914=item $lines_in_scrollback = $term->nsaved 918=item $lines_in_scrollback = $term->nsaved
915 919
916Return various integers describing terminal characteristics. 920Return various integers describing terminal characteristics.
917 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
918=item $modifiermask = $term->ModLevel3Mask 930=item $modifiermask = $term->ModLevel3Mask
919 931
920=item $modifiermask = $term->ModMetaMask 932=item $modifiermask = $term->ModMetaMask
921 933
922=item $modifiermask = $term->ModNumLockMask 934=item $modifiermask = $term->ModNumLockMask
… …
1098 $offset / $self->{ncol} + $self->{beg}, 1110 $offset / $self->{ncol} + $self->{beg},
1099 $offset % $self->{ncol} 1111 $offset % $self->{ncol}
1100 ) 1112 )
1101} 1113}
1102 1114
1103=item ($row, $col) = $line->coord_of ($offset)
1104=item $text = $term->special_encode $string 1115=item $text = $term->special_encode $string
1105 1116
1106Converts a perl string into the special encoding used by rxvt-unicode, 1117Converts a perl string into the special encoding used by rxvt-unicode,
1107where one character corresponds to one screen cell. See 1118where one character corresponds to one screen cell. See
1108C<< $term->ROW_t >> for details. 1119C<< $term->ROW_t >> for details.
… …
1110=item $string = $term->special_decode $text 1121=item $string = $term->special_decode $text
1111 1122
1112Converts rxvt-unicodes text reprsentation into a perl string. See 1123Converts rxvt-unicodes text reprsentation into a perl string. See
1113C<< $term->ROW_t >> for details. 1124C<< $term->ROW_t >> for details.
1114 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
1115=back 1154=back
1116 1155
1117=cut 1156=cut
1118 1157
1119package urxvt::popup; 1158package urxvt::popup;
… …
1142 $sep ||= "═"; 1181 $sep ||= "═";
1143 1182
1144 $self->add_item ({ 1183 $self->add_item ({
1145 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" },
1146 text => "", 1185 text => "",
1147 render => sub { $sep x $urxvt::TERM->ncol }, 1186 render => sub { $sep x $self->{term}->ncol },
1148 activate => sub { }, 1187 activate => sub { },
1149 }); 1188 });
1150} 1189}
1151 1190
1152sub add_title { 1191sub add_title {
… …
1160} 1199}
1161 1200
1162sub add_button { 1201sub add_button {
1163 my ($self, $text, $cb) = @_; 1202 my ($self, $text, $cb) = @_;
1164 1203
1165 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); 1204 $self->add_item ({ type => "button", text => $text, activate => $cb});
1166} 1205}
1167 1206
1168sub add_toggle { 1207sub add_toggle {
1169 my ($self, $text, $cb, $value) = @_; 1208 my ($self, $text, $cb, $value) = @_;
1170 1209
… …
1182sub show { 1221sub show {
1183 my ($self) = @_; 1222 my ($self) = @_;
1184 1223
1185 local $urxvt::popup::self = $self; 1224 local $urxvt::popup::self = $self;
1186 1225
1226 local $ENV{LC_ALL} = $self->{term}->locale;
1227
1187 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,
1188 "--transient-for" => $self->{term}->parent, 1229 "--transient-for" => $self->{term}->parent,
1230 "-display" => $self->{term}->display_id,
1189 "-pe" => "urxvt-popup") 1231 "-pe" => "urxvt-popup")
1190 or die "unable to create popup window\n"; 1232 or die "unable to create popup window\n";
1191} 1233}
1192 1234
1193sub DESTROY { 1235sub DESTROY {

Diff Legend

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