fpc/packages/cocoaint/utils/patches/cocoa-coredata-webkit.patch

--- /Data/dev/cocoa/parsedheaders/newheaders3/appkit/NSWorkspace.inc	2010-09-22 20:20:31.000000000 +0200
+++ cocoa-skel/src/appkit/NSWorkspace.inc	2010-09-22 23:57:57.000000000 +0200
@@ -26,7 +26,7 @@
   NSWorkspaceLaunchNewInstance = $00080000;
   NSWorkspaceLaunchAndHide = $00100000;
   NSWorkspaceLaunchAndHideOthers = $00200000;
-  NSWorkspaceLaunchAllowingClassicStartup = 2097153;
+  NSWorkspaceLaunchDefault = NSWorkspaceLaunchAsync or NSWorkspaceLaunchAllowingClassicStartup;
 
 const
   NSExcludeQuickDrawElementsIconCreationOption = 1 shl 1;
--- /Data/dev/cocoa/parsedheaders/newheaders3/foundation/NSGeometry.inc	2010-09-22 20:21:06.000000000 +0200
+++ cocoa-skel/src/foundation/NSGeometry.inc	2010-09-22 23:57:57.000000000 +0200
@@ -6,57 +6,51 @@
 {$ifndef NSGEOMETRY_PAS_T}
 {$define NSGEOMETRY_PAS_T}
 
+{$if defined(cpu64) or defined(cpuarm) or defined(win32)}
 { Types }
 type
   NSPoint = CGPoint;
   NSPointPtr = ^NSPoint;
-  NSPointPointer = ^NSPoint;
-  NSPointPointerPtr = ^NSPointPointer;
+  NSPointPointer = ^NSPointPtr;
   NSPointArray = ^NSPoint;
-  NSPointArrayPtr = ^NSPointArray;
   NSSize = CGSize;
   NSSizePtr = ^NSSize;
-  NSSizePointer = ^NSSize;
-  NSSizePointerPtr = ^NSSizePointer;
+  NSSizePointer = NSSizePtr;
   NSSizeArray = ^NSSize;
-  NSSizeArrayPtr = ^NSSizeArray;
   NSRect = CGRect;
   NSRectPtr = ^NSRect;
-  NSRectPointer = ^NSRect;
-  NSRectPointerPtr = ^NSRectPointer;
+  NSRectPointer = NSRectPtr;
   NSRectArray = ^NSRect;
-  NSRectArrayPtr = ^NSRectArray;
-  NSRectEdge = NSUInteger;
-  NSRectEdgePtr = ^NSRectEdge;
-  NSPointPointer = ^NSPoint;
-  NSPointPointerPtr = ^NSPointPointer;
-  NSPointArray = ^NSPoint;
-  NSPointArrayPtr = ^NSPointArray;
-  NSSizePointer = ^NSSize;
-  NSSizePointerPtr = ^NSSizePointer;
-  NSSizeArray = ^NSSize;
-  NSSizeArrayPtr = ^NSSizeArray;
-  NSRectPointer = ^NSRect;
-  NSRectPointerPtr = ^NSRectPointer;
-  NSRectArray = ^NSRect;
-  NSRectArrayPtr = ^NSRectArray;
 
 { Defines }
-const
-  NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES = 1;
+{$define  NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
+
+{$endif cpu64 or cpuarm or win32}
 
 { Types }
 type
-  
+{$ifdef NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
+  NSRectEdge = NSUInteger;
+{$else}
   NSRectEdge = culong;
+{$endif}
+  NSRectEdgePtr = ^NSRectEdge;
 
 { Constants }
+{$ifdef NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
+const
+  NSMinXEdge = CGRectMinXEdge;
+  NSMinYEdge = CGRectMinYEdge;
+  NSMaxXEdge = CGRectMaxXEdge;
+  NSMaxYEdge = CGRectMaxYEdge;
 
+{$else NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
 const
   NSMinXEdge = 0;
   NSMinYEdge = 1;
   NSMaxXEdge = 2;
   NSMaxYEdge = 3;
+{$endif NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
 
 {$endif}
 {$endif}
@@ -66,30 +60,37 @@
 {$define NSGEOMETRY_PAS_R}
 
 { Records }
+{$ifndef NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
 type
   _NSPoint = record
     x: CGFloat;
     y: CGFloat;
   end;
-NSPoint = _NSPoint;
-_NSPointPtr = ^_NSPoint;
+  NSPoint = _NSPoint;
+  NSPointPtr = ^NSPoint;
+  NSPointPointer = NSPointPtr;
+  NSPointArray = ^NSPoint;
 
 type
   _NSSize = record
     width: CGFloat;
     height: CGFloat;
   end;
-NSSize = _NSSize;
-_NSSizePtr = ^_NSSize;
+  NSSize = _NSSize;
+  NSSizePtr = ^NSSize;
+  NSSizePointer = NSSizePtr;
+  NSSizeArray = ^NSSize;
 
 type
   _NSRect = record
     origin: NSPoint;
     size: NSSize;
   end;
-NSRect = _NSRect;
-_NSRectPtr = ^_NSRect;
-
+  NSRect = _NSRect;
+  NSRectPtr = ^NSRect;
+  NSRectPointer = NSRectPtr;
+  NSRectArray = ^NSRect;
+{$endif not NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
 
 {$endif}
 {$endif}
--- /Data/dev/cocoa/parsedheaders/newheaders3/foundation/NSObjCRuntime.inc	2010-09-22 20:21:06.000000000 +0200
+++ cocoa-skel/src/foundation/NSObjCRuntime.inc	2010-09-22 23:57:57.000000000 +0200
@@ -8,7 +8,6 @@
 
 { Defines }
 const
-  NS_BLOCKS_AVAILABLE = 1;
   NS_BLOCKS_AVAILABLE = 0;
   NSFoundationVersionNumber10_0 = 397.40;
   NSFoundationVersionNumber10_1 = 425.00;
@@ -62,16 +61,21 @@
 
 { Types }
 type
+{$if defined(cpu64) or defined(cpuarm) or defined(win32)}
   NSInteger = clong;
-  NSIntegerPtr = ^NSInteger;
   NSUInteger = culong;
-  NSUIntegerPtr = ^NSUInteger;
+{$else}
   NSInteger = cint;
-  NSIntegerPtr = ^NSInteger;
   NSUInteger = cuint;
+{$endif}
+  NSIntegerPtr = ^NSInteger;
   NSUIntegerPtr = ^NSUInteger;
   NSComparisonResult = NSInteger;
   NSComparisonResultPtr = ^NSComparisonResult;
+  NSEnumerationOptions = NSUInteger;
+  NSEnumerationOptionsPtr = ^NSEnumerationOptions;
+  NSSortOptions = NSUInteger;
+  NSSortOptionsPtr = ^NSSortOptions;
 
 { Constants }
 
@@ -81,6 +85,18 @@
   NSOrderedDescending = 1;
 
 const
+  NSEnumerationConcurrent = 1 shl 0;
+  NSEnumerationReverse = 1 shl 1;
+
+const
+  NSSortConcurrent = 1 shl 0;
+  NSSortStable = 1 shl 4;
+
+const
+  NSIntegerMax = high(NSInteger);
+  NSIntegerMin = low(NSInteger);
+  NSUIntegerMin = low(NSUinteger);
+  NSUIntegerMax = high(NSUinteger);
   NSNotFound = NSIntegerMax;
 
 {$endif}
--- /Data/dev/cocoa/parsedheaders/newheaders3/foundation/NSPointerFunctions.inc	2010-09-22 20:21:06.000000000 +0200
+++ cocoa-skel/src/foundation/NSPointerFunctions.inc	2010-09-22 23:57:57.000000000 +0200
@@ -25,7 +25,8 @@
 { Types }
 type
   NSPointerFunctionsOptions = NSUInteger;
-  NSPointerFunctionsOptionsPtr = ^NSPointerFunctionsOptions;
+  NSPointerFunctionsOptionsPointer = ^NSPointerFunctionsOptions;
+  NSPointerFunctionsOptionsPtr = NSPointerFunctionsOptionsPointer;
 
 {$endif}
 {$endif}
@@ -53,8 +54,7 @@
 
 {$ifdef FORWARD}
   NSPointerFunctions = objcclass;
-  NSPointerFunctionsPointer = ^NSPointerFunctions;
-  NSPointerFunctionsPtr = NSPointerFunctionsPointer;
+  NSPointerFunctionsPtr = ^NSPointerFunctions;
 
 {$endif}
 
@@ -70,6 +70,7 @@
 
     function initWithOptions(options: NSPointerFunctionsOptions): id; message 'initWithOptions:';
     class function pointerFunctionsWithOptions(options: NSPointerFunctionsOptions): id; message 'pointerFunctionsWithOptions:';
+(*
     procedure setItem (newValue: NSUInteger); message 'setItem:';
     function item: NSUInteger; message 'item';
     procedure setItem1 (newValue: Boolean); message 'setItem1:';
@@ -80,6 +81,7 @@
     function : NSUInteger; message '';
     procedure setSrc (newValue: Pointer); message 'setSrc:';
     function src: Pointer; message 'src';
+*)
     procedure setUsesStrongWriteBarrier (newValue: Boolean); message 'setUsesStrongWriteBarrier:';
     function usesStrongWriteBarrier: Boolean; message 'usesStrongWriteBarrier';
     procedure setUsesWeakReadAndWriteBarriers (newValue: Boolean); message 'setUsesWeakReadAndWriteBarriers:';
--- /Data/dev/cocoa/parsedheaders/newheaders3/foundation/NSRange.inc	2010-09-22 20:21:06.000000000 +0200
+++ cocoa-skel/src/foundation/NSRange.inc	2010-09-22 23:57:57.000000000 +0200
@@ -6,11 +6,6 @@
 {$ifndef NSRANGE_PAS_T}
 {$define NSRANGE_PAS_T}
 
-{ Types }
-type
-  NSRangePointer = ^NSRange;
-  NSRangePointerPtr = ^NSRangePointer;
-
 {$endif}
 {$endif}
 
@@ -25,7 +20,8 @@
     length: NSUInteger;
   end;
 NSRange = _NSRange;
-_NSRangePtr = ^_NSRange;
+NSRangePtr = ^NSRange;
+NSRangePointer = NSRangePtr;
 
 
 {$endif}
diff -ur org/src/appkit/NSEvent.inc src/appkit/NSEvent.inc
--- org/src/appkit/NSEvent.inc	2011-08-06 19:42:46.000000000 +0200
+++ cocoa-skel/src/appkit/NSEvent.inc	2011-08-06 19:50:06.000000000 +0200
@@ -235,6 +235,9 @@
     _windowNumber: NSInteger;
     _window: NSWindow;
     _context: NSGraphicsContext;
+    _data: record
+      case byte of
+        1: (
     _mouse: record
         _eventNumber: cint;
         _clickCount: cint;
@@ -248,6 +251,8 @@
         reserved2: array[0..(3)-1] of cint;
         {$endif}
       end;
+           );
+        2: (
     _key: record
         keys: NSString;
         unmodKeys: NSString;
@@ -258,6 +263,8 @@
         reserved: array[0..(5)-1] of cint;
         {$endif}
       end;
+           );
+        3: (
     _tracking: record
         _eventNumber: cint;
         _trackingNumber: NSInteger;
@@ -266,6 +273,8 @@
         reserved: array[0..(6)-1] of cint;
         {$endif}
       end;
+           );
+        4: (
     _scrollWheel: record
         _deltaX: CGFloat;
         _deltaY: CGFloat;
@@ -276,6 +285,8 @@
         reserved2: array[0..(6)-1] of cint;
         {$endif}
       end;
+           );
+        5: (
     _axisGesture: record
         _deltaX: CGFloat;
         _deltaY: CGFloat;
@@ -284,6 +295,8 @@
         reserved: array[0..(7)-1] of cint;
         {$endif}
       end;
+           );
+        6: (
     _miscGesture: record
         _subtype: cshort;
         gestureEnded: Boolean;
@@ -294,6 +307,8 @@
         reserved2: array[0..(7)-1] of cint;
         {$endif}
       end;
+          );
+       7: (
     _misc: record
         _subtype: cint;
         _data1: NSInteger;
@@ -302,12 +317,16 @@
         reserved: array[0..(6)-1] of cint;
         {$endif}
       end;
+          );
     {$ifdef cpu64}
+       8: (
     tabletPointData: array[0..(14)-1] of cint;
+          );
+       9: (
     tabletProximityData: array[0..(14)-1] of cint;
+          );
     {$endif}
-    __data: record
-      end;
+    end;
     _eventRef: Pointer;
     {$ifdef cpu64}
     reserved1: Pointer;
diff -ur org/src/appkit/NSWorkspace.inc src/appkit/NSWorkspace.inc
--- org/src/appkit/NSWorkspace.inc	2011-08-06 17:25:09.000000000 +0200
+++ cocoa-skel/src/appkit/NSWorkspace.inc	2011-08-06 17:25:37.000000000 +0200
@@ -120,8 +120,10 @@
   NSWorkspace = objcclass external (NSObject)
   private
     _notificationCenter: NSNotificationCenter;
+{$ifndef cpu64}
     deviceStatusCount: cint;
     applicationStatusCount: cint;
+{$endif cpu64}
     _reservedWorkspace1: id;
     
   public
diff -ur org/src/foundation/NSIndexSet.inc src/foundation/NSIndexSet.inc
--- org/src/foundation/NSIndexSet.inc	2011-08-06 15:21:22.000000000 +0200
+++ cocoa-skel/src/foundation/NSIndexSet.inc	2011-08-06 15:33:51.000000000 +0200
@@ -56,15 +56,20 @@
        end;
       );
       end;
+    _internal: record
+      case byte of
+        0: (
     __singleRange: record
         _range: NSRange;
       end;
+           );
+	1: (
     __multipleRanges: record
         _data: Pointer; {garbage collector: __strong }
         _reserved: Pointer;
       end;
-    __internal: record
-      end;
+           );
+    end;
     
   public
     class function indexSet: id; message 'indexSet';