1 files changed, 199 insertions, 0 deletions
diff --git a/exemples/Strip.pm b/exemples/Strip.pm
new file mode 100644
index 0000000..2997e25
--- /dev/null
+++ b/exemples/Strip.pm
@@ -0,0 +1,199 @@
+package Strip;
+#	This program is free software; you can redistribute it and/or
+#	modify it under the terms of the GNU GPL 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 General Public License for more details.
+#	
+#	You should have received a copy of the GNU 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/gpl.html
+#
+
+use strict;
+
+use vars qw /@ISA/;
+
+use MTools;
+use MTools::MGroup;
+use MTools::Widget::MToggleBouton;
+use MTools::Comp::MMover;
+use MTools::Comp::MReconizer;
+use MTools::Comp::MInertie;
+
+BEGIN 
+{
+	@ISA = qw /MTools::MGroup/;
+}
+
+sub new {
+	my ($class, $parent, %options) = @_;
+	my $self = new MTools::MGroup ($parent);
+	bless $self, $class;
+	
+	$self -> recordEvent ('SET_FOCUS');
+	$self -> recordEvent ('GET_FOCUS');
+	$self -> recordProperty ('x', 0);
+	$self -> recordProperty ('y', 0);
+
+	my $gp1 = new MTools::MGroup ($self);
+	my $gp2 = new MTools::MGroup ($self);
+	my $gp3 = new MTools::MGroup ($self);
+	my $gp4 = new MTools::MGroup ($self);
+	
+	# Instanciation d'un petit bouton rouge qui aura pour objectif 
+	# de fixer ou non le strip (desactiver le comportement de mover)
+	my $bouton1 = new MTools::Widget::MToggleBouton (
+		parent => $self,
+ 		g_on => 'strip.svg#alarme_on',
+ 		g_off => 'strip.svg#alarme_off',
+ 		e_press => 'ALARME_PRESS',
+ 		e_release => 'ALARME_RELEASE'
+ 	);
+
+ 	# Instanciation des objets textes situe sur la premiere partie du strip
+ 	# Disparaitra lorsque le strip est shoote
+	minstanciate ('strip.svg#vitesse', $gp2);
+ 	minstanciate ('strip.svg#fl', $gp2);
+ 	
+ 	# Instanciation des objets textes situ? sur la deuxieme partie du strip
+ 	# Disparaitra lorsque le strip est deplace
+ 	minstanciate ('strip.svg#balise1', $gp3);
+ 	minstanciate ('strip.svg#fl1', $gp3);
+ 	minstanciate ('strip.svg#balise2', $gp3);
+	minstanciate ('strip.svg#fl2', $gp3);
+ 	
+	# Instanciation du callsign toujours visible
+ 	my $callsign = minstanciate ('strip.svg#callsign', $self);
+ 	mconfigure ($callsign, -text => $options {callsign});
+ 	
+ 	# Instanciation de la fleche de tendance qui peut avoir trois etat different
+ 	$self -> {evolution} = new MTools::MSwitch (
+		$gp2,
+		stable => ['strip.svg#evolution_stable'],
+		montee => ['strip.svg#evolution_monte'],
+		descente => ['strip.svg#evolution_descend'],
+	);
+	$self -> {evolution} -> mconfigure (state => 'montee');
+ 	
+	# Definition des trois etats des strips
+ 	$self -> {strip} = new MTools::MSwitch (
+		$gp1,
+		grand => ['strip.svg#strip_grand', $gp2, $gp3, $callsign, $bouton1],
+		mini => ['strip.svg#strip_mini', $gp2, $callsign, $bouton1],
+		shoote => ['strip.svg#strip_shoote', $callsign],
+	);
+	$self -> {strip} -> setState ('grand');
+	
+	# Instanciation du comportement de prehensible
+	$self -> {mover} = my $mover = new MTools::Comp::MMover($self -> {strip}, $self, 1,
+		x_min => 0, 
+		y_min => 0, 
+		x_max => 700, 
+		y_max => 300,
+	);
+
+	# Instanciation du comportement d'inertie
+	new MTools::Comp::MInertie ($self -> {mover});
+	
+	# On modifie la valeur des propriete x et y sur deplacement
+	$mover -> binding ('MOVED', sub {
+		my ($x, $y) = @_;
+		mconfigure ($self, x => $x);
+		mconfigure ($self, y => $y);
+	});
+		
+	# Instanciation des mask pour la reco de geste
+	$self -> {mask} = new MTools::MSwitch (
+		$gp4,
+		grand => ['strip.svg#mask_grand'],
+		mini => ['strip.svg#mask_mini'],
+		shoote => [],
+	);
+	$self -> {mask} -> setState ('grand');
+	
+	# Lorsque la propriete y est modifiee, on appel la fonction 'moved'
+	# Cette fonction modifiera l'etat du strip en fonction de la position de celui-ci
+	$self -> plisten ('y', ['moved', $self]);
+	
+	# Instanciation de la reco de geste
+	new MTools::Comp::MReconizer ($self -> {mask}, 1, callback => [$self, \&geste_reconnu]);
+	
+	# Activation et desactivation du comportement prehensible sur pression sur le petit bouton rouge
+	$bouton1 -> binding ('ALARME_PRESS', sub {
+		$mover -> mconfigure (-visible => 0);
+	});
+	$bouton1 -> binding ('ALARME_RELEASE', sub {
+		$mover -> mconfigure (-visible => 1);
+	});
+	
+	# Feedback de selection
+	$self -> {selected} = new MTools::MSwitch (
+		$self,
+		selected => ['strip.svg#selected'],
+		unselected => [],
+	);
+	$self -> {selected} -> setState ('unselected');
+	
+	# Mise ? jour du focus sur pression (capt?e par le MMover)
+	$mover -> binding ('PRESSED', sub {
+		$self -> {selected} -> setState ('selected');
+		$self -> notify ('GET_FOCUS', $self);
+	});
+	
+	# Mise ? jour du focus par message externe
+	$self -> binding ('SET_FOCUS', sub {
+		$self -> {selected} -> setState ('unselected');
+	});
+	 	
+	return $self;
+}
+
+sub geste_reconnu {
+	my ($self, $geste) = @_;
+	print "geste : $geste\n";
+}
+
+sub moved {
+	my ($self) = @_;
+	my $x = $self -> mget ('x');
+	my $y = $self -> mget ('y');
+	
+	if ($x < 50)
+	{
+		$self -> {strip} -> setState ('grand');
+		$self -> {mask} -> setState ('grand');
+		$self -> {evolution} -> setState ('montee');
+	}
+	if (($x >= 50) && ($x < 100))
+	{
+		$self -> {strip} -> setState ('grand');
+		$self -> {mask} -> setState ('grand');
+		$self -> {evolution} -> setState ('stable');
+	}
+	if (($x >= 100) && ($x < 300))
+	{
+		$self -> {strip} -> setState ('mini');
+		$self -> {mask} -> setState ('mini');
+		$self -> {evolution} -> setState ('stable');
+	}
+	if (($x >= 300) && ($x < 600))
+	{
+		$self -> {strip} -> setState ('mini');
+		$self -> {mask} -> setState ('mini');
+		$self -> {evolution} -> setState ('descente');
+	}
+	if (($x >= 600) && ($x < 700))
+	{
+		$self -> {strip} -> setState ('shoote');
+		$self -> {mask} -> setState ('shoote');
+		$self -> {evolution} -> setState ('descente');
+	}
+}
+
+1;