paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 05:59:28 +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

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

@ -599,7 +599,7 @@ begin
FreePendingWidgets;
if ReceiveNextEvent(0, nil, kEventDurationNoWait, True,
Event{%H-}) <> noErr then Break;
CurEventClass.Int := GetEventClass(Event);
CurEventKind.Int := GetEventKind(Event);
@ -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,12 +1110,16 @@ 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);
DummyEvent:=nil;
try
@ -1120,23 +1127,21 @@ begin
0{GetCurrentEventTime}, kEventAttributeNone, DummyEvent) <> noErr then
begin
{$IFDEF VerboseObject}
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage Create event FAILED');
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage Create event FAILED');
{$ENDIF}
Exit;
end;
{$IFDEF VerboseObject}
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage GetMainEventQueue='+dbgs(GetMainEventQueue));
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage GetMainEventQueue='+dbgs(GetMainEventQueue));
{$ENDIF}
if PostEventToQueue(FMainEventQueue, DummyEvent,
kEventPriorityHigh) <> noErr then
begin
{$IFDEF VerboseObject}
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage Post event FAILED');
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage Post event FAILED');
{$ENDIF}
Exit;
end;
finally
@ -1144,7 +1149,7 @@ begin
end;
{$IFDEF VerboseObject}
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage END');
DebugLnThreadLog('TCarbonWidgetSet.SendCheckSynchronizeMessage END');
{$ENDIF}
end;