--- rxvt-unicode/src/perl/tabbed 2006/02/06 05:40:16 1.15 +++ rxvt-unicode/src/perl/tabbed 2006/02/11 01:58:28 1.16 @@ -91,9 +91,12 @@ 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}; + for my $atom ($tab->XListProperties ($tab->parent)) { my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom);