aboutsummaryrefslogtreecommitdiff
path: root/exemples/Strip.pm
diff options
context:
space:
mode:
Diffstat (limited to 'exemples/Strip.pm')
-rw-r--r--exemples/Strip.pm10
1 files changed, 6 insertions, 4 deletions
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