From d280cdf7fc74caffee7658980cb38e8af8f3872b Mon Sep 17 00:00:00 2001
From: caramel
Date: Fri, 13 Jul 2007 15:23:40 +0000
Subject: Modification du MBouton pour permettre un mconfigure de proprietes
 Zinc dessus

---
 src/MTools/Widget/MBouton.pm | 16 +++++++++++++---
 1 file 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;
 }
 
-- 
cgit v1.1