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.64 by root, Mon Jan 9 06:29:47 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
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 {
1212 1220
1213sub show { 1221sub show {
1214 my ($self) = @_; 1222 my ($self) = @_;
1215 1223
1216 local $urxvt::popup::self = $self; 1224 local $urxvt::popup::self = $self;
1225
1226 local $ENV{LC_ALL} = $self->{term}->locale;
1217 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,
1220 "-display" => $self->{term}->display_id, 1230 "-display" => $self->{term}->display_id,
1221 "-pe" => "urxvt-popup") 1231 "-pe" => "urxvt-popup")

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines