From 9527480e75336a2dda3edf8fc17956e9c0a4dd59 Mon Sep 17 00:00:00 2001
From: didier
Date: Fri, 9 Nov 2007 09:00:31 +0000
Subject: Mise a jour des  exemples par rapport aux differentes evolutions de
 MTools. Notamment pour les toggleButton...

---
 exemples/Rattrapage.pm         | 10 ++++++----
 exemples/Strip.pm              | 10 ++++++----
 exemples/exemple_Rattrapage.pl | 10 ++++++----
 exemples/exemple_Strip.pl      | 10 ++++++----
 4 files changed, 24 insertions(+), 16 deletions(-)

(limited to 'exemples')

diff --git a/exemples/Rattrapage.pm b/exemples/Rattrapage.pm
index 848b6dd..f5ddda7 100644
--- a/exemples/Rattrapage.pm
+++ b/exemples/Rattrapage.pm
@@ -112,10 +112,12 @@ sub new {
  	
 	my $bouton_cloche = new MTools::Widget::MToggleBouton (
 		parent => $self,
- 		g_on => 'rattrapage.svg#cloche',
- 		g_off => 'rattrapage.svg#cloche_fantome',
- 		e_press => 'CLOCHE',
- 		e_release => 'PAS_CLOCHE'
+ 		g_on1 => 'rattrapage.svg#cloche',
+ 		g_off1 => 'rattrapage.svg#cloche_fantome',
+ 		g_on2 => 'rattrapage.svg#cloche',
+ 		g_off2 => 'rattrapage.svg#cloche_fantome',
+ 		e_press1 => 'CLOCHE',
+ 		e_release1 => 'PAS_CLOCHE'
  	);
  	
 	my $bouton_delete = new MTools::Widget::MBouton (
diff --git a/exemples/Strip.pm b/exemples/Strip.pm
index 59d800f..afe03c4 100644
--- a/exemples/Strip.pm
+++ b/exemples/Strip.pm
@@ -50,10 +50,12 @@ sub new {
 	# 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'
+ 		g_on1 => 'strip.svg#alarme_on',
+ 		g_off1 => 'strip.svg#alarme_off',
+ 		g_on2 => 'strip.svg#alarme_on',
+ 		g_off2 => 'strip.svg#alarme_off',
+ 		e_press1 => 'ALARME_PRESS',
+ 		e_release1 => 'ALARME_RELEASE'
  	);
 
  	# Instanciation des objets textes situe sur la premiere partie du strip
diff --git a/exemples/exemple_Rattrapage.pl b/exemples/exemple_Rattrapage.pl
index 9524676..aadbf21 100755
--- a/exemples/exemple_Rattrapage.pl
+++ b/exemples/exemple_Rattrapage.pl
@@ -38,10 +38,12 @@ new Rattrapage (1, $com2, $com3, $manager);
 
 my $bouton = new MTools::Widget::MToggleBouton (
 	parent => 1,
-	g_on => 'rattrapage.svg#delete_on',
-	g_off => 'rattrapage.svg#delete_off',
-	e_press => 'EDIT',
-	e_release => 'NON_EDIT'
+	g_on1 => 'rattrapage.svg#delete_on',
+	g_off1 => 'rattrapage.svg#delete_off',
+	g_on2 => 'rattrapage.svg#delete_on',
+	g_off2 => 'rattrapage.svg#delete_off',
+	e_press1 => 'EDIT',
+	e_release1 => 'NON_EDIT'
 );
 
 $bouton -> translate (50, 50);
diff --git a/exemples/exemple_Strip.pl b/exemples/exemple_Strip.pl
index 004580e..c74975e 100755
--- a/exemples/exemple_Strip.pl
+++ b/exemples/exemple_Strip.pl
@@ -37,10 +37,12 @@ my $strip_focuser = new MTools::Comp::MFocuser ($strip1, $strip2, $strip3);
 # Instanication d'un petit bouton rouge
 my $bouton1 = new MTools::Widget::MToggleBouton (
 	parent => 1,
-	g_on => 'strip.svg#alarme_on',
-	g_off => 'strip.svg#alarme_off',
-	e_press => 'PRENDRE_FOCUS',
-	e_release => 'PRENDRE_FOCUS'
+	g_on1 => 'strip.svg#alarme_on',
+	g_off1 => 'strip.svg#alarme_off',
+	g_on2 => 'strip.svg#alarme_on',
+	g_off2 => 'strip.svg#alarme_off',
+	e_press1 => 'PRENDRE_FOCUS',
+	e_release1 => 'PRENDRE_FOCUS'
 );
 $bouton1 -> recordEvent('SET_FOCUS');
 $bouton1 -> recordEvent('GET_FOCUS');
-- 
cgit v1.1