From: plugwash <plugwash@p10link.net>
Date: Sun, 15 Feb 2009 03:19:42 +0000 (+0000)
Subject: fix a small error
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/4e23b915756617cac9c6c413c14106d066085d74?ds=inline

fix a small error


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

diff --git a/lmessages.pas b/lmessages.pas
index d6e3745..3aafdca 100755
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -417,7 +417,7 @@ begin
     finally
       structurelock.release;
     end;
-    if windowproc <> nil then begin
+    if assigned(windowproc) then begin
       result := windowproc(lpmsg.hwnd,lpmsg.message,lpmsg.wparam,lpmsg.lparam);
     end else begin
       result := -1;