bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53:23 -05:00
Code Issues Projects Releases Wiki Activity

* Gave radiobutton-like behavior to the Stages buttons when user-defined

Browse Source 
isn't selected.
This commit is contained in:
freesource 2000-12-18 20:16:39 +00:00
parent 368d67a65f
commit e69fc02752
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
YardBox.pm
View File

@ -293,24 +293,22 @@ my $continue;
# Makes main checkbuttons act like radiobuttons # Makes main checkbuttons act like radiobuttons
# Applies to both one_by_one & continuous # Applies to both one_by_one & continuous
my %which_stage = qw(check 1 dep 0 space 0 create 0 test 0);
sub which_stage { sub which_stage {
my($widget,$name) = @_; my($widget,$name) = @_;
my @check_boxes = ($check, $dep, $space, $create, $test); my @check_boxes = ($check, $dep, $space, $create, $test);
my ($thing); my ($thing);
if ($stages_bool eq "one-by-one" or $stages_bool eq "continuous") { if ($stages_bool eq "one-by-one" or $stages_bool eq "continuous") {
=pod
foreach $thing (@check_boxes) { foreach $thing (@check_boxes) {
if ($thing ne $widget) { if ($thing ne $widget) {
$thing->hide();
$thing->active($false);
$thing->show();
print "$thing $widget\n"; print "$thing $widget\n";
$thing->set_active($false);
} }
} }
=cut
} }
} }
sub continue { sub continue {