From 77ba6ead64c8bf0ecc87646bdcf7c5254b948432 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 29 May 2006 09:36:27 +0000
Subject: [PATCH] added class keyword to proc bodies for fpc 2.1.1

git-svn-id: trunk@9372 -
---
 lcl/interfaces/qt/qtwsextctrls.pp | 14 +++++++-------
 lcl/interfaces/qt/qtwsspin.pp     |  6 +++---
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lcl/interfaces/qt/qtwsextctrls.pp b/lcl/interfaces/qt/qtwsextctrls.pp
index cf74c03b39..fcc51416a7 100644
--- a/lcl/interfaces/qt/qtwsextctrls.pp
+++ b/lcl/interfaces/qt/qtwsextctrls.pp
@@ -226,7 +226,7 @@ implementation
 
   Allocates memory and resources for the control and shows it
  ------------------------------------------------------------------------------}
-function TQtWSCustomPanel.CreateHandle(const AWinControl: TWinControl;
+class function TQtWSCustomPanel.CreateHandle(const AWinControl: TWinControl;
   const AParams: TCreateParams): HWND;
 var
   QtFrame: TQtFrame;
@@ -248,7 +248,7 @@ end;
 
   Releases allocated memory and resources
  ------------------------------------------------------------------------------}
-procedure TQtWSCustomPanel.DestroyHandle(const AWinControl: TWinControl);
+class procedure TQtWSCustomPanel.DestroyHandle(const AWinControl: TWinControl);
 begin
   TQtFrame(AWinControl.Handle).Free;
 
@@ -264,7 +264,7 @@ end;
 
   Allocates memory and resources for the control and shows it
  ------------------------------------------------------------------------------}
-function TQtWSCustomPage.CreateHandle(const AWinControl: TWinControl;
+class function TQtWSCustomPage.CreateHandle(const AWinControl: TWinControl;
   const AParams: TCreateParams): HWND;
 var
   QtWidget: TQtWidget;
@@ -283,14 +283,14 @@ end;
 
   Releases allocated memory and resources
  ------------------------------------------------------------------------------}
-procedure TQtWSCustomPage.DestroyHandle(const AWinControl: TWinControl);
+class procedure TQtWSCustomPage.DestroyHandle(const AWinControl: TWinControl);
 begin
   TQtWidget(AWinControl.Handle).Free;
 
   AWinControl.Handle := 0;
 end;
 
-procedure TQtWSCustomPage.SetText(const AWinControl: TWinControl;
+class procedure TQtWSCustomPage.SetText(const AWinControl: TWinControl;
   const AText: string);
 begin
   inherited SetText(AWinControl, AText);
@@ -305,7 +305,7 @@ end;
 
   Allocates memory and resources for the control and shows it
  ------------------------------------------------------------------------------}
-function TQtWSCustomNotebook.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+class function TQtWSCustomNotebook.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
 var
   QtTabWidget: TQtTabWidget;
 begin
@@ -335,7 +335,7 @@ begin
 
 end;
 
-procedure TQtWSCustomNotebook.AddPage(const ANotebook: TCustomNotebook;
+class procedure TQtWSCustomNotebook.AddPage(const ANotebook: TCustomNotebook;
   const AChild: TCustomPage; const AIndex: integer);
 var
   Str: WideString;
diff --git a/lcl/interfaces/qt/qtwsspin.pp b/lcl/interfaces/qt/qtwsspin.pp
index 374444622a..1cca925cbc 100644
--- a/lcl/interfaces/qt/qtwsspin.pp
+++ b/lcl/interfaces/qt/qtwsspin.pp
@@ -65,7 +65,7 @@ implementation
   Params:  None
   Returns: Nothing
  ------------------------------------------------------------------------------}
-function TQtWSCustomFloatSpinEdit.CreateHandle(const AWinControl: TWinControl;
+class function TQtWSCustomFloatSpinEdit.CreateHandle(const AWinControl: TWinControl;
   const AParams: TCreateParams): HWND;
 var
   QtSpinBox: TQtSpinBox;
@@ -82,7 +82,7 @@ end;
   Params:  None
   Returns: Nothing
  ------------------------------------------------------------------------------}
-procedure TQtWSCustomFloatSpinEdit.DestroyHandle(const AWinControl: TWinControl);
+class procedure TQtWSCustomFloatSpinEdit.DestroyHandle(const AWinControl: TWinControl);
 begin
   TQtSpinBox(AWinControl.Handle).Free;
 
@@ -100,4 +100,4 @@ initialization
   RegisterWSComponent(TCustomFloatSpinEdit, TQtWSCustomFloatSpinEdit);
 //  RegisterWSComponent(TFloatSpinEdit, TQtWSFloatSpinEdit);
 ////////////////////////////////////////////////////
-end.
\ No newline at end of file
+end.