… | … | ||
---|---|---|---|
24 | my ($self) = @_; | 24 | my ($self) = @_; |
25 | 25 | ||
26 | # suppress initial map event | 26 | # suppress initial map event |
27 | $self->XUnmapWindow ($self->parent) | 27 | $self->XUnmapWindow ($self->parent) |
28 | if delete $self->{unmap_me}; | 28 | if delete $self->{unmap_me}; |
29 | 29 | ||
30 | () | 30 | () |
31 | } | 31 | } |
32 | 32 | ||
33 | sub on_root_event { | 33 | sub on_root_event { |
34 | my ($self, $event) = @_; | 34 | my ($self, $event) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |