X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..e14f985630dc9b0edad92d591fbede30928cda37:/lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
index 7bb73fd..1b7db62 100755
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -1,9 +1,24 @@
+{ Copyright (C) 2005 Bas Steendijk and Peter Green
+  For conditions of distribution and use, see copyright notice in zlib_license.txt
+  which is included in the package
+  ----------------------------------------------------------------------------- }
+
+//this unit provides a rough approximation of windows messages on linux
+//it is usefull for multithreaded applications on linux to communicate back to
+//the main lcore thread
+//This unit is *nix only, on windows you should use the real thing
+
 unit lmessages;
 //windows messages like system based on lcore tasks
 interface
 
 uses pgtypes,sysutils,bsearchtree,strings,syncobjs;
 
+
+{$if (fpc_version < 2) or ((fpc_version=2) and ((fpc_release < 2) or ((fpc_release = 2) and (fpc_patch < 2)) ))}
+  {$error this code is only supported under fpc 2.2.2 and above due to bugs in the eventobject code in older versions}
+{$endif}
+
 type
   lparam=taddrint;
   wparam=taddrint;
@@ -84,7 +99,7 @@ procedure init;
 
 implementation
 uses
-  baseunix,unix,lcore;//,safewriteln;
+  baseunix,unix,lcore,unixutil;//,safewriteln;
 {$i unixstuff.inc}
 
 type
@@ -653,4 +668,4 @@ begin
   end;
 end;
 
-end.
\ No newline at end of file
+end.