paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

added class keyword to proc bodies for fpc 2.1.1

Browse Source 
git-svn-id: trunk@9373 -
This commit is contained in:
vincents 2006-05-29 12:08:34 +00:00
parent 77ba6ead64
commit 6492115d91
8 changed files with 38 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/carbon/carbonprivate.pp
View File

@ -114,13 +114,13 @@ implementation
{$I carbonprivatecheckbox.inc}
// move to inc
procedure TCarbonPrivateHandle.RegisterEvents(AInfo: PWidgetInfo);
class procedure TCarbonPrivateHandle.RegisterEvents(AInfo: PWidgetInfo);
begin
end;
procedure TCarbonPrivateHandle.UnregisterEvents;
class procedure TCarbonPrivateHandle.UnregisterEvents;
begin
end;
end.
end.

6
lcl/interfaces/carbon/carbonprivatecheckbox.inc
View File

@ -16,11 +16,11 @@
}
procedure TCarbonPrivateCheckBox.RegisterEvents(AInfo: PWidgetInfo);
class procedure TCarbonPrivateCheckBox.RegisterEvents(AInfo: PWidgetInfo);
begin
// do we call inherited(AInfo); here?
end;
procedure TCarbonPrivateCheckBox.UnRegisterEvents;
class procedure TCarbonPrivateCheckBox.UnRegisterEvents;
begin
end;
end;

6
lcl/interfaces/carbon/carbonprivatehiview.inc
View File

@ -73,7 +73,7 @@ end;
{ TCarbonWSWinControlPrivate }
(*
procedure TCarbonPrivateHiView.InstallControlHandler(AInfo: PWidgetInfo; AClass: UInt32; AKind: UInt32; AHandler: Pointer; var AUPP: EventHandlerUPP);
class procedure TCarbonPrivateHiView.InstallControlHandler(AInfo: PWidgetInfo; AClass: UInt32; AKind: UInt32; AHandler: Pointer; var AUPP: EventHandlerUPP);
var
eventSpec: EventTypeSpec;
begin
@ -85,7 +85,7 @@ begin
end;
*)
procedure TCarbonPrivateHiView.RegisterEvents(AInfo: PWidgetInfo);
class procedure TCarbonPrivateHiView.RegisterEvents(AInfo: PWidgetInfo);
var
MouseSpec: array [0..6] of EventTypeSpec;
TmpSpec: EventTypeSpec;
@ -110,7 +110,7 @@ begin
DebugLN(TWinControl(Ainfo^.LCLObject).Name,':', TWinControl(Ainfo^.LCLObject).ClassName ,' Events set')
end;
procedure TCarbonPrivateHiView.UnregisterEvents;
class procedure TCarbonPrivateHiView.UnregisterEvents;
begin
UnregisterEventHandler(@CarbonPrivateHIView_Dispose);
UnregisterEventHandler(@CarbonPrivateHIView_Hit);

4
lcl/interfaces/carbon/carbonprivatewindow.inc
View File

@ -819,7 +819,7 @@ end;
{ TCarbonPrivateWindow }
procedure TCarbonPrivateWindow.RegisterEvents(AInfo: PWidgetInfo);
class procedure TCarbonPrivateWindow.RegisterEvents(AInfo: PWidgetInfo);
var
MouseSpec: array [0..6] of EventTypeSpec;
TmpSpec: EventTypeSpec;
@ -866,7 +866,7 @@ begin
3, @KeySpecs[0], Pointer(AInfo), nil);
end;
procedure TCarbonPrivateWindow.UnregisterEvents;
class procedure TCarbonPrivateWindow.UnregisterEvents;
begin
UnregisterEventHandler(@CarbonPrivateWindow_Close);
UnregisterEventHandler(@CarbonPrivateWindow_Closed);

4
lcl/interfaces/carbon/carbonwsbuttons.pp
View File

@ -69,7 +69,7 @@ implementation
{ TCarbonWSButton }
function TCarbonWSButton.CreateHandle(const AWinControl: TWinControl;
class function TCarbonWSButton.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
//Button: TCustomButton;
@ -114,4 +114,4 @@ initialization
// RegisterWSComponent(TCustomBitBtn, TCarbonWSBitBtn);
// RegisterWSComponent(TCustomSpeedButton, TCarbonWSSpeedButton);
////////////////////////////////////////////////////
end.
end.

14
lcl/interfaces/carbon/carbonwscontrols.pp
View File

@ -99,7 +99,7 @@ implementation
{ TCarbonWSWinControl }
function TCarbonWSWinControl.GetText(const AWinControl: TWinControl;
class function TCarbonWSWinControl.GetText(const AWinControl: TWinControl;
var AText: String): Boolean;
var
CFString: CFStringRef;
@ -162,7 +162,7 @@ begin
end;
end;
procedure TCarbonWSWinControl.SetText(const AWinControl: TWinControl;
class procedure TCarbonWSWinControl.SetText(const AWinControl: TWinControl;
const AText: String);
var
CFString: CFStringRef;
@ -178,7 +178,7 @@ begin
CFRelease(Pointer(CFString));
end;
procedure TCarbonWSWinControl.DestroyHandle(const AWinControl: TWinControl);
class procedure TCarbonWSWinControl.DestroyHandle(const AWinControl: TWinControl);
begin
if not WSCheckHandleAllocated(AWincontrol, 'DestroyHandle')
then Exit;
@ -187,7 +187,7 @@ begin
DisposeControl(ControlRef(AWinControl.Handle));
end;
function TCarbonWSWinControl.GetClientBounds(const AWincontrol: TWinControl;
class function TCarbonWSWinControl.GetClientBounds(const AWincontrol: TWinControl;
var ARect: TRect): Boolean;
var
AHiRect: HIRect;
@ -200,7 +200,7 @@ begin
ARect.Bottom := ARect.Top + Trunc(AHIRect.size.height);
end;
function TCarbonWSWinControl.GetClientRect(const AWincontrol: TWinControl;
class function TCarbonWSWinControl.GetClientRect(const AWincontrol: TWinControl;
var ARect: TRect): Boolean;
var
AHiRect: HIRect;
@ -215,7 +215,7 @@ end;
{ TCarbonWSCustomControl }
function TCarbonWSCustomControl.CreateHandle(const AWinControl: TWinControl;
class function TCarbonWSCustomControl.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
//Button: TCustomButton;
@ -263,4 +263,4 @@ finalization
// if MCarbonWSWinControl_Dispose_UPP <> nil then DisposeEventHandlerUPP(MCarbonWSWinControl_Dispose_UPP);
// if MCarbonWSWinControl_Hit_UPP <> nil then DisposeEventHandlerUPP(MCarbonWSWinControl_Hit_UPP);
end.
end.

8
lcl/interfaces/carbon/carbonwsforms.pp
View File

@ -120,7 +120,7 @@ implementation
{ TCarbonWSCustomForm }
function TCarbonWSCustomForm.CreateHandle(const AWinControl: TWinControl;
class function TCarbonWSCustomForm.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
Window: FPCMacOSAll.WindowRef;
@ -174,7 +174,7 @@ begin
ShowWindow(Window);
end;
procedure TCarbonWSCustomForm.DestroyHandle(const AWinControl: TWinControl);
class procedure TCarbonWSCustomForm.DestroyHandle(const AWinControl: TWinControl);
begin
if not WSCheckHandleAllocated(AWincontrol, 'DestroyHandle')
then Exit;
@ -182,7 +182,7 @@ begin
DisposeWindow(WindowRef(AWinControl.Handle));
end;
procedure TCarbonWSCustomForm.SetText(const AWinControl: TWinControl;
class procedure TCarbonWSCustomForm.SetText(const AWinControl: TWinControl;
const AText: String);
var
CFString: CFStringRef;
@ -215,4 +215,4 @@ initialization
// RegisterWSComponent(TApplicationProperties, TCarbonWSApplicationProperties);
////////////////////////////////////////////////////
end.
end.

28
lcl/interfaces/carbon/carbonwsstdctrls.pp
View File

@ -225,7 +225,7 @@ type
implementation
function TCarbonWSCustomEdit.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
class function TCarbonWSCustomEdit.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
var
Edit: TCustomEdit;
Control: ControlRef;
@ -262,7 +262,7 @@ begin
TCarbonPrivateHandleClass(WSPrivate).RegisterEvents(Info);
end;
function TCarbonWSCustomEdit.GetSelStart(const ACustomEdit: TCustomEdit): integer;
class function TCarbonWSCustomEdit.GetSelStart(const ACustomEdit: TCustomEdit): integer;
var
Control: ControlRef;
SelData: ControlEditTextSelectionRec;
@ -280,7 +280,7 @@ begin
Result := SelData.SelStart;
end;
function TCarbonWSCustomEdit.GetSelLength(const ACustomEdit: TCustomEdit): integer;
class function TCarbonWSCustomEdit.GetSelLength(const ACustomEdit: TCustomEdit): integer;
var
Control: ControlRef;
SelData: ControlEditTextSelectionRec;
@ -298,7 +298,7 @@ begin
Result := SelData.SelEnd - SelData.SelStart;
end;
function TCarbonWSCustomEdit.GetText(const AWinControl: TWinControl;
class function TCarbonWSCustomEdit.GetText(const AWinControl: TWinControl;
var AText: String): Boolean;
var
Control: ControlRef;
@ -332,25 +332,25 @@ begin
AText := PChar(Str);
end;
procedure TCarbonWSCustomEdit.SetCharCase(const ACustomEdit: TCustomEdit;
class procedure TCarbonWSCustomEdit.SetCharCase(const ACustomEdit: TCustomEdit;
NewCase: TEditCharCase);
begin
// TODO
end;
procedure TCarbonWSCustomEdit.SetEchoMode(const ACustomEdit: TCustomEdit;
class procedure TCarbonWSCustomEdit.SetEchoMode(const ACustomEdit: TCustomEdit;
NewMode: TEchoMode);
begin
//TODO
end;
procedure TCarbonWSCustomEdit.SetMaxLength(const ACustomEdit: TCustomEdit;
class procedure TCarbonWSCustomEdit.SetMaxLength(const ACustomEdit: TCustomEdit;
NewLength: integer);
begin
//AFAICS this will have to be checked in a callback
end;
procedure TCarbonWSCustomEdit.SetPasswordChar(const ACustomEdit: TCustomEdit;
class procedure TCarbonWSCustomEdit.SetPasswordChar(const ACustomEdit: TCustomEdit;
NewChar: char);
var
NeedsPassword: Boolean;
@ -370,7 +370,7 @@ begin
end;
procedure TCarbonWSCustomEdit.SetReadOnly(const ACustomEdit: TCustomEdit;
class procedure TCarbonWSCustomEdit.SetReadOnly(const ACustomEdit: TCustomEdit;
NewReadOnly: boolean);
var
Control: ControlRef;
@ -384,7 +384,7 @@ begin
SizeOf(Boolean), @NewReadOnly);
end;
procedure TCarbonWSCustomEdit.SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer);
class procedure TCarbonWSCustomEdit.SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer);
var
Control: ControlRef;
SelData: ControlEditTextSelectionRec;
@ -404,7 +404,7 @@ begin
end;
procedure TCarbonWSCustomEdit.SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer);
class procedure TCarbonWSCustomEdit.SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer);
var
Control: ControlRef;
SelData: ControlEditTextSelectionRec;
@ -423,7 +423,7 @@ begin
end;
procedure TCarbonWSCustomEdit.SetText(const AWinControl: TWinControl;
class procedure TCarbonWSCustomEdit.SetText(const AWinControl: TWinControl;
const AText: String);
var
Control: ControlRef;
@ -445,7 +445,7 @@ begin
CFRelease(Pointer(CFString));
end;
procedure TCarbonWSCustomEdit.GetPreferredSize(const AWinControl: TWinControl;
class procedure TCarbonWSCustomEdit.GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);
begin
//TODO
@ -453,7 +453,7 @@ end;
{ TCarbonWSCustomCheckBox }
function TCarbonWSCustomCheckBox.CreateHandle(const AWinControl: TWinControl;
class function TCarbonWSCustomCheckBox.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
CheckBox:TCheckBox;