1 files changed, 38 insertions, 0 deletions
diff --git a/apps/X11/VCL/TObject.h b/apps/X11/VCL/TObject.h
new file mode 100644
index 0000000..874f071
--- /dev/null
+++ b/apps/X11/VCL/TObject.h
@@ -0,0 +1,38 @@
+#ifndef TOBJECT_H
+#define TOBJECT_H
+
+#include <property>
+
+class TObject {
+public:
+	TObject();
+	virtual ~TObject();
+/*
+    procedure Free;
+    class function InitInstance(Instance: Pointer): TObject;
+    procedure CleanupInstance;
+    function ClassType: TClass;
+    class function ClassName: ShortString;
+    class function ClassNameIs(const Name: string): Boolean;
+    class function ClassParent: TClass;
+    class function ClassInfo: Pointer;
+    class function InstanceSize: Longint;
+    class function InheritsFrom(AClass: TClass): Boolean;
+    class function MethodAddress(const Name: ShortString): Pointer;
+    class function MethodName(Address: Pointer): ShortString;
+    function FieldAddress(const Name: ShortString): Pointer;
+    function GetInterface(const IID: TGUID; out Obj): Boolean;
+    class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;
+    class function GetInterfaceTable: PInterfaceTable;
+    function SafeCallException(ExceptObject: TObject;
+      ExceptAddr: Pointer): HResult; virtual;
+    procedure AfterConstruction; virtual;
+    procedure BeforeDestruction; virtual;
+    procedure Dispatch(var Message); virtual;
+    procedure DefaultHandler(var Message); virtual;
+    class function NewInstance: TObject; virtual;
+    procedure FreeInstance; virtual;
+*/
+};
+
+#endif