X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/7cad80355c81569210547a281e30cd491b5bb353..21410d99e1361e5474a47bb0bd0bc6e939f91b7d:/unitwindowobject.pas?ds=sidebyside

diff --git a/unitwindowobject.pas b/unitwindowobject.pas
index 706c6a3..414f975 100644
--- a/unitwindowobject.pas
+++ b/unitwindowobject.pas
@@ -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;
@@ -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);