| … | |
… | |
| 1160 | my $dy = $ev->{y} - $oy; |
1160 | my $dy = $ev->{y} - $oy; |
| 1161 | |
1161 | |
| 1162 | $self->{force_w} = $bw + $dx * ($mx ? -1 : 1); |
1162 | $self->{force_w} = $bw + $dx * ($mx ? -1 : 1); |
| 1163 | $self->{force_h} = $bh + $dy * ($my ? -1 : 1); |
1163 | $self->{force_h} = $bh + $dy * ($my ? -1 : 1); |
| 1164 | |
1164 | |
|
|
1165 | $self->move_abs ($wx + $dx * $mx, $wy + $dy * $my); |
| 1165 | $self->realloc; |
1166 | $self->realloc; |
| 1166 | $self->move_abs ($wx + $dx * $mx, $wy + $dy * $my); |
|
|
| 1167 | }; |
1167 | }; |
| 1168 | |
1168 | |
| 1169 | } elsif ($lr ^ $td) { |
1169 | } elsif ($lr ^ $td) { |
| 1170 | my ($ox, $oy) = ($ev->{x}, $ev->{y}); |
1170 | my ($ox, $oy) = ($ev->{x}, $ev->{y}); |
| 1171 | my ($bx, $by) = ($self->{x}, $self->{y}); |
1171 | my ($bx, $by) = ($self->{x}, $self->{y}); |
| … | |
… | |
| 1174 | my ($ev, $x, $y) = @_; |
1174 | my ($ev, $x, $y) = @_; |
| 1175 | |
1175 | |
| 1176 | ($x, $y) = ($ev->{x}, $ev->{y}); |
1176 | ($x, $y) = ($ev->{x}, $ev->{y}); |
| 1177 | |
1177 | |
| 1178 | $self->move_abs ($bx + $x - $ox, $by + $y - $oy); |
1178 | $self->move_abs ($bx + $x - $ox, $by + $y - $oy); |
|
|
1179 | # HACK: the next line is required to enforce placement |
|
|
1180 | $self->{parent}->size_allocate ($self->{parent}{w}, $self->{parent}{h}); |
| 1179 | }; |
1181 | }; |
| 1180 | } else { |
1182 | } else { |
| 1181 | return 0; |
1183 | return 0; |
| 1182 | } |
1184 | } |
| 1183 | |
1185 | |
