From: root <root>
Date: Sat, 11 Feb 2006 02:01:16 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=e1e1ab026413ce67ef85c5d8e338d35895baf787;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/tabbed b/src/perl/tabbed
index 4b136c36..0a92c73d 100644
--- a/src/perl/tabbed
+++ b/src/perl/tabbed
@@ -91,11 +91,10 @@ sub copy_properties {
    my $tab = $self->{cur};
 
    my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS");
-   my $wm_state        = $self->XInternAtom ("WM_STATE");
 
    my %our_props = map +($_ => undef), $self->XListProperties ($self->parent);
 
-   delete $our_props{$wm_state};
+   delete $our_props{$self->XInternAtom ($_)} for qw(WM_STATE WM_ICON_SIZE);
 
    for my $atom ($tab->XListProperties ($tab->parent)) {
       my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom);