diff options
Diffstat (limited to 'src/MTools/Comp/MReconizer.pm')
| -rw-r--r-- | src/MTools/Comp/MReconizer.pm | 26 |
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; |