| … | … | ||
|---|---|---|---|
| 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 |