Reinitialisation des bindings(MWritable MReconizer)

->Effacement de toutes les curves (MWritable)
->Variables Position fleche pour la MMultiselection

1 files changed, 24 insertions, 2 deletions

diff --git a/src/MTools/Comp/MReconizer.pm b/src/MTools/Comp/MReconizer.pm
index b3238d4..f30ec20 100644
--- a/src/MTools/Comp/MReconizer.pm
+++ b/src/MTools/Comp/MReconizer.pm
@@ -60,7 +60,6 @@ sub new {
 	$self -> recordProperty ('callback', undef);
 	
 	$self -> mconfigure (%options);
-		
 	binding ($src, "<Button-$button>", [\&__pressed, $self, Ev('x'), Ev('y')]);
 	binding ($src, "<Button$button-Motion>", [\&__moved, $self, Ev('x'), Ev('y')]);
 	binding ($src, "<ButtonRelease-$button>", [\&__released, $self, Ev('x'), Ev('y')]);
@@ -72,6 +71,8 @@ sub new {
 			executer ($methode, @_);
 		}
 	});
+	$self -> {__button} = $button;
+	$self -> {__source} = $src;
 	$self -> {__dessin} = undef;
 	
 	$self -> {__dessin} = my $dessin = new MTools::GUI::MGroup (1);
@@ -141,6 +142,27 @@ sub __released {
 		$self -> {__anim__disparition} -> start ();
 	}
 }
-
+sub getpoints {
+	my ($self) = @_;
+	return $self -> {__points};
+}
+sub stopanim
+{
+	my ($self) = @_;
+	if ($self -> {__anim__disparition})
+	{
+	  
+	  $self -> {__anim__disparition}->stop();
+	}
+}
+sub reinitBindings
+{
+	my ($self) = @_;
+	my $button = $self->{__button};
+	binding ($self->{__source}, "<Button-$button>", [\&__pressed, $self, Ev('x'), Ev('y')]);
+	binding ($self->{__source}, "<Button$button-Motion>", [\&__moved, $self, Ev('x'), Ev('y')]);
+	binding ($self->{__source}, "<ButtonRelease-$button>", [\&__released, $self, Ev('x'), Ev('y')]);
+  
+}
 1;