mixster

program SRLUpdater;
var
  MainMenuItem, MenuCheck, MenuUpdate : TMenuItem;
  started: Boolean;

procedure CheckSRLVersions;
begin

end;

procedure UpdateSRL;
begin

end;

procedure OnSRLUpdaterClick(Sender: TObject);
begin
  Writeln('Click!');
  if (Sender = MenuCheck) then
  begin
    CheckSRLVersions;
    Writeln('We checked and you''re fine, or maybe not!');
  end
  else if (Sender = MenuUpdate) then
  begin
    UpdateSRL;
    Writeln('Updated you - looks good, or does it?');
  end;
end;

procedure Init;
begin;
  Writeln('Maybe your SRL is out of date? =O');

  MainMenuItem := TMenuItem.Create(Simba_MainMenu);
  MainMenuItem.Caption := 'SRL';
  Simba_MainMenu.Items.Add(MainMenuItem);

  MenuCheck := TMenuItem.Create(MainMenuItem);
  MenuCheck.Caption := 'Check for new SRL';
  MenuCheck.OnClick := @OnSRLUpdaterClick;
  MainMenuItem.Add(MenuCheck);

  MenuUpdate := TMenuItem.Create(MainMenuItem);
  MenuUpdate.Caption := 'Update SRL';
  MenuUpdate.OnClick := @OnSRLUpdaterClick;
  MainMenuItem.Add(MenuUpdate);

  started := True;
end;

procedure Free;
begin
  if (started) then
  begin
    MenuCheck.Free;
    MenuUpdate.Free;
    MainMenuItem.Free;
  end;
end;

procedure Attach;
begin;
  Writeln('From now on, you shall be alerted as to when your SRL is out of date!');
  MainMenuItem.Visible := True;
end;

Procedure Detach;
begin
  Writeln('Fine, look after your own includes. See if we care!');
  MainMenuItem.Visible := False;
end;

function GetName : string;
begin;
  result := 'SRL Updater';
end;

function GetVersion : string;
begin;
  result := '1.0';
end;
begin
end.