paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid extra locking/unlocking for updatescreen (must now always be

Browse Source 
called while the graphdrawing lock is held)

git-svn-id: trunk@7715 -
This commit is contained in:
Jonas Maebe 2007-06-17 17:15:03 +00:00
parent c1640b078b
commit d1c597aa71
1 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/base/graph/macosx/graph.pp
View File

@ -368,27 +368,18 @@ procedure UpdateScreen;
var
event : EventRef;
begin
EnterCriticalSection(graphdrawing);
if (updatepending) then
begin
LeaveCriticalSection(graphdrawing);
exit;
end;
exit;
if (CreateEvent(nil, kEventClassFPCGraph, kEventFlush, GetCurrentEventTime(), 0, event) <> noErr) then
begin
LeaveCriticalSection(graphdrawing);
exit;
end;
exit;
if (PostEventToQueue(MainEventQueue,event,kEventPriorityLow) <> noErr) then
begin
LeaveCriticalSection(graphdrawing);
ReleaseEvent(event);
exit;
end;
updatepending:=true;
LeaveCriticalSection(graphdrawing);
end;
@ -507,8 +498,8 @@ begin
// writeln('direct: (',x,',',y,') := ',color);
EnterCriticalSection(graphdrawing);
CGContextStrokeRect(offscreen,CGRectMake(x-0.5,y-0.5,0.5,0.5));
LeaveCriticalSection(graphdrawing);
UpdateScreen;
LeaveCriticalSection(graphdrawing);
end;
procedure q_putpixelproc(X,Y: smallint; Color: Word);
@ -519,8 +510,8 @@ begin
// writeln('regular: (',x,',',y,') := ',color);
EnterCriticalSection(graphdrawing);
CGContextStrokeRect(offscreen,CGRectMake(x-0.5,y-0.5,0.5,0.5));
LeaveCriticalSection(graphdrawing);
UpdateScreen;
LeaveCriticalSection(graphdrawing);
end;
function q_getpixelproc (X,Y: smallint): word;
@ -569,8 +560,8 @@ begin
q_SetColor(CurrentBkColor);
EnterCriticalSection(graphdrawing);
CGContextFillRect(offscreen,CGRectMake(StartXViewPort,StartYViewPort,ViewWidth,ViewHeight));
LeaveCriticalSection(graphdrawing);
UpdateScreen;
LeaveCriticalSection(graphdrawing);
{ reset coordinates }
CurrentX := 0;
CurrentY := 0;
@ -632,8 +623,8 @@ begin
CGContextAddLineToPoint(offscreen,x2,y2);
CGContextClosePath(offscreen);
CGContextStrokePath(offscreen);
LeaveCriticalSection(graphdrawing);
UpdateScreen;
LeaveCriticalSection(graphdrawing);
end;
@ -668,8 +659,8 @@ begin
CGContextAddLineToPoint(offscreen,x2,y2);
CGContextClosePath(offscreen);
CGContextStrokePath(offscreen);
LeaveCriticalSection(graphdrawing);
UpdateScreen;
LeaveCriticalSection(graphdrawing);
end;