From ae0835f7caea926274e0b53f6425bbe3baae8eb3 Mon Sep 17 00:00:00 2001
From: saal
Date: Tue, 4 Sep 2007 10:11:09 +0000
Subject: raise de la curve lors d'un pressed, on a ainsi le dessin de la
 courbe au dessus de tout le reste

---
 src/MTools/Comp/MReconizer.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/MTools/Comp')

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})
 	{
-- 
cgit v1.1