diff options
| -rw-r--r-- | exemples/Rattrapage.pm | 10 | ||||
| -rw-r--r-- | exemples/Strip.pm | 10 | ||||
| -rwxr-xr-x | exemples/exemple_Rattrapage.pl | 10 | ||||
| -rwxr-xr-x | exemples/exemple_Strip.pl | 10 |
4 files changed, 24 insertions, 16 deletions
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'); |