Import initial

1 files changed, 201 insertions, 0 deletions

diff --git a/src/MTools/MSwitch.pm b/src/MTools/MSwitch.pm
new file mode 100644
index 0000000..8933ca3
--- /dev/null
+++ b/src/MTools/MSwitch.pm
@@ -0,0 +1,201 @@
+package MTools::MSwitch;
+#	This program is free software; you can redistribute it and/or
+#	modify it under the terms of the GNU LGPL Libray General Public License
+#	as published by the Free Software Foundation; either version 2
+#	of the License, or (at your option) any later version.
+#
+#	This program is distributed in the hope that it will be useful,
+#	but WITHOUT ANY WARRANTY; without even the implied warranty of
+#	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#	GNU Library General Public License for more details.
+#
+#	You should have received a copy of the GNU Library General Public License
+#	along with this program; if not, write to the Free Software
+#	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA,
+#	or refer to http://www.gnu.org/copyleft/lgpl.html
+#
+##################################################################
+
+# Le composant MSwitch permet de mat?rialiser et contr?ler des "?tat" actif de l'application. 
+# Le principe est d'associer des composants (graphiques, abstraits, comportements, objets complexes) ? un ?tat.
+# Le composant MSwitch contr?le un ?tat actif de l'application et g?re l'option "-visible" des composants associ?s ? l'?tat. 
+#
+# Les param?tres :
+# 	* $parent : parent de l'objet MSwitch
+#	* %etats : table de hash d?finissant les ?tats de l'application
+#		Ex :
+#			etat1 => [], # ?tat ne comportant aucun composant
+#			etat2 => 'fichier_svg.svg#tag_svg', # l'?tat va instancier un objet issu d'un fichier svg
+#			etat3 => ['fichier_svg.svg#tag_svg', $obj], # l'?tat va contenir deux objets: l'un instancier par le MSwitch l'autre d?j? cr?? pr?alablement
+# Les propi?t?s :
+#	* state : contr?le l'?tat actif du MSwitch
+#	* -visible : permettre de rendre le MSwitch visible ou invisible et en cons?quence de rendre 
+#	"visible ou invisible" les composants de l'?tat actif du switch
+# Les fonctions public :
+#	* setState : $switch -> setState ('etat') ?quivalent ? $swicth -> mconfigure (state => 'etat')
+
+use strict;
+use MTools;
+use MTools::MGroup;
+use MTools::SVG::SVGLoader;
+
+use vars qw /@ISA/;
+
+BEGIN 
+{
+	@ISA = qw /MTools::MGroup/;
+}
+
+sub new {
+	my ($class, $parent, %etats) = @_;
+	my $self = new MTools::MGroup ($parent);
+	bless $self, $class;
+
+	$self -> recordProperty ('state', '');
+	$self -> recordProperty ('-visible', 1);
+	$self -> {__last} = '';
+	$self -> plisten ('state', [$self, '__setState']);
+
+	my $first = '';
+
+	while ( my ($etat, $val) = each (%etats) )
+	{
+		if ($first eq '')
+		{
+			$first = $etat;
+		}
+		my @tb;
+		if (ref ($val) eq 'ARRAY')
+		{
+			@tb = @{$val};
+		}
+		else
+		{
+			$tb[0] = $val;
+		}
+		
+		for (my $i = 0; $i < @tb; $i ++)
+		{
+			if ( !defined $self -> {"__instance_".$tb [$i]})
+			{
+				if ( ref ($tb [$i]) eq '')
+				{
+					$self -> {"__instance_".$tb [$i]} = minstance ($tb [$i], $self);
+					MTools::mconfigure ($self -> {"__instance_".$tb [$i]}, -visible => 0, -sensitive => 0);
+				}
+				else
+				{
+					$self -> {"__instance_".$tb [$i]} = $tb [$i];
+					$self -> {"__instance_".$tb [$i]} -> mconfigure ( -visible => 0, -sensitive => 0);
+				}
+				
+			}
+		}
+		
+		$self -> {"__etat_$etat"} = \@tb;
+	}
+	if ($first ne '')
+	{
+		$self -> mconfigure ('state' => $first);
+	}
+	return $self;
+}
+
+sub setState {
+	my ($self, $etat) = @_;
+	$self -> mconfigure ('state', $etat);
+}
+
+sub __setState {
+	my ($self, $src, $key, $etat) = @_;
+	my $curr = $self -> {__last};
+	$self -> {__last} = $etat;
+	if(!$self -> mget ('-visible'))
+	{
+		return;
+	}
+	if ($curr ne '')
+	{
+		if (defined $self -> {"__etat_".$curr})
+		{
+			my @tb = @{$self -> {"__etat_".$curr}};
+			for (my $i = 0; $i < @tb; $i ++)
+			{
+				if ( ref ($tb [$i]) eq '')
+				{
+					MTools::mconfigure ($self -> {"__instance_".$tb [$i]}, -visible => 0, -sensitive => 0);
+				}
+				else
+				{
+					$self -> {"__instance_".$tb [$i]} -> mconfigure (-visible => 0, -sensitive => 0);
+				}
+			}
+		}
+		else
+		{
+			die  "MTools::MSwitch::__setState : you are trying to set a unknown state \"$curr\"\n";
+		}
+	}
+	if (defined $self -> {"__etat_$etat"})
+	{
+		my @tb = @{$self -> {"__etat_$etat"}};
+		for (my $i = 0; $i < @tb; $i ++)
+		{
+			if ( ref ($tb [$i]) eq '')
+			{
+				MTools::mconfigure ($self -> {"__instance_".$tb [$i]}, -visible => 1, -sensitive => 1);
+			}
+			else
+			{
+				$self -> {"__instance_".$tb [$i]} -> mconfigure (-visible => 1, -sensitive => 1);
+			}
+			raise ($self -> {"__instance_".$tb [$i]});
+		}
+	}
+	else
+	{
+		if ($etat ne '')
+		{
+			die  "MTools::MSwitch::__setState : you are trying to set a unknown state \"$etat\"\n";
+		}
+	}
+}
+
+sub mconfigure {
+	my ($self, %options) = @_;
+	if (defined $options {-visible})
+	{
+		my $curr = ::mget ($self, 'state');
+		if ($curr ne '')
+		{
+			if (defined $self -> {"__etat_".$curr})
+			{
+				my @tb = @{$self -> {"__etat_".$curr}};
+				my $v = $options {-visible};
+				for (my $i = 0; $i < @tb; $i ++)
+				{
+					if ( ref ($tb [$i]) eq '')
+					{
+						MTools::mconfigure ($self -> {"__instance_".$tb [$i]}, -visible => $v, -sensitive => $v);
+					}
+					else
+					{
+						$self -> {"__instance_".$tb [$i]} -> mconfigure (-visible => $v, -sensitive => $v);
+					}
+					if ($v)
+					{
+						raise ($self -> {"__instance_".$tb [$i]});
+					}
+				}
+			}
+			else
+			{
+				die  "MTools::MSwitch::mconfigure : you are trying to set a unknown state \"$curr\"\n";
+			}
+		}
+	}
+	MTools::mconfigure ($self, %options);
+}
+
+
+1;