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

LCL carbon: reverted 17463 #4a42c817e5 as Dmitry Boyarintsev pointed

Browse Source 
git-svn-id: trunk@17470 -
This commit is contained in:
tombo 2008-11-20 09:55:50 +00:00
parent b5f8b6bb2a
commit 88c3884a6d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -323,7 +323,7 @@ var
const const
SName = 'CarbonCommon_SetFocusPart'; SName = 'CarbonCommon_SetFocusPart';
begin begin
if AWidget is TCarbonWindow then if not (AWidget is TCarbonCustomControl) or (AWidget is TCarbonWindow) then
Result := CallNextEventHandler(ANextHandler, AEvent); Result := CallNextEventHandler(ANextHandler, AEvent);
if OSError( if OSError(