add unitwindowobject.pas with bewares permission

git-svn-id: file:///svnroot/lcore/trunk@43 b1de8a11-f9be-4011-bde0-cc7ace90066a

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