diff options
| author | saal | 2007-06-04 13:10:07 +0000 |
|---|---|---|
| committer | saal | 2007-06-04 13:10:07 +0000 |
| commit | 026e394a8e78c52c9c3319408f1b1b66e88a745b (patch) | |
| tree | 164dc38b7a10d061f95bc96c31667dc400b98c14 /src/MTools/MSwitch.pm | |
| parent | 1a38bcb3e8464d440f42341d3e67c2691ac44421 (diff) | |
| download | mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.zip mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.gz mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.bz2 mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.xz | |
utilisation du constructeur de MObjet + suppression du use MTools::MObjet
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]}); } } } |