From c6b14d20e07e17a9883b0fac50a7c3055e88542d Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:01 +0000
Subject: [PATCH] GTK Cleanup Shane

git-svn-id: trunk@1169 -
---
 lcl/interfacebase.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp
index 6360ce4053..a01f8a178b 100644
--- a/lcl/interfacebase.pp
+++ b/lcl/interfacebase.pp
@@ -48,6 +48,8 @@ type
   }
   TInterfaceBase = Class(TObject)
   private
+    procedure SetCallback(Msg : LongInt; Sender : TObject); virtual; abstract;
+    procedure RemoveCallbacks(Sender : TObject); virtual; abstract;
   protected
   public
     procedure AppTerminate; virtual; abstract;
@@ -57,8 +59,6 @@ type
     procedure Init; virtual; abstract;
     function GetText(Sender: TControl; var Text: String): Boolean; virtual; abstract;
     function  IntSendMessage3(LM_Message : Integer; Sender : TObject; data : pointer) : integer; virtual; abstract;
-    procedure SetCallback(Msg : LongInt; Sender : TObject); virtual; abstract;
-    procedure RemoveCallbacks(Sender : TObject); virtual; abstract;
     function UpdateHint(Sender: TObject): Integer; virtual; abstract;
     function RecreateWnd(Sender: TObject): Integer; virtual; abstract;
 
@@ -82,6 +82,10 @@ end.
 
 {
   $Log$
+  Revision 1.6  2002/03/25 17:59:19  lazarus
+  GTK Cleanup
+  Shane
+
   Revision 1.5  2002/02/03 00:24:00  lazarus
   TPanel implemented.
   Basic graphic primitives split into GraphType package, so that we can