--- rxvt-unicode/src/urxvt.pm 2006/01/09 05:08:02 1.63 +++ rxvt-unicode/src/urxvt.pm 2006/01/09 19:29:06 1.67 @@ -919,6 +919,14 @@ Return various integers describing terminal characteristics. +=item $lc_ctype = $term->locale + +Returns the LC_CTYPE category string used by this rxvt-unicode. + +=item $x_display = $term->display_id + +Return the DISPLAY used by rxvt-unicode. + =item $modifiermask = $term->ModLevel3Mask =item $modifiermask = $term->ModMetaMask @@ -1117,7 +1125,7 @@ =item $success = $term->grab_button ($button, $modifiermask) -Registers a synchronous button grab. See XGrabButton. +Registers a synchronous button grab. See the XGrabButton manpage. =item $success = $term->grab ($eventtime[, $sync]) @@ -1170,12 +1178,12 @@ sub add_separator { my ($self, $sep) = @_; - $sep ||= "═"; + $sep ||= "="; $self->add_item ({ rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" }, text => "", - render => sub { $sep x $urxvt::TERM->ncol }, + render => sub { $sep x $self->{term}->ncol }, activate => sub { }, }); } @@ -1193,7 +1201,7 @@ sub add_button { my ($self, $text, $cb) = @_; - $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); + $self->add_item ({ type => "button", text => $text, activate => $cb}); } sub add_toggle { @@ -1215,6 +1223,8 @@ local $urxvt::popup::self = $self; + local $ENV{LC_ALL} = $self->{term}->locale; + urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, "--transient-for" => $self->{term}->parent, "-display" => $self->{term}->display_id,