--- rxvt-unicode/src/urxvt.pm	2006/01/19 21:02:06	1.112
+++ rxvt-unicode/src/urxvt.pm	2006/01/20 16:18:07	1.116
@@ -164,6 +164,17 @@
 every error message as a selection pattern, and the second line transforms
 the message into vi commands to load the file.
 
+=item tabbed
+
+This transforms the terminal into a tabbar with additional terminals, that
+is, it implements what is commonly refered to as "tabbed terminal". The topmost line
+displays a "[NEW]" button, which, when clicked, will add a new tab, followed by one
+button per tab.
+
+Clicking a button will activate that tab. Pressing B<Shift-Left> and
+B<Shift-Right> will switch to the tab left or right of the current one,
+while B<Shift-Down> creates a new tab.
+
 =item mark-urls
 
 Uses per-line display filtering (C<on_line_update>) to underline urls and
@@ -325,7 +336,13 @@
 =item on_start $term
 
 Called at the very end of initialisation of a new terminal, just before
-returning to the mainloop.
+trying to map (display) the toplevel and returning to the mainloop.
+
+=item on_destroy $term
+
+Called whenever something tries to destroy terminal, before doing anything
+yet. If this hook returns true, then destruction is skipped, but this is
+rarely a good idea.
 
 =item on_reset $term
 
@@ -487,6 +504,15 @@
 
 subwindow.
 
+=item on_client_message $term, $event
+
+=item on_wm_protocols $term, $event
+
+=item on_wm_delete_window $term, $event
+
+Called when various types of ClientMessage events are received (all with
+format=32, WM_PROTOCOLS or WM_PROTOCOLS:WM_DELETE_WINDOW).
+
 =back
 
 =cut
@@ -501,6 +527,8 @@
 
 our $VERSION = 1;
 our $TERM;
+our @TERM_INIT;
+our @TERM_EXT;
 our @HOOKNAME;
 our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME;
 our %OPTION;
@@ -532,6 +560,22 @@
 The current terminal. This variable stores the current C<urxvt::term>
 object, whenever a callback/hook is executing.
 
+=item @urxvt::TERM_INIT
+
+All coderefs in this array will be called as methods of the next newly
+created C<urxvt::term> object (during the C<on_init> phase). The array
+gets cleared before the codereferences that were in it are being executed,
+so coderefs can push themselves onto it again if they so desire.
+
+This complements to the perl-eval commandline option, but gets executed
+first.
+
+=item @urxvt::TERM_EXT
+
+Works similar to C<@TERM_INIT>, but contains perl package/class names, which
+get registered as normal extensions after calling the hooks in C<@TERM_INIT>
+but before other extensions. Gets cleared just like C<@TERM_INIT>.
+
 =back
 
 =head2 Functions in the C<urxvt> Package
@@ -662,8 +706,6 @@
 sub extension_package($) {
    my ($path) = @_;
 
-   no strict 'refs';
-
    $extension_pkg{$path} ||= do {
       $path =~ /([^\/\\]+)$/;
       my $pkg = $1;
@@ -675,8 +717,6 @@
       open my $fh, "<:raw", $path
          or die "$path: $!";
 
-      @{"$pkg\::ISA"} = urxvt::term::extension::;
-
       my $source =
          "package $pkg; use strict; use utf8;\n"
          . "#line 1 \"$path\"\n{\n"
@@ -702,7 +742,16 @@
       
       my %ext_arg;
 
-      for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
+      {
+         my @init = @TERM_INIT;
+         @TERM_INIT = ();
+         $_->($TERM) for @init;
+         my @pkg = @TERM_EXT;
+         @TERM_EXT = ();
+         $TERM->register_package ($_) for @pkg;
+      }
+
+      for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
          if ($_ eq "default") {
             $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback);
          } elsif (/^-(.*)$/) {
@@ -737,7 +786,8 @@
       keys %$cb;
 
       while (my ($pkg, $cb) = each %$cb) {
-         $retval ||= eval { $cb->($TERM->{_pkg}{$pkg}, @_) };
+         my $retval_ = eval { $cb->($TERM->{_pkg}{$pkg}, @_) };
+         $retval ||= $retval_;
 
          if ($@) {
             $TERM->ungrab; # better to lose the grab than the session
@@ -906,6 +956,12 @@
 sub register_package {
    my ($self, $pkg, $argv) = @_;
 
+   no strict 'refs';
+
+   urxvt::verbose 6, "register package $pkg to $self";
+
+   @{"$pkg\::ISA"} = urxvt::term::extension::;
+
    my $proxy = bless {
       _pkg => $pkg,
       argv => $argv,
@@ -1641,6 +1697,15 @@
 
 =back
 
+=cut
+
+package urxvt::watcher;
+
+@urxvt::timer::ISA = __PACKAGE__;
+@urxvt::iow::ISA   = __PACKAGE__;
+@urxvt::pw::ISA    = __PACKAGE__;
+@urxvt::iw::ISA    = __PACKAGE__;
+
 =head2 The C<urxvt::timer> Class
 
 This class implements timer watchers/events. Time is represented as a
@@ -1747,6 +1812,67 @@
 
 =back
 
+=head2 The C<urxvt::iw> Class
+
+This class implements idle watchers, that get called automatically when
+the process is idle. They should return as fast as possible, after doing
+some useful work.
+
+=over 4
+
+=item $iw = new urxvt::iw
+
+Create a new idle watcher object in stopped state.
+
+=item $iw = $iw->cb (sub { my ($iw) = @_; ... })
+
+Set the callback to be called when the watcher triggers.
+
+=item $timer = $timer->start
+
+Start the watcher.
+
+=item $timer = $timer->stop
+
+Stop the watcher.
+
+=back
+
+=head2 The C<urxvt::pw> Class
+
+This class implements process watchers. They create an event whenever a
+process exits, after which they stop automatically.
+
+   my $pid = fork;
+   ...
+   $term->{pw} = urxvt::pw
+                    ->new
+                    ->start ($pid)
+                    ->cb (sub {
+                       my ($pw, $exit_status) = @_;
+                       ...
+                    });                                                                                                                                      
+
+=over 4
+
+=item $pw = new urxvt::pw
+
+Create a new process watcher in stopped state.
+
+=item $pw = $pw->cb (sub { my ($pw, $exit_status) = @_; ... })
+
+Set the callback to be called when the timer triggers.
+
+=item $pw = $timer->start ($pid)
+
+Tells the wqtcher to start watching for process C<$pid>.
+
+=item $pw = $pw->stop
+
+Stop the watcher.
+
+=back
+
 =head1 ENVIRONMENT
 
 =head2 URXVT_PERL_VERBOSITY