diff options
Diffstat (limited to 'src/MTools/Comp/MReconizer.pm')
| -rw-r--r-- | src/MTools/Comp/MReconizer.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/MTools/Comp/MReconizer.pm b/src/MTools/Comp/MReconizer.pm index 8792295..b3238d4 100644 --- a/src/MTools/Comp/MReconizer.pm +++ b/src/MTools/Comp/MReconizer.pm @@ -107,6 +107,7 @@ sub __clear () { sub __pressed { my ($self, $x, $y) = @_; + raise($self -> {__dessin}); ($x, $y) = $zinc -> transform('device', minstance ($self -> {__dessin}), [$x, $y]); if (defined $self -> {__dessin}) { |