Modification du MBouton pour permettre un mconfigure de proprietes Zinc dessus

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;
 }