*** empty log message ***

diff --git a/Changes b/Changes
index 9235c2a5c7a1a6a4fa4c0b56f3457749c18728bb..a382a6aa18cbc33ba1ccc1900c7c4f1d2d6bd53f 100644 (file)
--- 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 9c6d7046a0ac69b9553b3571a103be3549e09fa8..3c03700bc25faa39a52456d1d276b40435d84a4d 100644 (file)
--- 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 179fa092b0a6298d2dfffc5e09b010a958dc9641..ec673c15f0c47ca811ba9138ea3a4ef862296a77 100644 (file)
--- 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;