Browse Source

* fixes stripping option eq "", so "" eq 0 before processing

master
freesource 24 years ago
parent
commit
ad7247f9a4
  1. 9
      YardBox.pm

9
YardBox.pm

@ -750,6 +750,9 @@ sub yard_box {
$lib_strip->signal_connect( "activate", $lib_strip->signal_connect( "activate",
sub { sub {
# off # off
if ($lib_bool eq "") {
$lib_bool = 0;
}
if ($lib_bool == 1) { if ($lib_bool == 1) {
$lib_bool--; $lib_bool--;
} }
@ -774,6 +777,9 @@ sub yard_box {
$bin_strip->active($true); $bin_strip->active($true);
$bin_strip->signal_connect( "activate", $bin_strip->signal_connect( "activate",
sub { sub {
if ($bin_bool eq "") {
$bin_bool = 0;
}
# off # off
if ($bin_bool == 1) { if ($bin_bool == 1) {
$bin_bool--; $bin_bool--;
@ -794,6 +800,9 @@ sub yard_box {
$mod_strip->signal_connect( "activate", $mod_strip->signal_connect( "activate",
sub { sub {
# off # off
if ($mod_bool eq "") {
$mod_bool = 0;
}
if ($mod_bool == 1) { if ($mod_bool == 1) {
$mod_bool--; $mod_bool--;
} }

Loading…
Cancel
Save