remove checkout ui and set it so that it just builds. checkout routines have been moved to "PullNGlayout.pl"

This commit is contained in:
cyeh%netscape.com 1998-11-11 21:42:28 +00:00
Родитель d3987157c6
Коммит 9bbb67a647
1 изменённых файлов: 4 добавлений и 50 удалений

Просмотреть файл

@ -35,56 +35,10 @@ $pull{netlib} = 0;
$pull{nglayout} = 0; $pull{nglayout} = 0;
$pull{mac} = 0; $pull{mac} = 0;
$build{all} = 0; $build{all} = 1;
$build{dist} = 0; $build{dist} = 1;
$build{common}= 0; $build{common}= 1;
$build{nglayout}= 0; $build{nglayout}= 1;
#
# UI
#
@choices = ("pull_all", "build_all", "pull_and_build_all");
while (GetFrontProcess () != GetCurrentProcess())
{
SetFrontProcess( GetCurrentProcess() );
}
@pick = MacPerl::Pick("What would you like to do?", @choices);
$pull{all} = 0;
$build{all} = 1;
foreach $i (@pick)
{
if ($i eq "pull_all")
{
$pull{all} = 1;
}
elsif ($i eq "build_all")
{
$build{all} = 1;
}
elsif ($i eq "pull_and_build_all")
{
$build{all} = 1;
$pull{all} = 1;
}
}
if ($pull{all})
{
foreach $k (keys(%pull))
{
$pull{$k} = 1;
}
}
if ($build{all})
{
foreach $k (keys(%build))
{
$build{$k} = 1;
}
}
# do the work # do the work
# you should not have to edit anything bellow # you should not have to edit anything bellow