From: beware <beware@bircd.org>
Date: Tue, 11 Mar 2014 22:48:46 +0000 (+0000)
Subject: make unitwindowobject work on linux again
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/7cad80355c81569210547a281e30cd491b5bb353

make unitwindowobject work on linux again

git-svn-id: file:///svnroot/lcore/trunk@130 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/lmessages.pas b/lmessages.pas
index 39f6f92..3edc463 100755
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -73,6 +73,7 @@ type
 const
   WS_EX_TOOLWINDOW = $80;
   WS_POPUP = longint($80000000);
+  CW_USEDEFAULT=$80000000;
   hinstance=nil;
   PM_REMOVE = 1;
   WM_USER = 1024;
diff --git a/unitwindowobject.pas b/unitwindowobject.pas
index 1c0d32d..706c6a3 100644
--- a/unitwindowobject.pas
+++ b/unitwindowobject.pas
@@ -141,6 +141,7 @@ begin
   windows.postmessage(hwndmain,msg,wparam,lparam);
 end;
 
+{$ifdef mswindows}
 function twindowobjectbase.ProcessMessage : Boolean;
 var
     MsgRec : TMsg;
@@ -157,13 +158,16 @@ procedure twindowobjectbase.processmessages;
 begin
   while processmessage do;
 end;
+{$endif}
 
 procedure twindowobjectbase.messageloop;
 var
   MsgRec : TMsg;
 begin
   while GetMessage(MsgRec, hwnd(0), 0, 0) do begin
+    {$ifdef mswindowss}
     TranslateMessage(MsgRec);
+    {$endif}
     DispatchMessage(MsgRec);
     if exitloopflag then exit;
     {if not peekmessage(msgrec,0,0,0,PM_NOREMOVE) then onidle}