From 95ddd8df198ff0f59c3a5e53c70719f5fcea6934 Mon Sep 17 00:00:00 2001
From: plugwash <plugwash@p10link.net>
Date: Tue, 17 Feb 2009 23:32:56 +0000
Subject: [PATCH 1/1] add unitwindowobject.pas with bewares permission

git-svn-id: file:///svnroot/lcore/trunk@43 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
 lcoretest.dpr | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/lcoretest.dpr b/lcoretest.dpr
index 61d771f..da31cd6 100755
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -18,6 +18,7 @@ uses
     ,
     {$ifndef nomessages}
       lmessages,
+      unitwindowobject,
     {$endif}
     unitfork
   {$endif}
@@ -36,9 +37,9 @@ type
     procedure dnsrequestdone(sender:tobject;error : word);
     procedure sessionclosed(sender:tobject;error : word);
   end;
-  treleasetest=class(tlcomponent)
-    destructor destroy; override;
-  end;
+  treleasetest=class(tlcomponent)
+    destructor destroy; override;
+  end;
 var
   listensocket : tlsocket;
   serversocket : tlsocket;
@@ -150,13 +151,13 @@ end;
 procedure tsc.timehandler(sender:tobject);
 begin
   //writeln('got timer event');
-end;
-
-destructor treleasetest.destroy;
-begin
-  writeln('releasetest.destroy called');
-  inherited destroy;
-end;
+end;
+
+destructor treleasetest.destroy;
+begin
+  writeln('releasetest.destroy called');
+  inherited destroy;
+end;
 
 procedure tsc.sessionclosed(sender:tobject;error : word);
 begin
@@ -167,12 +168,12 @@ var
   ipbin : tbinip;
   dummy : integer;
   iplist : tbiniplist;
-  releasetest : treleasetest;
+  releasetest : treleasetest;
 begin
   lcoreinit;
-  releasetest := treleasetest.create(nil);
-  releasetest.release;
-  
+  releasetest := treleasetest.create(nil);
+  releasetest.release;
+  
   ipbin := forwardlookup('invalid.domain',5);
   writeln(ipbintostr(ipbin));
 
-- 
2.30.2