diff options
Diffstat (limited to 'src/MTools/Widget/MBouton.pm')
| -rw-r--r-- | src/MTools/Widget/MBouton.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/MTools/Widget/MBouton.pm b/src/MTools/Widget/MBouton.pm index f49af90..acabe65 100644 --- a/src/MTools/Widget/MBouton.pm +++ b/src/MTools/Widget/MBouton.pm @@ -38,7 +38,7 @@ sub new { my $on = minstance ($options {g_on}, $self); my $off = minstance ($options {g_off}, $self); - my $over = defined $options {g_over} ? minstance ($options {g_over}, $self) : $on; + my $over = defined $options {g_over} && $options {g_over} ne ''? minstance ($options {g_over}, $self) : $on; my $eventOn = defined $options {e_press} ? $options {e_press} : 'PRESS'; my $eventOff = defined $options {e_release} ? $options {e_release} : 'RELEASED'; my $cb = $options {call} if (defined $options {call}); @@ -55,7 +55,7 @@ sub new { my @gover; push (@gover, $over); - if (defined $options {g_text}) + if (defined $options {g_text} && $options {g_text} ne "") { $self -> recordProperty ('text', $options {text}); my $txt = minstance ($options {g_text}, $self); |