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.60 by root, Mon Jan 9 01:21:43 2006 UTC vs.
Revision 1.67 by root, Mon Jan 9 19:29:06 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
… …
915 917
916=item $lines_in_scrollback = $term->nsaved 918=item $lines_in_scrollback = $term->nsaved
917 919
918Return various integers describing terminal characteristics. 920Return various integers describing terminal characteristics.
919 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
920=item $modifiermask = $term->ModLevel3Mask 930=item $modifiermask = $term->ModLevel3Mask
921 931
922=item $modifiermask = $term->ModMetaMask 932=item $modifiermask = $term->ModMetaMask
923 933
924=item $modifiermask = $term->ModNumLockMask 934=item $modifiermask = $term->ModNumLockMask
… …
1100 $offset / $self->{ncol} + $self->{beg}, 1110 $offset / $self->{ncol} + $self->{beg},
1101 $offset % $self->{ncol} 1111 $offset % $self->{ncol}
1102 ) 1112 )
1103} 1113}
1104 1114
1105=item ($row, $col) = $line->coord_of ($offset)
1106=item $text = $term->special_encode $string 1115=item $text = $term->special_encode $string
1107 1116
1108Converts a perl string into the special encoding used by rxvt-unicode, 1117Converts a perl string into the special encoding used by rxvt-unicode,
1109where one character corresponds to one screen cell. See 1118where one character corresponds to one screen cell. See
1110C<< $term->ROW_t >> for details. 1119C<< $term->ROW_t >> for details.
… …
1112=item $string = $term->special_decode $text 1121=item $string = $term->special_decode $text
1113 1122
1114Converts rxvt-unicodes text reprsentation into a perl string. See 1123Converts rxvt-unicodes text reprsentation into a perl string. See
1115C<< $term->ROW_t >> for details. 1124C<< $term->ROW_t >> for details.
1116 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
1117=back 1154=back
1118 1155
1119=cut 1156=cut
1120 1157
1121package urxvt::popup; 1158package urxvt::popup;
… …
1139} 1176}
1140 1177
1141sub add_separator { 1178sub add_separator {
1142 my ($self, $sep) = @_; 1179 my ($self, $sep) = @_;
1143 1180
1144 $sep ||= "═"; 1181 $sep ||= "=";
1145 1182
1146 $self->add_item ({ 1183 $self->add_item ({
1147 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" },
1148 text => "", 1185 text => "",
1149 render => sub { $sep x $urxvt::TERM->ncol }, 1186 render => sub { $sep x $self->{term}->ncol },
1150 activate => sub { }, 1187 activate => sub { },
1151 }); 1188 });
1152} 1189}
1153 1190
1154sub add_title { 1191sub add_title {
… …
1162} 1199}
1163 1200
1164sub add_button { 1201sub add_button {
1165 my ($self, $text, $cb) = @_; 1202 my ($self, $text, $cb) = @_;
1166 1203
1167 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); 1204 $self->add_item ({ type => "button", text => $text, activate => $cb});
1168} 1205}
1169 1206
1170sub add_toggle { 1207sub add_toggle {
1171 my ($self, $text, $cb, $value) = @_; 1208 my ($self, $text, $cb, $value) = @_;
1172 1209
… …
1184sub show { 1221sub show {
1185 my ($self) = @_; 1222 my ($self) = @_;
1186 1223
1187 local $urxvt::popup::self = $self; 1224 local $urxvt::popup::self = $self;
1188 1225
1226 local $ENV{LC_ALL} = $self->{term}->locale;
1227
1189 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,
1190 "--transient-for" => $self->{term}->parent, 1229 "--transient-for" => $self->{term}->parent,
1230 "-display" => $self->{term}->display_id,
1191 "-pe" => "urxvt-popup") 1231 "-pe" => "urxvt-popup")
1192 or die "unable to create popup window\n"; 1232 or die "unable to create popup window\n";
1193} 1233}
1194 1234
1195sub DESTROY { 1235sub DESTROY {

Diff Legend

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