| … | |
… | |
| 89 | sub copy_properties { |
89 | sub copy_properties { |
| 90 | my ($self) = @_; |
90 | my ($self) = @_; |
| 91 | my $tab = $self->{cur}; |
91 | my $tab = $self->{cur}; |
| 92 | |
92 | |
| 93 | my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS"); |
93 | my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS"); |
|
|
94 | my $wm_state = $self->XInternAtom ("WM_STATE"); |
| 94 | |
95 | |
| 95 | my %our_props = map +($_ => undef), $self->XListProperties ($self->parent); |
96 | my %our_props = map +($_ => undef), $self->XListProperties ($self->parent); |
|
|
97 | |
|
|
98 | delete $our_props{$wm_state}; |
| 96 | |
99 | |
| 97 | for my $atom ($tab->XListProperties ($tab->parent)) { |
100 | for my $atom ($tab->XListProperties ($tab->parent)) { |
| 98 | my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom); |
101 | my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom); |
| 99 | |
102 | |
| 100 | delete $our_props{$atom}; |
103 | delete $our_props{$atom}; |
