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

lcl: carbon: debug for bug #23601

Browse Source 
git-svn-id: trunk@39831 -
This commit is contained in:
mattias 2013-01-11 18:33:33 +00:00
parent 1d91cbbe30
commit 929ce8fe33
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/carbon/carbonobject.inc
View File

@ -610,6 +610,9 @@ begin
if CurEventClass.Chars = LCLCarbonEventClass then
begin
// internal carbon intf message
{$IFDEF DebugEventLoop}
DebugLn('EventKind: ',CurEventKind.Chars);
{$ENDIF}
if (CurEventKind.Chars = LCLCarbonEventKindWake) and IsMultiThread then
begin
// a thread is waiting -> synchronize
@ -1107,10 +1110,14 @@ var
EventSpec: EventTypeSpec;
DummyEvent: EventRef;
begin
if FMainEventQueue=nil then exit;
if FMainEventQueue=nil then
begin
//DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage FMainEventQueue=nil');
exit;
end;
{$IFDEF VerboseObject}
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage ');
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage START');
{$ENDIF}
EventSpec := MakeEventSpec(LCLCarbonEventClass,LCLCarbonEventKindWake);
@ -1122,7 +1129,6 @@ begin
{$IFDEF VerboseObject}
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage Create event FAILED');
{$ENDIF}
Exit;
end;
@ -1136,7 +1142,6 @@ begin
{$IFDEF VerboseObject}
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage Post event FAILED');
{$ENDIF}
Exit;
end;
finally