source: branches/textos/Apps/Bootloader/UBootLoader.pas

unit UBootLoader;

{$mode delphi}

interface

uses
  Classes, SysUtils, UApp;

type

  { TAppBootLoader }

  TAppBootLoader = class(TApp)
    procedure OnStart; override;
    constructor Create; override;
  end;


implementation

uses
  UShell, UCalculator;

{ TAppBootLoader }

procedure TAppBootLoader.OnStart;
begin
  Terminate;
end;

constructor TAppBootLoader.Create;
begin
  inherited;
  Name := 'Bootloader';
end;

end.