paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 04:02:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

small fix to cleanup if no package

Browse Source
This commit is contained in:
pierre 1998-09-15 13:11:14 +00:00
parent c5d602d627
commit d79778d19b
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
install/install.pas
View File

@ -345,6 +345,16 @@ program install;
constructor init;
end;
type
tapp = object(tapplication)
procedure initmenubar;virtual;
procedure handleevent(var event : tevent);virtual;
procedure do_installdialog;
end;
var
installapp : tapp;
constructor tinstalldialog.init;
var
@ -396,6 +406,8 @@ program install;
if mask_components=0 then
begin
messagebox('No components found to install, aborting.',nil,mferror+mfokbutton);
{ this clears the screen at least PM }
installapp.done;
halt(1);
end;
@ -424,14 +436,6 @@ program install;
const
cmstart = 1000;
type
tapp = object(tapplication)
procedure initmenubar;virtual;
procedure handleevent(var event : tevent);virtual;
procedure do_installdialog;
end;
procedure tapp.do_installdialog;
var
p : pinstalldialog;
@ -517,8 +521,6 @@ program install;
end;
var
installapp : tapp;
begin
getdir(0,startpath);
successfull:=false;
@ -539,7 +541,10 @@ begin
end.
{
$Log$
Revision 1.5 1998-09-15 12:06:06 peter
Revision 1.6 1998-09-15 13:11:14 pierre
small fix to cleanup if no package
Revision 1.5 1998/09/15 12:06:06 peter
* install updated to support w32 and dos and config file
Revision 1.4 1998/09/10 10:50:49 florian