From 026e394a8e78c52c9c3319408f1b1b66e88a745b Mon Sep 17 00:00:00 2001
From: saal
Date: Mon, 4 Jun 2007 13:10:07 +0000
Subject: utilisation du constructeur de MObjet + suppression du use
 MTools::MObjet

---
 src/MTools/MSwitch.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'src/MTools/MSwitch.pm')

diff --git a/src/MTools/MSwitch.pm b/src/MTools/MSwitch.pm
index 3eb62d5..8d94fa9 100644
--- a/src/MTools/MSwitch.pm
+++ b/src/MTools/MSwitch.pm
@@ -35,8 +35,6 @@ package MTools::MSwitch;
 #	* setState : $switch -> setState ('etat') ?quivalent ? $swicth -> mconfigure (state => 'etat')
 
 use strict;
-use MTools;
-use MTools::GUI::MGroup;
 use MTools::SVG::SVGLoader;
 
 use vars qw /@ISA/;
@@ -80,7 +78,7 @@ sub new {
 			{
 				if ( ref ($tb [$i]) eq '')
 				{
-					$self -> {"__instance_".$tb [$i]} = minstance ($tb [$i], $self);
+					$self -> {"__instance_".$tb [$i]} = MTools::minstance ($tb [$i], $self);
 					MTools::mconfigure ($self -> {"__instance_".$tb [$i]}, -visible => 0, -sensitive => 0);
 				}
 				else
@@ -149,7 +147,7 @@ sub __setState {
 			{
 				$self -> {"__instance_".$tb [$i]} -> mconfigure (-visible => 1, -sensitive => 1);
 			}
-			raise ($self -> {"__instance_".$tb [$i]});
+			MTools::raise ($self -> {"__instance_".$tb [$i]});
 		}
 	}
 	else
@@ -184,7 +182,7 @@ sub mconfigure {
 					}
 					if ($v)
 					{
-						raise ($self -> {"__instance_".$tb [$i]});
+						MTools::raise ($self -> {"__instance_".$tb [$i]});
 					}
 				}
 			}
-- 
cgit v1.1