diff options
Diffstat (limited to 'src/MTools/MSwitch.pm')
| -rw-r--r-- | src/MTools/MSwitch.pm | 8 |
1 files changed, 3 insertions, 5 deletions
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]}); } } } |