accept lasterror must be obtained before the rmasterset

[lcore.git] / lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
old mode 100755 (executable)
new mode 100644 (file)
index 39f6f92..d5521e5
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -4,7 +4,7 @@
   ----------------------------------------------------------------------------- }\r
 \r
 //this unit provides a rough approximation of windows messages on linux\r
   ----------------------------------------------------------------------------- }\r
 \r
 //this unit provides a rough approximation of windows messages on linux\r

-//it is usefull for multithreaded applications on linux to communicate back to\r
+//it is useful for multithreaded applications on linux to communicate back to\r

 //the main lcore thread\r
 //This unit is *nix only, on windows you should use the real thing\r
 \r
 //the main lcore thread\r
 //This unit is *nix only, on windows you should use the real thing\r
 \r


@@ -73,6 +73,7 @@ type
 const\r
   WS_EX_TOOLWINDOW = $80;\r
   WS_POPUP = longint($80000000);\r
 const\r
   WS_EX_TOOLWINDOW = $80;\r
   WS_POPUP = longint($80000000);\r

+  CW_USEDEFAULT=$80000000;\r

   hinstance=nil;\r
   PM_REMOVE = 1;\r
   WM_USER = 1024;\r
   hinstance=nil;\r
   PM_REMOVE = 1;\r
   WM_USER = 1024;\r


@@ -133,7 +134,7 @@ var
   lcorelinkpiperecv : tlasio;\r
   windows : thashtable;\r
   //I would rather things crash immediately\r
   lcorelinkpiperecv : tlasio;\r
   windows : thashtable;\r
   //I would rather things crash immediately\r

-  //if they use an insufficiant size type\r
+  //if they use an insufficient size type\r

   //than crash after over four billion\r
   //windows have been made ;)\r
   nextwindowhandle : qword = $100000000;\r
   //than crash after over four billion\r
   //windows have been made ;)\r
   nextwindowhandle : qword = $100000000;\r


@@ -234,7 +235,7 @@ begin
         //swriteln('duplicate window class registered with different settings');\r
         raise exception.create('duplicate window class registered with different settings');\r
       end else begin\r
         //swriteln('duplicate window class registered with different settings');\r
         raise exception.create('duplicate window class registered with different settings');\r
       end else begin\r

-        //swriteln('duplicate window class registered with same settings, tollerated');\r
+        //swriteln('duplicate window class registered with same settings, tolerated');\r

       end;\r
     end else begin\r
       //swriteln('about to allocate memory for new windowclass');\r
       end;\r
     end else begin\r
       //swriteln('about to allocate memory for new windowclass');\r


@@ -291,7 +292,7 @@ begin
     window := twindow(findtree(@windows,inttostr(ahwnd)));\r
     if window <> nil then begin\r
       freemem(window.extrawindowmemory);\r
     window := twindow(findtree(@windows,inttostr(ahwnd)));\r
     if window <> nil then begin\r
       freemem(window.extrawindowmemory);\r

-      //writeln('aboute to delete window from windows structure');\r
+      //writeln('about to delete window from windows structure');\r

       deltree(@windows,inttostr(ahwnd));\r
       //writeln('deleted window from windows structure');\r
       windowthreaddata := tthreaddata(findtree(@threaddata,inttostr(taddrint(window.threadid))));\r
       deltree(@windows,inttostr(ahwnd));\r
       //writeln('deleted window from windows structure');\r
       windowthreaddata := tthreaddata(findtree(@threaddata,inttostr(taddrint(window.threadid))));\r