aboutsummaryrefslogtreecommitdiff
path: root/src/MTools/Widget
diff options
context:
space:
mode:
Diffstat (limited to 'src/MTools/Widget')
-rw-r--r--src/MTools/Widget/MBouton.pm16
1 files changed, 13 insertions, 3 deletions
diff --git a/src/MTools/Widget/MBouton.pm b/src/MTools/Widget/MBouton.pm
index fbb1bbe..f49af90 100644
--- a/src/MTools/Widget/MBouton.pm
+++ b/src/MTools/Widget/MBouton.pm
@@ -42,8 +42,7 @@ sub new {
my $eventOn = defined $options {e_press} ? $options {e_press} : 'PRESS';
my $eventOff = defined $options {e_release} ? $options {e_release} : 'RELEASED';
my $cb = $options {call} if (defined $options {call});
-
-
+
$self -> recordEvent ('MAINTAIN_DOWN');
$self -> recordEvent ('PRESS');
$self -> recordEvent ('RELEASE');
@@ -171,7 +170,18 @@ sub new {
$self -> propagate ($st, $eventOn);
$self -> propagate ($st, $eventOff);
-
+
+ delete $options {g_on} if defined $options {g_on};
+ delete $options {g_off} if defined $options {g_off};
+ delete $options {g_over} if defined $options {g_over};
+ delete $options {e_press} if defined $options {e_press};
+ delete $options {e_release} if defined $options {e_release};
+ delete $options {call} if defined $options {call};
+ delete $options {text} if defined $options {text};
+ delete $options {g_text} if defined $options {g_text};
+ delete $options {parent} if defined $options {parent};
+ $self -> mconfigure (%options);
+
return $self;
}