X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/7cad80355c81569210547a281e30cd491b5bb353..90c7057fc0ae5d85a6443e7633642ef43553ab28:/unitwindowobject.pas?ds=inline

diff --git a/unitwindowobject.pas b/unitwindowobject.pas
index 706c6a3..48c356b 100644
--- a/unitwindowobject.pas
+++ b/unitwindowobject.pas
@@ -165,7 +165,7 @@ var
   MsgRec : TMsg;
 begin
   while GetMessage(MsgRec, hwnd(0), 0, 0) do begin
-    {$ifdef mswindowss}
+    {$ifdef mswindows}
     TranslateMessage(MsgRec);
     {$endif}
     DispatchMessage(MsgRec);