X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/7cad80355c81569210547a281e30cd491b5bb353..f0a6e6591b3d306641b78dfed4a4066935e82096:/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);