btime overhaul. newer APIs. added btime_gettime. now requires int64.

[lcore.git] / unitwindowobject.pas

diff --git a/unitwindowobject.pas b/unitwindowobject.pas
index 48c356bc28a477847bbbf1f78bb0369f54671aab..ec5d955fa3b0a3b1315ed59c686b2efa951c1d96 100644 (file)
--- a/unitwindowobject.pas
+++ b/unitwindowobject.pas
@@ -12,9 +12,9 @@ uses
   {$ifdef mswindows}\r
     windows,messages,wmessages,\r
   {$else}\r
   {$ifdef mswindows}\r
     windows,messages,wmessages,\r
   {$else}\r

-    lmessages,\r
+    lcoremessages,\r

     {$macro on}\r
     {$macro on}\r

-    {$define windows := lmessages}\r
+    {$define windows := lcoremessages}\r

   {$endif}\r
   sysutils,\r
   pgtypes;\r
   {$endif}\r
   sysutils,\r
   pgtypes;\r


@@ -118,7 +118,7 @@ begin
     '', dwstyle, CW_USEDEFAULT, CW_USEDEFAULT,100, 100, hwnd(0), 0, HInstance, nil);\r
   //swriteln('about to check result of createwindowex');\r
   if hWndMain = hwnd(0) then raise exception.create('CreateWindowEx failed');\r
     '', dwstyle, CW_USEDEFAULT, CW_USEDEFAULT,100, 100, hwnd(0), 0, HInstance, nil);\r
   //swriteln('about to check result of createwindowex');\r
   if hWndMain = hwnd(0) then raise exception.create('CreateWindowEx failed');\r

-  //swriteln('about to store reference to self in extra windo memory');\r
+  //swriteln('about to store reference to self in extra window memory');\r

   setwindowlongptr(hwndmain,0,taddrint(self));\r
   //swriteln('finished twindowobject.create , hwndmain='+inttohex(taddrint(hwndmain),16));\r
 end;\r
   setwindowlongptr(hwndmain,0,taddrint(self));\r
   //swriteln('finished twindowobject.create , hwndmain='+inttohex(taddrint(hwndmain),16));\r
 end;\r