| … | |
… | |
| 92 | |
92 | |
| 93 | my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS"); |
93 | my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS"); |
| 94 | |
94 | |
| 95 | my %our_props = map +($_ => undef), $self->XListProperties ($self->parent); |
95 | my %our_props = map +($_ => undef), $self->XListProperties ($self->parent); |
| 96 | |
96 | |
| 97 | delete $our_props{$self->XInternAtom ($_)} for qw(WM_STATE WM_ICON_SIZE); |
97 | delete $our_props{$self->XInternAtom ($_)} |
|
|
98 | for qw(WM_STATE WM_ICON_SIZE |
|
|
99 | _NET_WM_VISIBLE_NAME _NET_WM_VISIBLE_ICON_NAME _NET_WM_ICON_GEOMETRY _NET_FRAME_EXTENTS); |
| 98 | |
100 | |
| 99 | for my $atom ($tab->XListProperties ($tab->parent)) { |
101 | for my $atom ($tab->XListProperties ($tab->parent)) { |
| 100 | my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom); |
102 | my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom); |
| 101 | |
103 | |
| 102 | delete $our_props{$atom}; |
104 | delete $our_props{$atom}; |
