diff options
| -rw-r--r-- | src/MTools/Widget/MBouton.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/MTools/Widget/MBouton.pm b/src/MTools/Widget/MBouton.pm index acabe65..07736c8 100644 --- a/src/MTools/Widget/MBouton.pm +++ b/src/MTools/Widget/MBouton.pm @@ -43,7 +43,7 @@ sub new { my $eventOff = defined $options {e_release} ? $options {e_release} : 'RELEASED'; my $cb = $options {call} if (defined $options {call}); - $self -> recordEvent ('MAINTAIN_DOWN'); + $self -> recordEvent ('MAINTAIN_DOWN'); #utiliser les variables $eventOn? $self -> recordEvent ('PRESS'); $self -> recordEvent ('RELEASE'); $self -> mconfigure (-atomic => 1); |