| 1 | #! perl | 1 | #! perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | sub on_configure_notify { | 3 | sub on_configure_notify { |
| 4 | my ($self, $event) = @_; | 4 | my ($self, $event) = @_; |
| 5 | |||
| 6 | my ($x, $y); | ||
| 5 | 7 | ||
| 8 | if ($event->{send_event}) { | ||
| 9 | ($x, $y) = ($event->{x}, $event->{y}); | ||
| 10 | } else { | ||
| 11 | ($x, $y) = $self->XTranslateCoordinates ( | ||
| 12 | $self->vt, $self->DefaultRootWindow, | ||
| 13 | 0, 0 | ||
| 14 | ); | ||
| 15 | } | ||
| 16 | |||
| 6 | $self->cmd_parse ("\033]20;;=+$event->{x}+$event->{y}\007"); | 17 | $self->cmd_parse ("\033]20;;=+$x+$y\007"); |
| 7 | } | 18 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |