X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/8a616f3f3967a8446407e6a63f675d19191ad568..1be497efffd6a881a2b71226df816dbad37bd1ef:/unitwindowobject.pas?ds=inline

diff --git a/unitwindowobject.pas b/unitwindowobject.pas
index 48c356b..ec5d955 100644
--- a/unitwindowobject.pas
+++ b/unitwindowobject.pas
@@ -12,9 +12,9 @@ uses
   {$ifdef mswindows}
     windows,messages,wmessages,
   {$else}
-    lmessages,
+    lcoremessages,
     {$macro on}
-    {$define windows := lmessages}
+    {$define windows := lcoremessages}
   {$endif}
   sysutils,
   pgtypes;
@@ -118,7 +118,7 @@ begin
     '', dwstyle, CW_USEDEFAULT, CW_USEDEFAULT,100, 100, hwnd(0), 0, HInstance, nil);
   //swriteln('about to check result of createwindowex');
   if hWndMain = hwnd(0) then raise exception.create('CreateWindowEx failed');
-  //swriteln('about to store reference to self in extra windo memory');
+  //swriteln('about to store reference to self in extra window memory');
   setwindowlongptr(hwndmain,0,taddrint(self));
   //swriteln('finished twindowobject.create , hwndmain='+inttohex(taddrint(hwndmain),16));
 end;