paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 19:41:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fix comment

Browse Source 
git-svn-id: trunk@26645 -
This commit is contained in:
paul 2010-07-14 13:31:58 +00:00
parent 39aa93d9cf
commit 5c9d0e55da
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonprivatecommon.inc
View File

@ -361,9 +361,9 @@ begin
Msg.Pos.Y := P.v; Msg.Pos.Y := P.v;
if DeliverMessage(AWidget.LCLObject, Msg) <> 0 then if DeliverMessage(AWidget.LCLObject, Msg) <> 0 then
Result := noErr Result := noErr // do not propagate
else else
Result := CallNextEventHandler(ANextHandler, AEvent); // do not propagate Result := CallNextEventHandler(ANextHandler, AEvent);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------