1
0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53:23 -05:00

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

This commit is contained in:
freesource 2000-12-20 19:48:04 +00:00
parent 808215a667
commit ad7247f9a4

View File

@ -750,8 +750,11 @@ sub yard_box {
$lib_strip->signal_connect( "activate", $lib_strip->signal_connect( "activate",
sub { sub {
# off # off
if ($lib_bool == 1) { if ($lib_bool eq "") {
$lib_bool--; $lib_bool = 0;
}
if ($lib_bool == 1) {
$lib_bool--;
} }
# on # on
else { else {
@ -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--;
} }