mixster

program TestMenuItemAdder;
var
  TestMenuItem: TMenuItem;

procedure Init;
var
  i: Integer;
begin
  for i := 0 to Simba_MainMenu.Items.Count - 1 do
  begin
    Writeln(Simba_MainMenu.Items.Items[i].Caption);
    if (Simba_MainMenu.Items.Items[i].Caption = '&Tools') then
      break;
  end;

  if i = Simba_MainMenu.Items.Count then
  begin
    Writeln('Couldn''t find the right menu');
    exit;
  end;

  TestMenuItem := TMenuItem.Create(Simba_MainMenu.Items.Items[i]);
  TestMenuItem.Caption := 'Test';
  Simba_MainMenu.Items.Items[i].Add(TestMenuItem);
end;

procedure Free;
begin
end;

procedure Attach;
begin;
  Writeln('Displaying test menu item!');
  if TestMenuItem <> nil then
    TestMenuItem.Visible := True;
end;

Procedure Detach;
begin
  Writeln('Undisplaying test menu item!');
  if TestMenuItem <> nil then
    TestMenuItem.Visible := False;
end;

function GetName : string;
begin;
  result := 'Test menu item adder';
end;

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

begin
end.