--- rxvt-unicode/src/urxvt.pm	2006/01/09 02:06:43	1.62
+++ rxvt-unicode/src/urxvt.pm	2006/01/09 20:00:31	1.68
@@ -447,23 +447,6 @@
    warn "$msg\n" if $level <= $verbosity;
 }
 
-# find on_xxx subs in the package and register them
-# as hooks
-sub register_package($) {
-   my ($pkg) = @_;
-
-   for my $htype (0.. $#HOOKNAME) {
-      my $name = $HOOKNAME[$htype];
-
-      my $ref = $pkg->can ("on_" . lc $name)
-         or next;
-
-      $TERM->{_hook}[$htype]{$pkg} = $ref;
-      $hook_count[$htype]++
-         or set_should_invoke $htype, 1;
-   }
-}
-
 my $extension_pkg = "extension0000";
 my %extension_pkg;
 
@@ -501,23 +484,25 @@
    if ($htype == 0) { # INIT
       my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
       
-      my %want_ext;
+      my %ext_arg;
 
       for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
          if ($_ eq "default") {
-            $want_ext{$_}++ for qw(selection option-popup selection-popup);
+            $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup);
          } elsif (/^-(.*)$/) {
-            delete $want_ext{$1};
+            delete $ext_arg{$1};
+         } elsif (/^([^<]+)<(.*)>$/) {
+            push @{ $ext_arg{$1} }, $2;
          } else {
-            $want_ext{$_}++;
+            $ext_arg{$_} ||= [];
          }
       }
 
-      for my $ext (keys %want_ext) {
+      while (my ($ext, $argv) = each %ext_arg) {
          my @files = grep -f $_, map "$_/$ext", @dirs;
 
          if (@files) {
-            register_package extension_package $files[0];
+            $TERM->register_package (extension_package $files[0], $argv);
          } else {
             warn "perl extension '$ext' not found in perl library search path\n";
          }
@@ -536,16 +521,9 @@
       keys %$cb;
 
       while (my ($pkg, $cb) = each %$cb) {
-         eval {
-            $retval = $cb->(
-               $TERM->{_pkg}{$pkg} ||= do {
-                  my $proxy = bless { }, $pkg;
-                  Scalar::Util::weaken ($proxy->{term} = $TERM);
-                  $proxy
-               },
-               @_,
-            ) and last;
-         };
+         $retval = eval { $cb->($TERM->{_pkg}{$pkg}, @_) }
+            and last;
+
          if ($@) {
             $TERM->ungrab; # better to lose the grab than the session
             warn $@;
@@ -677,6 +655,30 @@
 
 =over 4
 
+=cut
+
+# find on_xxx subs in the package and register them
+# as hooks
+sub register_package {
+   my ($self, $pkg, $argv) = @_;
+
+   my $proxy = bless { argv => $argv }, $pkg;
+   Scalar::Util::weaken ($proxy->{term} = $TERM);
+
+   $self->{_pkg}{$pkg} = $proxy;
+
+   for my $htype (0.. $#HOOKNAME) {
+      my $name = $HOOKNAME[$htype];
+
+      my $ref = $pkg->can ("on_" . lc $name)
+         or next;
+
+      $self->{_hook}[$htype]{$pkg} = $ref;
+      $hook_count[$htype]++
+         or urxvt::set_should_invoke $htype, 1;
+   }
+}
+
 =item $term->destroy
 
 Destroy the terminal object (close the window, free resources etc.).
@@ -919,6 +921,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 +1127,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 +1180,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 +1203,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,8 +1225,11 @@
 
    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,
                "-pe" => "urxvt-popup")
       or die "unable to create popup window\n";
 }