[lazarus] Thought for multi-platform

[Jeff Wormsley]

Try like this... No Else, move the Endif for GTK.  Also, where are you doing the {$define GTK} and the others?

Jeff.


unit interfaces;
 
{$mode objfpc} 

interface
{$ifdef read_interface}

{$ifdef GTK}

uses gtk,gdk,glib,mesages,gtkint;
type

TInterfaceObject = class(gtkObject)
	public
	  constructor Create;override; 
  	  destructor Destroy; override; 
	end;
Var
InterfaceObject : TInterfaceObject;

{$endif GTK}
{$ifdef QT}

uses Messages;

type
TInterfaceObject = class(QTObject)
	public
	  constructor Create;override; 
  	  destructor Destroy; override; 
	end;

Var
InterfaceObject : TInterfaceObject;

{$endif QT}
{$endif read_interface}
implementation

{$ifdef read_implementation}
constructor TInterfaceObject.Create;
	Begin
	Inherited Create;
	End;


destructor TInterfaceObject.Destroy;
	Begin
	Inherited Destroy;
	End;

{$endif read_implementation}
end.