lazarus-ccr/applications/gobject-introspection/girpascalclasswriter.pas
drewski207 8d7b0d7e6e Removed CustApp dependency of gir2pas
Implemented some small amount of framework to create pascal classes from gobjects.
Fixed some bugs where properties would not find setters and getters properly when actually available


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2493 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2012-08-26 20:05:29 +00:00

43 lines
879 B
ObjectPascal

{
The purpose of this unit is to create native pascal classes that wrap gobjects in a comfortable and usable way.
}
unit girPascalClassWriter;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, girObjects, girpascalwriter, girpascalwritertypes;
type
{ TGObjectClass }
TGObjectClass = class
private
FParentGObjectClass: TGObjectClass;
FgirObject: TgirClass;
FPascalUnit: TPascalUnit;
public
constructor Create(AParentGObjectClass: TGObjectClass; AClass: TgirClass; APascalUnit: TPascalUnit);
property ParentGObjectClass: TGObjectClass read FParentGObjectClass;
end;
implementation
{ TGObjectClass }
constructor TGObjectClass.Create(AParentGObjectClass: TGObjectClass; AClass: TgirClass; APascalUnit: TPascalUnit);
begin
FParentGObjectClass := AParentGObjectClass;
FgirObject := AClass;
FPascalUnit:=APascalUnit;
end;
end.