paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 10:52:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: broke LCL<->interface circles

Browse Source 
git-svn-id: trunk@1221 -
This commit is contained in:
lazarus 2002-02-09 01:48:07 +00:00
parent e21390b5c1
commit ddc0fecdec
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkint.pp
View File

@ -49,7 +49,7 @@ uses
InterfaceBase, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf} gtk, gdk,
glib, SysUtils, LMessages, Classes, Controls, Forms, VclGlobals,
LCLLinux, LCLType, gtkDef, DynHashArray, LazQueue, GraphType,
GraphicsMath;
GraphMath;
type
TgtkObject = class(TInterfaceBase)
@ -171,7 +171,7 @@ type
public
constructor Create;
destructor Destroy; override;
function GetText(Sender: TControl; var Text: String): Boolean; override;
function GetText(Sender: TComponent; var Text: String): Boolean; override;
procedure SetLabel(Sender : TObject; Data : Pointer); virtual;
function IntSendMessage3(LM_Message : Integer; Sender : TObject;
data : pointer) : integer; override;
@ -268,6 +268,9 @@ end.
{ =============================================================================
$Log$
Revision 1.95 2002/10/26 15:15:50 lazarus
MG: broke LCL<->interface circles
Revision 1.94 2002/10/24 22:10:39 lazarus
AJ: More changes for better code reuse between gnome & gtk interfaces