--- rxvt-unicode/src/perl/option-popup 2006/02/06 06:14:08 1.10 +++ rxvt-unicode/src/perl/option-popup 2006/10/03 12:13:57 1.11 @@ -39,6 +39,13 @@ } } + { + $popup->add_separator; + my $locale = $self->locale; + $locale =~ y/\x20-\x7e//cd; + $popup->add_title ("Locale: $locale"); + } + $popup->show; return 1;