[Lazarus] codetools: class helper: unit1.pas(20, 30) Error: : expected, but for found

[Marcos Douglas]

Hi,

I can't navigate using Ctrl+Shift+C if unit has a class helper.
If you try in code below, you got the error: "expected, but for found"

But this code compiles without problems.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
    procedure A;
    procedure B;
  end;

  TFormHelper = class helper for TForm1
  public
    procedure C;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.A;
begin
end;

procedure TForm1.B;
begin
end;

procedure TFormHelper.C;
begin
end;

end.

--

Marcos Douglas