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.62 by root, Mon Jan 9 02:06:43 2006 UTC vs.
Revision 1.66 by root, Mon Jan 9 19:28:39 2006 UTC

… …
917 917
918=item $lines_in_scrollback = $term->nsaved 918=item $lines_in_scrollback = $term->nsaved
919 919
920Return various integers describing terminal characteristics. 920Return various integers describing terminal characteristics.
921 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
922=item $modifiermask = $term->ModLevel3Mask 930=item $modifiermask = $term->ModLevel3Mask
923 931
924=item $modifiermask = $term->ModMetaMask 932=item $modifiermask = $term->ModMetaMask
925 933
926=item $modifiermask = $term->ModNumLockMask 934=item $modifiermask = $term->ModNumLockMask
… …
1115Converts rxvt-unicodes text reprsentation into a perl string. See 1123Converts rxvt-unicodes text reprsentation into a perl string. See
1116C<< $term->ROW_t >> for details. 1124C<< $term->ROW_t >> for details.
1117 1125
1118=item $success = $term->grab_button ($button, $modifiermask) 1126=item $success = $term->grab_button ($button, $modifiermask)
1119 1127
1120Registers a synchronous button grab. See XGrabButton. 1128Registers a synchronous button grab. See the XGrabButton manpage.
1121 1129
1122=item $success = $term->grab ($eventtime[, $sync]) 1130=item $success = $term->grab ($eventtime[, $sync])
1123 1131
1124Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or 1132Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1125synchronous (C<$sync> is true). Also remembers the grab timestampe. 1133synchronous (C<$sync> is true). Also remembers the grab timestampe.
… …
1173 $sep ||= "═"; 1181 $sep ||= "═";
1174 1182
1175 $self->add_item ({ 1183 $self->add_item ({
1176 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" },
1177 text => "", 1185 text => "",
1178 render => sub { $sep x $urxvt::TERM->ncol }, 1186 render => sub { $sep x $self->{term}->ncol },
1179 activate => sub { }, 1187 activate => sub { },
1180 }); 1188 });
1181} 1189}
1182 1190
1183sub add_title { 1191sub add_title {
… …
1191} 1199}
1192 1200
1193sub add_button { 1201sub add_button {
1194 my ($self, $text, $cb) = @_; 1202 my ($self, $text, $cb) = @_;
1195 1203
1196 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); 1204 $self->add_item ({ type => "button", text => $text, activate => $cb});
1197} 1205}
1198 1206
1199sub add_toggle { 1207sub add_toggle {
1200 my ($self, $text, $cb, $value) = @_; 1208 my ($self, $text, $cb, $value) = @_;
1201 1209
… …
1213sub show { 1221sub show {
1214 my ($self) = @_; 1222 my ($self) = @_;
1215 1223
1216 local $urxvt::popup::self = $self; 1224 local $urxvt::popup::self = $self;
1217 1225
1226 local $ENV{LC_ALL} = $self->{term}->locale;
1227
1218 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,
1219 "--transient-for" => $self->{term}->parent, 1229 "--transient-for" => $self->{term}->parent,
1230 "-display" => $self->{term}->display_id,
1220 "-pe" => "urxvt-popup") 1231 "-pe" => "urxvt-popup")
1221 or die "unable to create popup window\n"; 1232 or die "unable to create popup window\n";
1222} 1233}
1223 1234
1224sub DESTROY { 1235sub DESTROY {

Diff Legend

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