From ef804b86843414b4357b0953e96bd8c56d9f4f7a Mon Sep 17 00:00:00 2001
From: root <root>
Date: Mon, 20 Feb 2006 19:42:55 +0000
Subject: [PATCH] *** empty log message ***

---
 Changes         | 2 ++
 src/command.C   | 2 +-
 src/perl/tabbed | 5 ++++-
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 9235c2a5..a382a6aa 100644
--- a/Changes
+++ b/Changes
@@ -33,6 +33,8 @@ DUMB: support tex fonts
           in empts spaces, but thats not true when reversing (e.g. selection),
           so also check for matching fg colours. This fixes the problem where
           selecting newly scrolled-in lines would exhibit wrong colours.
+        - fix a bug in the perl interface causing focus in events to generate
+          focus out perl events, causing bad focus effects with -pe tabbed.
         - fix a race resulting in a crash on exiting.
         - fix a with --disable-xft that caused xfreecolors to be called on
           colors never allocated, resulting in aborts (reported by Paco-Paco).
diff --git a/src/command.C b/src/command.C
index 9c6d7046..3c03700b 100644
--- a/src/command.C
+++ b/src/command.C
@@ -1716,7 +1716,7 @@ rxvt_term::focus_in ()
       focus = 1;
       want_refresh = 1;
 
-      HOOK_INVOKE ((this, HOOK_FOCUS_OUT, DT_END));
+      HOOK_INVOKE ((this, HOOK_FOCUS_IN, DT_END));
 
 #if USE_XIM
       if (Input_Context != NULL)
diff --git a/src/perl/tabbed b/src/perl/tabbed
index 179fa092..ec673c15 100644
--- a/src/perl/tabbed
+++ b/src/perl/tabbed
@@ -140,7 +140,10 @@ sub make_current {
 
    $self->configure;
    $self->copy_properties;
-   $tab->focus_in;
+   
+   $tab->focus_out; # just in case, should be a nop
+   $tab->focus_in if $self->focus;
+   
    $tab->XMapWindow ($tab->parent);
    delete $tab->{activity};
    $self->refresh;
-- 
2.34.1