fixed fpc 2.1.1 compilation

git-svn-id: trunk@10521 -
This commit is contained in:
vincents 2007-01-27 21:15:52 +00:00
parent 27143c2d74
commit 0f0dec2f80

View File

@ -239,7 +239,7 @@ implementation
Creates new custom group box in Carbon interface with the specified parameters
------------------------------------------------------------------------------}
function TCarbonWSCustomGroupBox.CreateHandle(const AWinControl: TWinControl;
class function TCarbonWSCustomGroupBox.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
Control: ControlRef;