paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 11:52:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fix compilation for the latest fpc rev 16747 #c48ce44f60

Browse Source 
git-svn-id: trunk@28947 -
This commit is contained in:
dmitry 2011-01-11 05:49:49 +00:00
parent 54f3912158
commit 40254e8891
3 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -28,6 +28,7 @@ interface
uses
// rtl+ftl
Types, Classes, SysUtils,
CGGeometry,
// Libs
MacOSAll, CocoaAll, CocoaUtils;
@ -627,7 +628,7 @@ end;
function LCLWindowExtension.lclClientFrame:TRect;
var
wr : NSRect;
b : NSRect;
b : CGGeometry.CGRect;
begin
wr:=frame;
b:=contentView.frame;

8
lcl/interfaces/cocoa/cocoautils.pas
View File

@ -10,14 +10,6 @@ uses
Types, LCLType;
type
{ NSObjectExtensionExternal }
NSObjectExtensionExternal = objccategory(NSObject)
//the method is available at NSObject, but not declared in NSObject,
// for some reason
function className: NSString; message 'className';
end; external;
{ NSLCLDebugExtension }
NSLCLDebugExtension = objccategory(NSObject)

7
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -411,13 +411,6 @@ begin
CritSection:=0;
end;
type
//workaround for CocoaInt bug
NSLockExtension = objccategory(NSRecursiveLock)
procedure lock; message 'lock';
procedure unlock; message 'unlock';
end; external;
procedure TCocoaWidgetSet.EnterCriticalSection(var CritSection: TCriticalSection);
begin
if CritSection=0 then Exit;