From 27143c2d743de0b1d1b79d61c20e5f3ac2bc1a4c Mon Sep 17 00:00:00 2001 From: vincents Date: Sat, 27 Jan 2007 20:11:23 +0000 Subject: [PATCH] fixed fpc 2.1.1 compilation git-svn-id: trunk@10520 - --- lcl/interfaces/carbon/carbonwsforms.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/carbon/carbonwsforms.pp b/lcl/interfaces/carbon/carbonwsforms.pp index 7f093be7dd..2c8006331f 100644 --- a/lcl/interfaces/carbon/carbonwsforms.pp +++ b/lcl/interfaces/carbon/carbonwsforms.pp @@ -255,7 +255,7 @@ end; Retrieves the text (caption) of window in Carbon interface ------------------------------------------------------------------------------} -function TCarbonWSCustomForm.GetText(const AWinControl: TWinControl; +class function TCarbonWSCustomForm.GetText(const AWinControl: TWinControl; var AText: String): Boolean; var CFString: CFStringRef; @@ -306,7 +306,7 @@ end; Sets color of window in Carbon interface according to the LCL control ------------------------------------------------------------------------------} -procedure TCarbonWSCustomForm.SetColor(const AWinControl: TWinControl); +class procedure TCarbonWSCustomForm.SetColor(const AWinControl: TWinControl); begin if not WSCheckHandleAllocated(AWinControl, 'SetColor') then Exit;