[lazarus] The compiler don't eat this. Why???

[Gabor Boros]

Hi!

The compiler's opinion is:
"There is no method in an ancestor class to be overridden"

Any idea?

Gabor

/*********************/
type
  Txxx = class(TObject)
  private
    procedure Method_1(Value:Integer);
  end;

  Tzzz = class(Txxx)
  private
    procedure Method_1(Value:Integer); override;
  end;

begin
end.
/*********************/

_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives