+ Parser support for UIKit has been added and iPhoneAll.pas

  * Pass by reference arguments are translated as pointers instead of var
  * Variable length arguments are parsed with the varargs keyword instead of array of const
  + Added IVarSize.pas which prints the size of ivar's in all AppKit/Foundation classes.
  + There are now "null" defined macros for IBOutlet and IBAction like in Cocoa. Use these instead of comments and they may become useful in the future for InterfaceBuilder support.
  + Foundation.pas is included which can be used for command line tools without AppKit.

git-svn-id: branches/objc@13754 -

.gitattributes

@@ -985,7 +985,9 @@ packages/chm/src/paslzxcomp.pas svneol=native#text/plain
 packages/cocoaint/Makefile svneol=native#text/plain
 packages/cocoaint/Makefile.fpc svneol=native#text/plain
 packages/cocoaint/src/CocoaAll.pas svneol=native#text/plain
+packages/cocoaint/src/Foundation.pas svneol=native#text/plain
 packages/cocoaint/src/InlineFunctions.inc svneol=native#text/plain
+packages/cocoaint/src/IvarSize.pas svneol=native#text/plain
 packages/cocoaint/src/NSDelegatesAll.pas svneol=native#text/plain
 packages/cocoaint/src/UndefinedClasses.inc svneol=native#text/plain
 packages/cocoaint/src/UndefinedTypes.inc svneol=native#text/plain
@@ -1276,7 +1278,10 @@ packages/cocoaint/src/foundation/NSXMLNode.inc svneol=native#text/plain
 packages/cocoaint/src/foundation/NSXMLNodeOptions.inc svneol=native#text/plain
 packages/cocoaint/src/foundation/NSXMLParser.inc svneol=native#text/plain
 packages/cocoaint/src/foundation/NSZone.inc svneol=native#text/plain
-packages/cocoaint/utils/Instructions.txt svneol=native#text/plain
+packages/cocoaint/src/iPhoneAll.pas svneol=native#text/plain
+packages/cocoaint/src/uikit/UIKit.inc svneol=native#text/plain
+packages/cocoaint/utils/Make[!!-~]Cocoa[!!-~]Headers.txt svneol=native#text/plain
+packages/cocoaint/utils/Make[!!-~]iPhone[!!-~]Headers.txt svneol=native#text/plain
 packages/cocoaint/utils/objp_parser.php svneol=native#text/plain
 packages/cocoaint/utils/parser.php svneol=native#text/plain
 packages/cocoaint/utils/pascocoa_parser.php svneol=native#text/plain

packages/cocoaint/src/CocoaAll.pas

@@ -57,9 +57,13 @@ type
 {$include appkit/AppKit.inc}
 {$undef EXTERNAL_SYMBOLS}
 
+{define IBOutlet := }
+{define IBAction := }
+
 {$notes on}
 
 { Inline functions }
+function NSSTR (inString: PChar): NSString;
 function NSMakeRange (loc: NSUInteger; len: NSUInteger): NSRange;
 function NSMaxRange (range: NSRange): NSUInteger;
 function NSLocationInRange (loc: NSUInteger; range: NSRange): boolean;

packages/cocoaint/src/Foundation.pas

@@ -0,0 +1,85 @@
+unit Foundation;
+
+{$mode objfpc}
+{$modeswitch objectivec1}
+{$define NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
+
+{NOTE: This is to prevent against a huge list of "never used" private variable notes}
+{$notes off}
+
+interface
+
+uses 
+  ctypes, MacOSAll;
+
+{$include UndefinedTypes.inc}
+
+{$define HEADER}
+{$include foundation/Foundation.inc}
+{$undef HEADER}
+
+{$define TYPES}
+{$include foundation/Foundation.inc}
+{$undef TYPES}
+
+{$define RECORDS}
+{$include foundation/Foundation.inc}
+{$undef RECORDS}
+
+type
+{$define FORWARD}
+{$include foundation/Foundation.inc}
+{$undef FORWARD}
+
+{$include UndefinedClasses.inc}
+
+{$define CLASSES}
+{$include foundation/Foundation.inc}
+{$undef CLASSES}
+ 
+{$define PROTOCOLS}
+{$include foundation/Foundation.inc}
+{$undef PROTOCOLS}
+
+{$define FUNCTIONS}
+{$include foundation/Foundation.inc}
+{$undef FUNCTIONS}
+
+{$define EXTERNAL_SYMBOLS}
+{$include foundation/Foundation.inc}
+{$undef EXTERNAL_SYMBOLS}
+
+{define IBOutlet := }
+{define IBAction := }
+
+{$notes on}
+
+{ Inline functions }
+function NSSTR (inString: PChar): NSString;
+function NSMakeRange (loc: NSUInteger; len: NSUInteger): NSRange;
+function NSMaxRange (range: NSRange): NSUInteger;
+function NSLocationInRange (loc: NSUInteger; range: NSRange): boolean;
+function NSEqualRanges (range1, range2: NSRange): boolean;
+function NSMakePoint (x: CGFloat; y: CGFloat): NSPoint;
+function NSMakeSize(w: CGFloat; h: CGFloat): NSSize;
+function NSMakeRect(x, y: CGFloat; w, h: CGFloat): NSRect;
+function NSMaxX (aRect: NSRect): CGFloat;
+function NSMaxY (aRect: NSRect): CGFloat;
+function NSMidX (aRect: NSRect): CGFloat;
+function NSMidY (aRect: NSRect): CGFloat;
+function NSMinX (aRect: NSRect): CGFloat;
+function NSMinY (aRect: NSRect): CGFloat;
+function NSWidth (aRect: NSRect): CGFloat;
+function NSHeight (aRect: NSRect): CGFloat;
+function NSRectFromCGRect (aRect: CGRect): NSRect;
+function NSRectToCGRect (aRect: NSRect): CGRect;
+function NSPointFromCGPoint (aPoint: CGPoint): NSPoint;
+function NSPointToCGPoint (aPoint: NSPoint): CGPoint;
+function NSSizeFromCGSize(aSize: CGSize): NSSize;
+function NSSizeToCGSize(aSize: NSSize): CGSize;
+
+implementation
+
+{$include InlineFunctions.inc}
+
+end.

packages/cocoaint/src/IvarSize.pas

@@ -0,0 +1,1938 @@
+{$mode objfpc}
+{$modeswitch objectivec1}
+program IvarSize;
+uses
+ objp,objcrtl,objcrtlmacosx;
+type
+ TDerivedNSAffineTransform = objcclass (NSAffineTransform)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAppleEventDescriptor = objcclass (NSAppleEventDescriptor)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAppleEventManager = objcclass (NSAppleEventManager)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAppleScript = objcclass (NSAppleScript)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSArchiver = objcclass (NSArchiver)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSUnarchiver = objcclass (NSUnarchiver)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSArray = objcclass (NSArray)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableArray = objcclass (NSMutableArray)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAttributedString = objcclass (NSAttributedString)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableAttributedString = objcclass (NSMutableAttributedString)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAutoreleasePool = objcclass (NSAutoreleasePool)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSBundle = objcclass (NSBundle)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCalendar = objcclass (NSCalendar)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDateComponents = objcclass (NSDateComponents)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCalendarDate = objcclass (NSCalendarDate)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCharacterSet = objcclass (NSCharacterSet)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableCharacterSet = objcclass (NSMutableCharacterSet)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSClassDescription = objcclass (NSClassDescription)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCoder = objcclass (NSCoder)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSComparisonPredicate = objcclass (NSComparisonPredicate)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCompoundPredicate = objcclass (NSCompoundPredicate)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSConnection = objcclass (NSConnection)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDistantObjectRequest = objcclass (NSDistantObjectRequest)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSData = objcclass (NSData)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableData = objcclass (NSMutableData)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDate = objcclass (NSDate)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDateFormatter = objcclass (NSDateFormatter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDecimalNumber = objcclass (NSDecimalNumber)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDecimalNumberHandler = objcclass (NSDecimalNumberHandler)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDictionary = objcclass (NSDictionary)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableDictionary = objcclass (NSMutableDictionary)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDistantObject = objcclass (NSDistantObject)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDistributedLock = objcclass (NSDistributedLock)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDistributedNotificationCenter = objcclass (NSDistributedNotificationCenter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSEnumerator = objcclass (NSEnumerator)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSError = objcclass (NSError)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSException = objcclass (NSException)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAssertionHandler = objcclass (NSAssertionHandler)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSExpression = objcclass (NSExpression)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFileHandle = objcclass (NSFileHandle)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPipe = objcclass (NSPipe)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFileManager = objcclass (NSFileManager)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDirectoryEnumerator = objcclass (NSDirectoryEnumerator)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFormatter = objcclass (NSFormatter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSGarbageCollector = objcclass (NSGarbageCollector)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSHashTable = objcclass (NSHashTable)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSHost = objcclass (NSHost)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSHTTPCookie = objcclass (NSHTTPCookie)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSHTTPCookieStorage = objcclass (NSHTTPCookieStorage)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSIndexPath = objcclass (NSIndexPath)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSIndexSet = objcclass (NSIndexSet)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableIndexSet = objcclass (NSMutableIndexSet)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSKeyedArchiver = objcclass (NSKeyedArchiver)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSKeyedUnarchiver = objcclass (NSKeyedUnarchiver)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSLocale = objcclass (NSLocale)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSLock = objcclass (NSLock)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSConditionLock = objcclass (NSConditionLock)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRecursiveLock = objcclass (NSRecursiveLock)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCondition = objcclass (NSCondition)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMapTable = objcclass (NSMapTable)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMetadataQuery = objcclass (NSMetadataQuery)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMetadataItem = objcclass (NSMetadataItem)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMetadataQueryAttributeValueTuple = objcclass (NSMetadataQueryAttributeValueTuple)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMetadataQueryResultGroup = objcclass (NSMetadataQueryResultGroup)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMethodSignature = objcclass (NSMethodSignature)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNetService = objcclass (NSNetService)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNetServiceBrowser = objcclass (NSNetServiceBrowser)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNotification = objcclass (NSNotification)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNotificationCenter = objcclass (NSNotificationCenter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNotificationQueue = objcclass (NSNotificationQueue)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNull = objcclass (NSNull)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNumberFormatter = objcclass (NSNumberFormatter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSObject = objcclass (NSObject)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOperation = objcclass (NSOperation)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSInvocationOperation = objcclass (NSInvocationOperation)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOperationQueue = objcclass (NSOperationQueue)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPointerArray = objcclass (NSPointerArray)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPort = objcclass (NSPort)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMachPort = objcclass (NSMachPort)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMessagePort = objcclass (NSMessagePort)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSocketPort = objcclass (NSSocketPort)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPortCoder = objcclass (NSPortCoder)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPortMessage = objcclass (NSPortMessage)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPortNameServer = objcclass (NSPortNameServer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMachBootstrapServer = objcclass (NSMachBootstrapServer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMessagePortNameServer = objcclass (NSMessagePortNameServer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSocketPortNameServer = objcclass (NSSocketPortNameServer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPredicate = objcclass (NSPredicate)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSProcessInfo = objcclass (NSProcessInfo)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPropertyListSerialization = objcclass (NSPropertyListSerialization)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSProtocolChecker = objcclass (NSProtocolChecker)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSProxy = objcclass (NSProxy)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRunLoop = objcclass (NSRunLoop)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScanner = objcclass (NSScanner)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptClassDescription = objcclass (NSScriptClassDescription)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptCoercionHandler = objcclass (NSScriptCoercionHandler)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptCommand = objcclass (NSScriptCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptCommandDescription = objcclass (NSScriptCommandDescription)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptExecutionContext = objcclass (NSScriptExecutionContext)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptObjectSpecifier = objcclass (NSScriptObjectSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSIndexSpecifier = objcclass (NSIndexSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMiddleSpecifier = objcclass (NSMiddleSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNameSpecifier = objcclass (NSNameSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPositionalSpecifier = objcclass (NSPositionalSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPropertySpecifier = objcclass (NSPropertySpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRandomSpecifier = objcclass (NSRandomSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRangeSpecifier = objcclass (NSRangeSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRelativeSpecifier = objcclass (NSRelativeSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSUniqueIDSpecifier = objcclass (NSUniqueIDSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSWhoseSpecifier = objcclass (NSWhoseSpecifier)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCloneCommand = objcclass (NSCloneCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCloseCommand = objcclass (NSCloseCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCountCommand = objcclass (NSCountCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCreateCommand = objcclass (NSCreateCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDeleteCommand = objcclass (NSDeleteCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSExistsCommand = objcclass (NSExistsCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSGetCommand = objcclass (NSGetCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMoveCommand = objcclass (NSMoveCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSQuitCommand = objcclass (NSQuitCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSetCommand = objcclass (NSSetCommand)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptSuiteRegistry = objcclass (NSScriptSuiteRegistry)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScriptWhoseTest = objcclass (NSScriptWhoseTest)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSLogicalTest = objcclass (NSLogicalTest)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSpecifierTest = objcclass (NSSpecifierTest)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSet = objcclass (NSSet)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableSet = objcclass (NSMutableSet)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCountedSet = objcclass (NSCountedSet)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSortDescriptor = objcclass (NSSortDescriptor)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSpellServer = objcclass (NSSpellServer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSStream = objcclass (NSStream)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSInputStream = objcclass (NSInputStream)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOutputStream = objcclass (NSOutputStream)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSString = objcclass (NSString)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableString = objcclass (NSMutableString)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSimpleCString = objcclass (NSSimpleCString)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTask = objcclass (NSTask)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSThread = objcclass (NSThread)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTimer = objcclass (NSTimer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTimeZone = objcclass (NSTimeZone)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSUndoManager = objcclass (NSUndoManager)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURL = objcclass (NSURL)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLAuthenticationChallenge = objcclass (NSURLAuthenticationChallenge)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCachedURLResponse = objcclass (NSCachedURLResponse)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLCache = objcclass (NSURLCache)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLConnection = objcclass (NSURLConnection)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLCredential = objcclass (NSURLCredential)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLCredentialStorage = objcclass (NSURLCredentialStorage)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLDownload = objcclass (NSURLDownload)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLHandle = objcclass (NSURLHandle)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLProtectionSpace = objcclass (NSURLProtectionSpace)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLProtocol = objcclass (NSURLProtocol)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLRequest = objcclass (NSURLRequest)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableURLRequest = objcclass (NSMutableURLRequest)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSURLResponse = objcclass (NSURLResponse)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSHTTPURLResponse = objcclass (NSHTTPURLResponse)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSUserDefaults = objcclass (NSUserDefaults)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSValue = objcclass (NSValue)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNumber = objcclass (NSNumber)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSValueTransformer = objcclass (NSValueTransformer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSXMLDocument = objcclass (NSXMLDocument)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSXMLDTD = objcclass (NSXMLDTD)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSXMLDTDNode = objcclass (NSXMLDTDNode)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSXMLElement = objcclass (NSXMLElement)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSXMLNode = objcclass (NSXMLNode)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSXMLParser = objcclass (NSXMLParser)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSActionCell = objcclass (NSActionCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAlert = objcclass (NSAlert)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAnimation = objcclass (NSAnimation)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSViewAnimation = objcclass (NSViewAnimation)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSAnimationContext = objcclass (NSAnimationContext)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSApplication = objcclass (NSApplication)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSArrayController = objcclass (NSArrayController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSATSTypesetter = objcclass (NSATSTypesetter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSBezierPath = objcclass (NSBezierPath)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSBitmapImageRep = objcclass (NSBitmapImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSBox = objcclass (NSBox)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSBrowser = objcclass (NSBrowser)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSBrowserCell = objcclass (NSBrowserCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSButton = objcclass (NSButton)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSButtonCell = objcclass (NSButtonCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCachedImageRep = objcclass (NSCachedImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCell = objcclass (NSCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCIImageRep = objcclass (NSCIImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSClipView = objcclass (NSClipView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCollectionViewItem = objcclass (NSCollectionViewItem)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCollectionView = objcclass (NSCollectionView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSColor = objcclass (NSColor)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSColorList = objcclass (NSColorList)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSColorPanel = objcclass (NSColorPanel)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSColorPicker = objcclass (NSColorPicker)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSColorSpace = objcclass (NSColorSpace)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSColorWell = objcclass (NSColorWell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSComboBox = objcclass (NSComboBox)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSComboBoxCell = objcclass (NSComboBoxCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSControl = objcclass (NSControl)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSController = objcclass (NSController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCursor = objcclass (NSCursor)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSCustomImageRep = objcclass (NSCustomImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDatePicker = objcclass (NSDatePicker)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDatePickerCell = objcclass (NSDatePickerCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDictionaryController = objcclass (NSDictionaryController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDockTile = objcclass (NSDockTile)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDocument = objcclass (NSDocument)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDocumentController = objcclass (NSDocumentController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSDrawer = objcclass (NSDrawer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSEPSImageRep = objcclass (NSEPSImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSEvent = objcclass (NSEvent)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFileWrapper = objcclass (NSFileWrapper)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFont = objcclass (NSFont)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFontDescriptor = objcclass (NSFontDescriptor)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFontManager = objcclass (NSFontManager)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFontPanel = objcclass (NSFontPanel)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSFormCell = objcclass (NSFormCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSGlyphGenerator = objcclass (NSGlyphGenerator)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSGlyphInfo = objcclass (NSGlyphInfo)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSGradient = objcclass (NSGradient)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSGraphicsContext = objcclass (NSGraphicsContext)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSHelpManager = objcclass (NSHelpManager)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSImage = objcclass (NSImage)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSImageCell = objcclass (NSImageCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSImageRep = objcclass (NSImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSImageView = objcclass (NSImageView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSInputManager = objcclass (NSInputManager)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSInputServer = objcclass (NSInputServer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSLayoutManager = objcclass (NSLayoutManager)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSLevelIndicator = objcclass (NSLevelIndicator)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSLevelIndicatorCell = objcclass (NSLevelIndicatorCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMatrix = objcclass (NSMatrix)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMenu = objcclass (NSMenu)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMenuItem = objcclass (NSMenuItem)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMenuItemCell = objcclass (NSMenuItemCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMenuView = objcclass (NSMenuView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMovie = objcclass (NSMovie)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMovieView = objcclass (NSMovieView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSNib = objcclass (NSNib)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSObjectController = objcclass (NSObjectController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOpenGLPixelFormat = objcclass (NSOpenGLPixelFormat)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOpenGLPixelBuffer = objcclass (NSOpenGLPixelBuffer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOpenGLContext = objcclass (NSOpenGLContext)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOpenGLView = objcclass (NSOpenGLView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOpenPanel = objcclass (NSOpenPanel)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSOutlineView = objcclass (NSOutlineView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPageLayout = objcclass (NSPageLayout)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPanel = objcclass (NSPanel)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextTab = objcclass (NSTextTab)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSParagraphStyle = objcclass (NSParagraphStyle)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSMutableParagraphStyle = objcclass (NSMutableParagraphStyle)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPasteboard = objcclass (NSPasteboard)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPathCell = objcclass (NSPathCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPathComponentCell = objcclass (NSPathComponentCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPathControl = objcclass (NSPathControl)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPDFImageRep = objcclass (NSPDFImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPersistentDocument = objcclass (NSPersistentDocument)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPICTImageRep = objcclass (NSPICTImageRep)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPopUpButton = objcclass (NSPopUpButton)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPopUpButtonCell = objcclass (NSPopUpButtonCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPredicateEditor = objcclass (NSPredicateEditor)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPrinter = objcclass (NSPrinter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPrintInfo = objcclass (NSPrintInfo)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPrintOperation = objcclass (NSPrintOperation)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSPrintPanel = objcclass (NSPrintPanel)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSProgressIndicator = objcclass (NSProgressIndicator)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSQuickDrawView = objcclass (NSQuickDrawView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSResponder = objcclass (NSResponder)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRuleEditor = objcclass (NSRuleEditor)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRulerMarker = objcclass (NSRulerMarker)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSRulerView = objcclass (NSRulerView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSavePanel = objcclass (NSSavePanel)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScreen = objcclass (NSScreen)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScroller = objcclass (NSScroller)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSScrollView = objcclass (NSScrollView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSearchField = objcclass (NSSearchField)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSearchFieldCell = objcclass (NSSearchFieldCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSecureTextField = objcclass (NSSecureTextField)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSecureTextFieldCell = objcclass (NSSecureTextFieldCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSegmentedControl = objcclass (NSSegmentedControl)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSShadow = objcclass (NSShadow)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSlider = objcclass (NSSlider)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSliderCell = objcclass (NSSliderCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSound = objcclass (NSSound)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSpeechRecognizer = objcclass (NSSpeechRecognizer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSpeechSynthesizer = objcclass (NSSpeechSynthesizer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSpellChecker = objcclass (NSSpellChecker)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSSplitView = objcclass (NSSplitView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSStatusBar = objcclass (NSStatusBar)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSStatusItem = objcclass (NSStatusItem)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSStepper = objcclass (NSStepper)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSStepperCell = objcclass (NSStepperCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTableColumn = objcclass (NSTableColumn)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTableHeaderCell = objcclass (NSTableHeaderCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTableHeaderView = objcclass (NSTableHeaderView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTableView = objcclass (NSTableView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTabView = objcclass (NSTabView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTabViewItem = objcclass (NSTabViewItem)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSText = objcclass (NSText)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextAttachmentCell = objcclass (NSTextAttachmentCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextAttachment = objcclass (NSTextAttachment)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextContainer = objcclass (NSTextContainer)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextField = objcclass (NSTextField)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextFieldCell = objcclass (NSTextFieldCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextList = objcclass (NSTextList)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextStorage = objcclass (NSTextStorage)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextBlock = objcclass (NSTextBlock)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextTableBlock = objcclass (NSTextTableBlock)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextTable = objcclass (NSTextTable)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTextView = objcclass (NSTextView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTokenField = objcclass (NSTokenField)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTokenFieldCell = objcclass (NSTokenFieldCell)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSToolbar = objcclass (NSToolbar)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSToolbarItem = objcclass (NSToolbarItem)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSToolbarItemGroup = objcclass (NSToolbarItemGroup)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTrackingArea = objcclass (NSTrackingArea)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTreeController = objcclass (NSTreeController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTreeNode = objcclass (NSTreeNode)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSTypesetter = objcclass (NSTypesetter)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSUserDefaultsController = objcclass (NSUserDefaultsController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSView = objcclass (NSView)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSViewController = objcclass (NSViewController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSWindow = objcclass (NSWindow)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSWindowController = objcclass (NSWindowController)
+ extrabyte: byte;
+end;
+type
+ TDerivedNSWorkspace = objcclass (NSWorkspace)
+ extrabyte: byte;
+end;
+
+procedure PrintGlue1;
+begin
+ if class_getInstanceSize(TDerivedNSAffineTransform) <> (class_getInstanceSize(NSAffineTransform)+1) then
+ writeln('size of NSAffineTransform is wrong: ',class_getInstanceSize(TDerivedNSAffineTransform),' <> ',class_getInstanceSize(NSAffineTransform)+1);
+ if class_getInstanceSize(TDerivedNSAppleEventDescriptor) <> (class_getInstanceSize(NSAppleEventDescriptor)+1) then
+ writeln('size of NSAppleEventDescriptor is wrong: ',class_getInstanceSize(TDerivedNSAppleEventDescriptor),' <> ',class_getInstanceSize(NSAppleEventDescriptor)+1);
+ if class_getInstanceSize(TDerivedNSAppleEventManager) <> (class_getInstanceSize(NSAppleEventManager)+1) then
+ writeln('size of NSAppleEventManager is wrong: ',class_getInstanceSize(TDerivedNSAppleEventManager),' <> ',class_getInstanceSize(NSAppleEventManager)+1);
+ if class_getInstanceSize(TDerivedNSAppleScript) <> (class_getInstanceSize(NSAppleScript)+1) then
+ writeln('size of NSAppleScript is wrong: ',class_getInstanceSize(TDerivedNSAppleScript),' <> ',class_getInstanceSize(NSAppleScript)+1);
+ if class_getInstanceSize(TDerivedNSArchiver) <> (class_getInstanceSize(NSArchiver)+1) then
+ writeln('size of NSArchiver is wrong: ',class_getInstanceSize(TDerivedNSArchiver),' <> ',class_getInstanceSize(NSArchiver)+1);
+ if class_getInstanceSize(TDerivedNSUnarchiver) <> (class_getInstanceSize(NSUnarchiver)+1) then
+ writeln('size of NSUnarchiver is wrong: ',class_getInstanceSize(TDerivedNSUnarchiver),' <> ',class_getInstanceSize(NSUnarchiver)+1);
+ if class_getInstanceSize(TDerivedNSArray) <> (class_getInstanceSize(NSArray)+1) then
+ writeln('size of NSArray is wrong: ',class_getInstanceSize(TDerivedNSArray),' <> ',class_getInstanceSize(NSArray)+1);
+ if class_getInstanceSize(TDerivedNSMutableArray) <> (class_getInstanceSize(NSMutableArray)+1) then
+ writeln('size of NSMutableArray is wrong: ',class_getInstanceSize(TDerivedNSMutableArray),' <> ',class_getInstanceSize(NSMutableArray)+1);
+ if class_getInstanceSize(TDerivedNSAttributedString) <> (class_getInstanceSize(NSAttributedString)+1) then
+ writeln('size of NSAttributedString is wrong: ',class_getInstanceSize(TDerivedNSAttributedString),' <> ',class_getInstanceSize(NSAttributedString)+1);
+ if class_getInstanceSize(TDerivedNSMutableAttributedString) <> (class_getInstanceSize(NSMutableAttributedString)+1) then
+ writeln('size of NSMutableAttributedString is wrong: ',class_getInstanceSize(TDerivedNSMutableAttributedString),' <> ',class_getInstanceSize(NSMutableAttributedString)+1);
+ if class_getInstanceSize(TDerivedNSAutoreleasePool) <> (class_getInstanceSize(NSAutoreleasePool)+1) then
+ writeln('size of NSAutoreleasePool is wrong: ',class_getInstanceSize(TDerivedNSAutoreleasePool),' <> ',class_getInstanceSize(NSAutoreleasePool)+1);
+ if class_getInstanceSize(TDerivedNSBundle) <> (class_getInstanceSize(NSBundle)+1) then
+ writeln('size of NSBundle is wrong: ',class_getInstanceSize(TDerivedNSBundle),' <> ',class_getInstanceSize(NSBundle)+1);
+ if class_getInstanceSize(TDerivedNSCalendar) <> (class_getInstanceSize(NSCalendar)+1) then
+ writeln('size of NSCalendar is wrong: ',class_getInstanceSize(TDerivedNSCalendar),' <> ',class_getInstanceSize(NSCalendar)+1);
+ if class_getInstanceSize(TDerivedNSDateComponents) <> (class_getInstanceSize(NSDateComponents)+1) then
+ writeln('size of NSDateComponents is wrong: ',class_getInstanceSize(TDerivedNSDateComponents),' <> ',class_getInstanceSize(NSDateComponents)+1);
+ if class_getInstanceSize(TDerivedNSCalendarDate) <> (class_getInstanceSize(NSCalendarDate)+1) then
+ writeln('size of NSCalendarDate is wrong: ',class_getInstanceSize(TDerivedNSCalendarDate),' <> ',class_getInstanceSize(NSCalendarDate)+1);
+ if class_getInstanceSize(TDerivedNSCharacterSet) <> (class_getInstanceSize(NSCharacterSet)+1) then
+ writeln('size of NSCharacterSet is wrong: ',class_getInstanceSize(TDerivedNSCharacterSet),' <> ',class_getInstanceSize(NSCharacterSet)+1);
+ if class_getInstanceSize(TDerivedNSMutableCharacterSet) <> (class_getInstanceSize(NSMutableCharacterSet)+1) then
+ writeln('size of NSMutableCharacterSet is wrong: ',class_getInstanceSize(TDerivedNSMutableCharacterSet),' <> ',class_getInstanceSize(NSMutableCharacterSet)+1);
+ if class_getInstanceSize(TDerivedNSClassDescription) <> (class_getInstanceSize(NSClassDescription)+1) then
+ writeln('size of NSClassDescription is wrong: ',class_getInstanceSize(TDerivedNSClassDescription),' <> ',class_getInstanceSize(NSClassDescription)+1);
+ if class_getInstanceSize(TDerivedNSCoder) <> (class_getInstanceSize(NSCoder)+1) then
+ writeln('size of NSCoder is wrong: ',class_getInstanceSize(TDerivedNSCoder),' <> ',class_getInstanceSize(NSCoder)+1);
+ if class_getInstanceSize(TDerivedNSComparisonPredicate) <> (class_getInstanceSize(NSComparisonPredicate)+1) then
+ writeln('size of NSComparisonPredicate is wrong: ',class_getInstanceSize(TDerivedNSComparisonPredicate),' <> ',class_getInstanceSize(NSComparisonPredicate)+1);
+ if class_getInstanceSize(TDerivedNSCompoundPredicate) <> (class_getInstanceSize(NSCompoundPredicate)+1) then
+ writeln('size of NSCompoundPredicate is wrong: ',class_getInstanceSize(TDerivedNSCompoundPredicate),' <> ',class_getInstanceSize(NSCompoundPredicate)+1);
+ if class_getInstanceSize(TDerivedNSConnection) <> (class_getInstanceSize(NSConnection)+1) then
+ writeln('size of NSConnection is wrong: ',class_getInstanceSize(TDerivedNSConnection),' <> ',class_getInstanceSize(NSConnection)+1);
+ if class_getInstanceSize(TDerivedNSDistantObjectRequest) <> (class_getInstanceSize(NSDistantObjectRequest)+1) then
+ writeln('size of NSDistantObjectRequest is wrong: ',class_getInstanceSize(TDerivedNSDistantObjectRequest),' <> ',class_getInstanceSize(NSDistantObjectRequest)+1);
+ if class_getInstanceSize(TDerivedNSData) <> (class_getInstanceSize(NSData)+1) then
+ writeln('size of NSData is wrong: ',class_getInstanceSize(TDerivedNSData),' <> ',class_getInstanceSize(NSData)+1);
+ if class_getInstanceSize(TDerivedNSMutableData) <> (class_getInstanceSize(NSMutableData)+1) then
+ writeln('size of NSMutableData is wrong: ',class_getInstanceSize(TDerivedNSMutableData),' <> ',class_getInstanceSize(NSMutableData)+1);
+ if class_getInstanceSize(TDerivedNSDate) <> (class_getInstanceSize(NSDate)+1) then
+ writeln('size of NSDate is wrong: ',class_getInstanceSize(TDerivedNSDate),' <> ',class_getInstanceSize(NSDate)+1);
+ if class_getInstanceSize(TDerivedNSDateFormatter) <> (class_getInstanceSize(NSDateFormatter)+1) then
+ writeln('size of NSDateFormatter is wrong: ',class_getInstanceSize(TDerivedNSDateFormatter),' <> ',class_getInstanceSize(NSDateFormatter)+1);
+ if class_getInstanceSize(TDerivedNSDecimalNumber) <> (class_getInstanceSize(NSDecimalNumber)+1) then
+ writeln('size of NSDecimalNumber is wrong: ',class_getInstanceSize(TDerivedNSDecimalNumber),' <> ',class_getInstanceSize(NSDecimalNumber)+1);
+ if class_getInstanceSize(TDerivedNSDecimalNumberHandler) <> (class_getInstanceSize(NSDecimalNumberHandler)+1) then
+ writeln('size of NSDecimalNumberHandler is wrong: ',class_getInstanceSize(TDerivedNSDecimalNumberHandler),' <> ',class_getInstanceSize(NSDecimalNumberHandler)+1);
+ if class_getInstanceSize(TDerivedNSDictionary) <> (class_getInstanceSize(NSDictionary)+1) then
+ writeln('size of NSDictionary is wrong: ',class_getInstanceSize(TDerivedNSDictionary),' <> ',class_getInstanceSize(NSDictionary)+1);
+ if class_getInstanceSize(TDerivedNSMutableDictionary) <> (class_getInstanceSize(NSMutableDictionary)+1) then
+ writeln('size of NSMutableDictionary is wrong: ',class_getInstanceSize(TDerivedNSMutableDictionary),' <> ',class_getInstanceSize(NSMutableDictionary)+1);
+ if class_getInstanceSize(TDerivedNSDistantObject) <> (class_getInstanceSize(NSDistantObject)+1) then
+ writeln('size of NSDistantObject is wrong: ',class_getInstanceSize(TDerivedNSDistantObject),' <> ',class_getInstanceSize(NSDistantObject)+1);
+ if class_getInstanceSize(TDerivedNSDistributedLock) <> (class_getInstanceSize(NSDistributedLock)+1) then
+ writeln('size of NSDistributedLock is wrong: ',class_getInstanceSize(TDerivedNSDistributedLock),' <> ',class_getInstanceSize(NSDistributedLock)+1);
+ if class_getInstanceSize(TDerivedNSDistributedNotificationCenter) <> (class_getInstanceSize(NSDistributedNotificationCenter)+1) then
+ writeln('size of NSDistributedNotificationCenter is wrong: ',class_getInstanceSize(TDerivedNSDistributedNotificationCenter),' <> ',class_getInstanceSize(NSDistributedNotificationCenter)+1);
+ if class_getInstanceSize(TDerivedNSEnumerator) <> (class_getInstanceSize(NSEnumerator)+1) then
+ writeln('size of NSEnumerator is wrong: ',class_getInstanceSize(TDerivedNSEnumerator),' <> ',class_getInstanceSize(NSEnumerator)+1);
+ if class_getInstanceSize(TDerivedNSError) <> (class_getInstanceSize(NSError)+1) then
+ writeln('size of NSError is wrong: ',class_getInstanceSize(TDerivedNSError),' <> ',class_getInstanceSize(NSError)+1);
+ if class_getInstanceSize(TDerivedNSException) <> (class_getInstanceSize(NSException)+1) then
+ writeln('size of NSException is wrong: ',class_getInstanceSize(TDerivedNSException),' <> ',class_getInstanceSize(NSException)+1);
+ if class_getInstanceSize(TDerivedNSAssertionHandler) <> (class_getInstanceSize(NSAssertionHandler)+1) then
+ writeln('size of NSAssertionHandler is wrong: ',class_getInstanceSize(TDerivedNSAssertionHandler),' <> ',class_getInstanceSize(NSAssertionHandler)+1);
+ if class_getInstanceSize(TDerivedNSExpression) <> (class_getInstanceSize(NSExpression)+1) then
+ writeln('size of NSExpression is wrong: ',class_getInstanceSize(TDerivedNSExpression),' <> ',class_getInstanceSize(NSExpression)+1);
+ if class_getInstanceSize(TDerivedNSFileHandle) <> (class_getInstanceSize(NSFileHandle)+1) then
+ writeln('size of NSFileHandle is wrong: ',class_getInstanceSize(TDerivedNSFileHandle),' <> ',class_getInstanceSize(NSFileHandle)+1);
+ if class_getInstanceSize(TDerivedNSPipe) <> (class_getInstanceSize(NSPipe)+1) then
+ writeln('size of NSPipe is wrong: ',class_getInstanceSize(TDerivedNSPipe),' <> ',class_getInstanceSize(NSPipe)+1);
+ if class_getInstanceSize(TDerivedNSFileManager) <> (class_getInstanceSize(NSFileManager)+1) then
+ writeln('size of NSFileManager is wrong: ',class_getInstanceSize(TDerivedNSFileManager),' <> ',class_getInstanceSize(NSFileManager)+1);
+ if class_getInstanceSize(TDerivedNSDirectoryEnumerator) <> (class_getInstanceSize(NSDirectoryEnumerator)+1) then
+ writeln('size of NSDirectoryEnumerator is wrong: ',class_getInstanceSize(TDerivedNSDirectoryEnumerator),' <> ',class_getInstanceSize(NSDirectoryEnumerator)+1);
+ if class_getInstanceSize(TDerivedNSFormatter) <> (class_getInstanceSize(NSFormatter)+1) then
+ writeln('size of NSFormatter is wrong: ',class_getInstanceSize(TDerivedNSFormatter),' <> ',class_getInstanceSize(NSFormatter)+1);
+ if class_getInstanceSize(TDerivedNSGarbageCollector) <> (class_getInstanceSize(NSGarbageCollector)+1) then
+ writeln('size of NSGarbageCollector is wrong: ',class_getInstanceSize(TDerivedNSGarbageCollector),' <> ',class_getInstanceSize(NSGarbageCollector)+1);
+ if class_getInstanceSize(TDerivedNSHashTable) <> (class_getInstanceSize(NSHashTable)+1) then
+ writeln('size of NSHashTable is wrong: ',class_getInstanceSize(TDerivedNSHashTable),' <> ',class_getInstanceSize(NSHashTable)+1);
+ if class_getInstanceSize(TDerivedNSHost) <> (class_getInstanceSize(NSHost)+1) then
+ writeln('size of NSHost is wrong: ',class_getInstanceSize(TDerivedNSHost),' <> ',class_getInstanceSize(NSHost)+1);
+ if class_getInstanceSize(TDerivedNSHTTPCookie) <> (class_getInstanceSize(NSHTTPCookie)+1) then
+ writeln('size of NSHTTPCookie is wrong: ',class_getInstanceSize(TDerivedNSHTTPCookie),' <> ',class_getInstanceSize(NSHTTPCookie)+1);
+ if class_getInstanceSize(TDerivedNSHTTPCookieStorage) <> (class_getInstanceSize(NSHTTPCookieStorage)+1) then
+ writeln('size of NSHTTPCookieStorage is wrong: ',class_getInstanceSize(TDerivedNSHTTPCookieStorage),' <> ',class_getInstanceSize(NSHTTPCookieStorage)+1);
+ if class_getInstanceSize(TDerivedNSIndexPath) <> (class_getInstanceSize(NSIndexPath)+1) then
+ writeln('size of NSIndexPath is wrong: ',class_getInstanceSize(TDerivedNSIndexPath),' <> ',class_getInstanceSize(NSIndexPath)+1);
+ if class_getInstanceSize(TDerivedNSIndexSet) <> (class_getInstanceSize(NSIndexSet)+1) then
+ writeln('size of NSIndexSet is wrong: ',class_getInstanceSize(TDerivedNSIndexSet),' <> ',class_getInstanceSize(NSIndexSet)+1);
+ if class_getInstanceSize(TDerivedNSMutableIndexSet) <> (class_getInstanceSize(NSMutableIndexSet)+1) then
+ writeln('size of NSMutableIndexSet is wrong: ',class_getInstanceSize(TDerivedNSMutableIndexSet),' <> ',class_getInstanceSize(NSMutableIndexSet)+1);
+ if class_getInstanceSize(TDerivedNSKeyedArchiver) <> (class_getInstanceSize(NSKeyedArchiver)+1) then
+ writeln('size of NSKeyedArchiver is wrong: ',class_getInstanceSize(TDerivedNSKeyedArchiver),' <> ',class_getInstanceSize(NSKeyedArchiver)+1);
+ if class_getInstanceSize(TDerivedNSKeyedUnarchiver) <> (class_getInstanceSize(NSKeyedUnarchiver)+1) then
+ writeln('size of NSKeyedUnarchiver is wrong: ',class_getInstanceSize(TDerivedNSKeyedUnarchiver),' <> ',class_getInstanceSize(NSKeyedUnarchiver)+1);
+ if class_getInstanceSize(TDerivedNSLocale) <> (class_getInstanceSize(NSLocale)+1) then
+ writeln('size of NSLocale is wrong: ',class_getInstanceSize(TDerivedNSLocale),' <> ',class_getInstanceSize(NSLocale)+1);
+ if class_getInstanceSize(TDerivedNSLock) <> (class_getInstanceSize(NSLock)+1) then
+ writeln('size of NSLock is wrong: ',class_getInstanceSize(TDerivedNSLock),' <> ',class_getInstanceSize(NSLock)+1);
+ if class_getInstanceSize(TDerivedNSConditionLock) <> (class_getInstanceSize(NSConditionLock)+1) then
+ writeln('size of NSConditionLock is wrong: ',class_getInstanceSize(TDerivedNSConditionLock),' <> ',class_getInstanceSize(NSConditionLock)+1);
+ if class_getInstanceSize(TDerivedNSRecursiveLock) <> (class_getInstanceSize(NSRecursiveLock)+1) then
+ writeln('size of NSRecursiveLock is wrong: ',class_getInstanceSize(TDerivedNSRecursiveLock),' <> ',class_getInstanceSize(NSRecursiveLock)+1);
+ if class_getInstanceSize(TDerivedNSCondition) <> (class_getInstanceSize(NSCondition)+1) then
+ writeln('size of NSCondition is wrong: ',class_getInstanceSize(TDerivedNSCondition),' <> ',class_getInstanceSize(NSCondition)+1);
+ if class_getInstanceSize(TDerivedNSMapTable) <> (class_getInstanceSize(NSMapTable)+1) then
+ writeln('size of NSMapTable is wrong: ',class_getInstanceSize(TDerivedNSMapTable),' <> ',class_getInstanceSize(NSMapTable)+1);
+ if class_getInstanceSize(TDerivedNSMetadataQuery) <> (class_getInstanceSize(NSMetadataQuery)+1) then
+ writeln('size of NSMetadataQuery is wrong: ',class_getInstanceSize(TDerivedNSMetadataQuery),' <> ',class_getInstanceSize(NSMetadataQuery)+1);
+ if class_getInstanceSize(TDerivedNSMetadataItem) <> (class_getInstanceSize(NSMetadataItem)+1) then
+ writeln('size of NSMetadataItem is wrong: ',class_getInstanceSize(TDerivedNSMetadataItem),' <> ',class_getInstanceSize(NSMetadataItem)+1);
+ if class_getInstanceSize(TDerivedNSMetadataQueryAttributeValueTuple) <> (class_getInstanceSize(NSMetadataQueryAttributeValueTuple)+1) then
+ writeln('size of NSMetadataQueryAttributeValueTuple is wrong: ',class_getInstanceSize(TDerivedNSMetadataQueryAttributeValueTuple),' <> ',class_getInstanceSize(NSMetadataQueryAttributeValueTuple)+1);
+ if class_getInstanceSize(TDerivedNSMetadataQueryResultGroup) <> (class_getInstanceSize(NSMetadataQueryResultGroup)+1) then
+ writeln('size of NSMetadataQueryResultGroup is wrong: ',class_getInstanceSize(TDerivedNSMetadataQueryResultGroup),' <> ',class_getInstanceSize(NSMetadataQueryResultGroup)+1);
+ if class_getInstanceSize(TDerivedNSMethodSignature) <> (class_getInstanceSize(NSMethodSignature)+1) then
+ writeln('size of NSMethodSignature is wrong: ',class_getInstanceSize(TDerivedNSMethodSignature),' <> ',class_getInstanceSize(NSMethodSignature)+1);
+ if class_getInstanceSize(TDerivedNSNetService) <> (class_getInstanceSize(NSNetService)+1) then
+ writeln('size of NSNetService is wrong: ',class_getInstanceSize(TDerivedNSNetService),' <> ',class_getInstanceSize(NSNetService)+1);
+ if class_getInstanceSize(TDerivedNSNetServiceBrowser) <> (class_getInstanceSize(NSNetServiceBrowser)+1) then
+ writeln('size of NSNetServiceBrowser is wrong: ',class_getInstanceSize(TDerivedNSNetServiceBrowser),' <> ',class_getInstanceSize(NSNetServiceBrowser)+1);
+ if class_getInstanceSize(TDerivedNSNotification) <> (class_getInstanceSize(NSNotification)+1) then
+ writeln('size of NSNotification is wrong: ',class_getInstanceSize(TDerivedNSNotification),' <> ',class_getInstanceSize(NSNotification)+1);
+ if class_getInstanceSize(TDerivedNSNotificationCenter) <> (class_getInstanceSize(NSNotificationCenter)+1) then
+ writeln('size of NSNotificationCenter is wrong: ',class_getInstanceSize(TDerivedNSNotificationCenter),' <> ',class_getInstanceSize(NSNotificationCenter)+1);
+ if class_getInstanceSize(TDerivedNSNotificationQueue) <> (class_getInstanceSize(NSNotificationQueue)+1) then
+ writeln('size of NSNotificationQueue is wrong: ',class_getInstanceSize(TDerivedNSNotificationQueue),' <> ',class_getInstanceSize(NSNotificationQueue)+1);
+ if class_getInstanceSize(TDerivedNSNull) <> (class_getInstanceSize(NSNull)+1) then
+ writeln('size of NSNull is wrong: ',class_getInstanceSize(TDerivedNSNull),' <> ',class_getInstanceSize(NSNull)+1);
+ if class_getInstanceSize(TDerivedNSNumberFormatter) <> (class_getInstanceSize(NSNumberFormatter)+1) then
+ writeln('size of NSNumberFormatter is wrong: ',class_getInstanceSize(TDerivedNSNumberFormatter),' <> ',class_getInstanceSize(NSNumberFormatter)+1);
+ if class_getInstanceSize(TDerivedNSObject) <> (class_getInstanceSize(NSObject)+1) then
+ writeln('size of NSObject is wrong: ',class_getInstanceSize(TDerivedNSObject),' <> ',class_getInstanceSize(NSObject)+1);
+ if class_getInstanceSize(TDerivedNSOperation) <> (class_getInstanceSize(NSOperation)+1) then
+ writeln('size of NSOperation is wrong: ',class_getInstanceSize(TDerivedNSOperation),' <> ',class_getInstanceSize(NSOperation)+1);
+ if class_getInstanceSize(TDerivedNSInvocationOperation) <> (class_getInstanceSize(NSInvocationOperation)+1) then
+ writeln('size of NSInvocationOperation is wrong: ',class_getInstanceSize(TDerivedNSInvocationOperation),' <> ',class_getInstanceSize(NSInvocationOperation)+1);
+ if class_getInstanceSize(TDerivedNSOperationQueue) <> (class_getInstanceSize(NSOperationQueue)+1) then
+ writeln('size of NSOperationQueue is wrong: ',class_getInstanceSize(TDerivedNSOperationQueue),' <> ',class_getInstanceSize(NSOperationQueue)+1);
+ if class_getInstanceSize(TDerivedNSPointerArray) <> (class_getInstanceSize(NSPointerArray)+1) then
+ writeln('size of NSPointerArray is wrong: ',class_getInstanceSize(TDerivedNSPointerArray),' <> ',class_getInstanceSize(NSPointerArray)+1);
+ if class_getInstanceSize(TDerivedNSPort) <> (class_getInstanceSize(NSPort)+1) then
+ writeln('size of NSPort is wrong: ',class_getInstanceSize(TDerivedNSPort),' <> ',class_getInstanceSize(NSPort)+1);
+ if class_getInstanceSize(TDerivedNSMachPort) <> (class_getInstanceSize(NSMachPort)+1) then
+ writeln('size of NSMachPort is wrong: ',class_getInstanceSize(TDerivedNSMachPort),' <> ',class_getInstanceSize(NSMachPort)+1);
+ if class_getInstanceSize(TDerivedNSMessagePort) <> (class_getInstanceSize(NSMessagePort)+1) then
+ writeln('size of NSMessagePort is wrong: ',class_getInstanceSize(TDerivedNSMessagePort),' <> ',class_getInstanceSize(NSMessagePort)+1);
+ if class_getInstanceSize(TDerivedNSSocketPort) <> (class_getInstanceSize(NSSocketPort)+1) then
+ writeln('size of NSSocketPort is wrong: ',class_getInstanceSize(TDerivedNSSocketPort),' <> ',class_getInstanceSize(NSSocketPort)+1);
+ if class_getInstanceSize(TDerivedNSPortCoder) <> (class_getInstanceSize(NSPortCoder)+1) then
+ writeln('size of NSPortCoder is wrong: ',class_getInstanceSize(TDerivedNSPortCoder),' <> ',class_getInstanceSize(NSPortCoder)+1);
+ if class_getInstanceSize(TDerivedNSPortMessage) <> (class_getInstanceSize(NSPortMessage)+1) then
+ writeln('size of NSPortMessage is wrong: ',class_getInstanceSize(TDerivedNSPortMessage),' <> ',class_getInstanceSize(NSPortMessage)+1);
+ if class_getInstanceSize(TDerivedNSPortNameServer) <> (class_getInstanceSize(NSPortNameServer)+1) then
+ writeln('size of NSPortNameServer is wrong: ',class_getInstanceSize(TDerivedNSPortNameServer),' <> ',class_getInstanceSize(NSPortNameServer)+1);
+ if class_getInstanceSize(TDerivedNSMachBootstrapServer) <> (class_getInstanceSize(NSMachBootstrapServer)+1) then
+ writeln('size of NSMachBootstrapServer is wrong: ',class_getInstanceSize(TDerivedNSMachBootstrapServer),' <> ',class_getInstanceSize(NSMachBootstrapServer)+1);
+ if class_getInstanceSize(TDerivedNSMessagePortNameServer) <> (class_getInstanceSize(NSMessagePortNameServer)+1) then
+ writeln('size of NSMessagePortNameServer is wrong: ',class_getInstanceSize(TDerivedNSMessagePortNameServer),' <> ',class_getInstanceSize(NSMessagePortNameServer)+1);
+ if class_getInstanceSize(TDerivedNSSocketPortNameServer) <> (class_getInstanceSize(NSSocketPortNameServer)+1) then
+ writeln('size of NSSocketPortNameServer is wrong: ',class_getInstanceSize(TDerivedNSSocketPortNameServer),' <> ',class_getInstanceSize(NSSocketPortNameServer)+1);
+ if class_getInstanceSize(TDerivedNSPredicate) <> (class_getInstanceSize(NSPredicate)+1) then
+ writeln('size of NSPredicate is wrong: ',class_getInstanceSize(TDerivedNSPredicate),' <> ',class_getInstanceSize(NSPredicate)+1);
+ if class_getInstanceSize(TDerivedNSProcessInfo) <> (class_getInstanceSize(NSProcessInfo)+1) then
+ writeln('size of NSProcessInfo is wrong: ',class_getInstanceSize(TDerivedNSProcessInfo),' <> ',class_getInstanceSize(NSProcessInfo)+1);
+ if class_getInstanceSize(TDerivedNSPropertyListSerialization) <> (class_getInstanceSize(NSPropertyListSerialization)+1) then
+ writeln('size of NSPropertyListSerialization is wrong: ',class_getInstanceSize(TDerivedNSPropertyListSerialization),' <> ',class_getInstanceSize(NSPropertyListSerialization)+1);
+ if class_getInstanceSize(TDerivedNSProtocolChecker) <> (class_getInstanceSize(NSProtocolChecker)+1) then
+ writeln('size of NSProtocolChecker is wrong: ',class_getInstanceSize(TDerivedNSProtocolChecker),' <> ',class_getInstanceSize(NSProtocolChecker)+1);
+ if class_getInstanceSize(TDerivedNSProxy) <> (class_getInstanceSize(NSProxy)+1) then
+ writeln('size of NSProxy is wrong: ',class_getInstanceSize(TDerivedNSProxy),' <> ',class_getInstanceSize(NSProxy)+1);
+ if class_getInstanceSize(TDerivedNSRunLoop) <> (class_getInstanceSize(NSRunLoop)+1) then
+ writeln('size of NSRunLoop is wrong: ',class_getInstanceSize(TDerivedNSRunLoop),' <> ',class_getInstanceSize(NSRunLoop)+1);
+ if class_getInstanceSize(TDerivedNSScanner) <> (class_getInstanceSize(NSScanner)+1) then
+ writeln('size of NSScanner is wrong: ',class_getInstanceSize(TDerivedNSScanner),' <> ',class_getInstanceSize(NSScanner)+1);
+ if class_getInstanceSize(TDerivedNSScriptClassDescription) <> (class_getInstanceSize(NSScriptClassDescription)+1) then
+ writeln('size of NSScriptClassDescription is wrong: ',class_getInstanceSize(TDerivedNSScriptClassDescription),' <> ',class_getInstanceSize(NSScriptClassDescription)+1);
+ if class_getInstanceSize(TDerivedNSScriptCoercionHandler) <> (class_getInstanceSize(NSScriptCoercionHandler)+1) then
+ writeln('size of NSScriptCoercionHandler is wrong: ',class_getInstanceSize(TDerivedNSScriptCoercionHandler),' <> ',class_getInstanceSize(NSScriptCoercionHandler)+1);
+ if class_getInstanceSize(TDerivedNSScriptCommand) <> (class_getInstanceSize(NSScriptCommand)+1) then
+ writeln('size of NSScriptCommand is wrong: ',class_getInstanceSize(TDerivedNSScriptCommand),' <> ',class_getInstanceSize(NSScriptCommand)+1);
+ if class_getInstanceSize(TDerivedNSScriptCommandDescription) <> (class_getInstanceSize(NSScriptCommandDescription)+1) then
+ writeln('size of NSScriptCommandDescription is wrong: ',class_getInstanceSize(TDerivedNSScriptCommandDescription),' <> ',class_getInstanceSize(NSScriptCommandDescription)+1);
+ if class_getInstanceSize(TDerivedNSScriptExecutionContext) <> (class_getInstanceSize(NSScriptExecutionContext)+1) then
+ writeln('size of NSScriptExecutionContext is wrong: ',class_getInstanceSize(TDerivedNSScriptExecutionContext),' <> ',class_getInstanceSize(NSScriptExecutionContext)+1);
+ if class_getInstanceSize(TDerivedNSScriptObjectSpecifier) <> (class_getInstanceSize(NSScriptObjectSpecifier)+1) then
+ writeln('size of NSScriptObjectSpecifier is wrong: ',class_getInstanceSize(TDerivedNSScriptObjectSpecifier),' <> ',class_getInstanceSize(NSScriptObjectSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSIndexSpecifier) <> (class_getInstanceSize(NSIndexSpecifier)+1) then
+ writeln('size of NSIndexSpecifier is wrong: ',class_getInstanceSize(TDerivedNSIndexSpecifier),' <> ',class_getInstanceSize(NSIndexSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSMiddleSpecifier) <> (class_getInstanceSize(NSMiddleSpecifier)+1) then
+ writeln('size of NSMiddleSpecifier is wrong: ',class_getInstanceSize(TDerivedNSMiddleSpecifier),' <> ',class_getInstanceSize(NSMiddleSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSNameSpecifier) <> (class_getInstanceSize(NSNameSpecifier)+1) then
+ writeln('size of NSNameSpecifier is wrong: ',class_getInstanceSize(TDerivedNSNameSpecifier),' <> ',class_getInstanceSize(NSNameSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSPositionalSpecifier) <> (class_getInstanceSize(NSPositionalSpecifier)+1) then
+ writeln('size of NSPositionalSpecifier is wrong: ',class_getInstanceSize(TDerivedNSPositionalSpecifier),' <> ',class_getInstanceSize(NSPositionalSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSPropertySpecifier) <> (class_getInstanceSize(NSPropertySpecifier)+1) then
+ writeln('size of NSPropertySpecifier is wrong: ',class_getInstanceSize(TDerivedNSPropertySpecifier),' <> ',class_getInstanceSize(NSPropertySpecifier)+1);
+ if class_getInstanceSize(TDerivedNSRandomSpecifier) <> (class_getInstanceSize(NSRandomSpecifier)+1) then
+ writeln('size of NSRandomSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRandomSpecifier),' <> ',class_getInstanceSize(NSRandomSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSRangeSpecifier) <> (class_getInstanceSize(NSRangeSpecifier)+1) then
+ writeln('size of NSRangeSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRangeSpecifier),' <> ',class_getInstanceSize(NSRangeSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSRelativeSpecifier) <> (class_getInstanceSize(NSRelativeSpecifier)+1) then
+ writeln('size of NSRelativeSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRelativeSpecifier),' <> ',class_getInstanceSize(NSRelativeSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSUniqueIDSpecifier) <> (class_getInstanceSize(NSUniqueIDSpecifier)+1) then
+ writeln('size of NSUniqueIDSpecifier is wrong: ',class_getInstanceSize(TDerivedNSUniqueIDSpecifier),' <> ',class_getInstanceSize(NSUniqueIDSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSWhoseSpecifier) <> (class_getInstanceSize(NSWhoseSpecifier)+1) then
+ writeln('size of NSWhoseSpecifier is wrong: ',class_getInstanceSize(TDerivedNSWhoseSpecifier),' <> ',class_getInstanceSize(NSWhoseSpecifier)+1);
+ if class_getInstanceSize(TDerivedNSCloneCommand) <> (class_getInstanceSize(NSCloneCommand)+1) then
+ writeln('size of NSCloneCommand is wrong: ',class_getInstanceSize(TDerivedNSCloneCommand),' <> ',class_getInstanceSize(NSCloneCommand)+1);
+ if class_getInstanceSize(TDerivedNSCloseCommand) <> (class_getInstanceSize(NSCloseCommand)+1) then
+ writeln('size of NSCloseCommand is wrong: ',class_getInstanceSize(TDerivedNSCloseCommand),' <> ',class_getInstanceSize(NSCloseCommand)+1);
+ if class_getInstanceSize(TDerivedNSCountCommand) <> (class_getInstanceSize(NSCountCommand)+1) then
+ writeln('size of NSCountCommand is wrong: ',class_getInstanceSize(TDerivedNSCountCommand),' <> ',class_getInstanceSize(NSCountCommand)+1);
+ if class_getInstanceSize(TDerivedNSCreateCommand) <> (class_getInstanceSize(NSCreateCommand)+1) then
+ writeln('size of NSCreateCommand is wrong: ',class_getInstanceSize(TDerivedNSCreateCommand),' <> ',class_getInstanceSize(NSCreateCommand)+1);
+ if class_getInstanceSize(TDerivedNSDeleteCommand) <> (class_getInstanceSize(NSDeleteCommand)+1) then
+ writeln('size of NSDeleteCommand is wrong: ',class_getInstanceSize(TDerivedNSDeleteCommand),' <> ',class_getInstanceSize(NSDeleteCommand)+1);
+ if class_getInstanceSize(TDerivedNSExistsCommand) <> (class_getInstanceSize(NSExistsCommand)+1) then
+ writeln('size of NSExistsCommand is wrong: ',class_getInstanceSize(TDerivedNSExistsCommand),' <> ',class_getInstanceSize(NSExistsCommand)+1);
+ if class_getInstanceSize(TDerivedNSGetCommand) <> (class_getInstanceSize(NSGetCommand)+1) then
+ writeln('size of NSGetCommand is wrong: ',class_getInstanceSize(TDerivedNSGetCommand),' <> ',class_getInstanceSize(NSGetCommand)+1);
+ if class_getInstanceSize(TDerivedNSMoveCommand) <> (class_getInstanceSize(NSMoveCommand)+1) then
+ writeln('size of NSMoveCommand is wrong: ',class_getInstanceSize(TDerivedNSMoveCommand),' <> ',class_getInstanceSize(NSMoveCommand)+1);
+ if class_getInstanceSize(TDerivedNSQuitCommand) <> (class_getInstanceSize(NSQuitCommand)+1) then
+ writeln('size of NSQuitCommand is wrong: ',class_getInstanceSize(TDerivedNSQuitCommand),' <> ',class_getInstanceSize(NSQuitCommand)+1);
+ if class_getInstanceSize(TDerivedNSSetCommand) <> (class_getInstanceSize(NSSetCommand)+1) then
+ writeln('size of NSSetCommand is wrong: ',class_getInstanceSize(TDerivedNSSetCommand),' <> ',class_getInstanceSize(NSSetCommand)+1);
+ if class_getInstanceSize(TDerivedNSScriptSuiteRegistry) <> (class_getInstanceSize(NSScriptSuiteRegistry)+1) then
+ writeln('size of NSScriptSuiteRegistry is wrong: ',class_getInstanceSize(TDerivedNSScriptSuiteRegistry),' <> ',class_getInstanceSize(NSScriptSuiteRegistry)+1);
+ if class_getInstanceSize(TDerivedNSScriptWhoseTest) <> (class_getInstanceSize(NSScriptWhoseTest)+1) then
+ writeln('size of NSScriptWhoseTest is wrong: ',class_getInstanceSize(TDerivedNSScriptWhoseTest),' <> ',class_getInstanceSize(NSScriptWhoseTest)+1);
+ if class_getInstanceSize(TDerivedNSLogicalTest) <> (class_getInstanceSize(NSLogicalTest)+1) then
+ writeln('size of NSLogicalTest is wrong: ',class_getInstanceSize(TDerivedNSLogicalTest),' <> ',class_getInstanceSize(NSLogicalTest)+1);
+ if class_getInstanceSize(TDerivedNSSpecifierTest) <> (class_getInstanceSize(NSSpecifierTest)+1) then
+ writeln('size of NSSpecifierTest is wrong: ',class_getInstanceSize(TDerivedNSSpecifierTest),' <> ',class_getInstanceSize(NSSpecifierTest)+1);
+ if class_getInstanceSize(TDerivedNSSet) <> (class_getInstanceSize(NSSet)+1) then
+ writeln('size of NSSet is wrong: ',class_getInstanceSize(TDerivedNSSet),' <> ',class_getInstanceSize(NSSet)+1);
+ if class_getInstanceSize(TDerivedNSMutableSet) <> (class_getInstanceSize(NSMutableSet)+1) then
+ writeln('size of NSMutableSet is wrong: ',class_getInstanceSize(TDerivedNSMutableSet),' <> ',class_getInstanceSize(NSMutableSet)+1);
+ if class_getInstanceSize(TDerivedNSCountedSet) <> (class_getInstanceSize(NSCountedSet)+1) then
+ writeln('size of NSCountedSet is wrong: ',class_getInstanceSize(TDerivedNSCountedSet),' <> ',class_getInstanceSize(NSCountedSet)+1);
+ if class_getInstanceSize(TDerivedNSSortDescriptor) <> (class_getInstanceSize(NSSortDescriptor)+1) then
+ writeln('size of NSSortDescriptor is wrong: ',class_getInstanceSize(TDerivedNSSortDescriptor),' <> ',class_getInstanceSize(NSSortDescriptor)+1);
+ if class_getInstanceSize(TDerivedNSSpellServer) <> (class_getInstanceSize(NSSpellServer)+1) then
+ writeln('size of NSSpellServer is wrong: ',class_getInstanceSize(TDerivedNSSpellServer),' <> ',class_getInstanceSize(NSSpellServer)+1);
+ if class_getInstanceSize(TDerivedNSStream) <> (class_getInstanceSize(NSStream)+1) then
+ writeln('size of NSStream is wrong: ',class_getInstanceSize(TDerivedNSStream),' <> ',class_getInstanceSize(NSStream)+1);
+ if class_getInstanceSize(TDerivedNSInputStream) <> (class_getInstanceSize(NSInputStream)+1) then
+ writeln('size of NSInputStream is wrong: ',class_getInstanceSize(TDerivedNSInputStream),' <> ',class_getInstanceSize(NSInputStream)+1);
+ if class_getInstanceSize(TDerivedNSOutputStream) <> (class_getInstanceSize(NSOutputStream)+1) then
+ writeln('size of NSOutputStream is wrong: ',class_getInstanceSize(TDerivedNSOutputStream),' <> ',class_getInstanceSize(NSOutputStream)+1);
+ if class_getInstanceSize(TDerivedNSString) <> (class_getInstanceSize(NSString)+1) then
+ writeln('size of NSString is wrong: ',class_getInstanceSize(TDerivedNSString),' <> ',class_getInstanceSize(NSString)+1);
+ if class_getInstanceSize(TDerivedNSMutableString) <> (class_getInstanceSize(NSMutableString)+1) then
+ writeln('size of NSMutableString is wrong: ',class_getInstanceSize(TDerivedNSMutableString),' <> ',class_getInstanceSize(NSMutableString)+1);
+ if class_getInstanceSize(TDerivedNSSimpleCString) <> (class_getInstanceSize(NSSimpleCString)+1) then
+ writeln('size of NSSimpleCString is wrong: ',class_getInstanceSize(TDerivedNSSimpleCString),' <> ',class_getInstanceSize(NSSimpleCString)+1);
+ if class_getInstanceSize(TDerivedNSTask) <> (class_getInstanceSize(NSTask)+1) then
+ writeln('size of NSTask is wrong: ',class_getInstanceSize(TDerivedNSTask),' <> ',class_getInstanceSize(NSTask)+1);
+ if class_getInstanceSize(TDerivedNSThread) <> (class_getInstanceSize(NSThread)+1) then
+ writeln('size of NSThread is wrong: ',class_getInstanceSize(TDerivedNSThread),' <> ',class_getInstanceSize(NSThread)+1);
+ if class_getInstanceSize(TDerivedNSTimer) <> (class_getInstanceSize(NSTimer)+1) then
+ writeln('size of NSTimer is wrong: ',class_getInstanceSize(TDerivedNSTimer),' <> ',class_getInstanceSize(NSTimer)+1);
+ if class_getInstanceSize(TDerivedNSTimeZone) <> (class_getInstanceSize(NSTimeZone)+1) then
+ writeln('size of NSTimeZone is wrong: ',class_getInstanceSize(TDerivedNSTimeZone),' <> ',class_getInstanceSize(NSTimeZone)+1);
+ if class_getInstanceSize(TDerivedNSUndoManager) <> (class_getInstanceSize(NSUndoManager)+1) then
+ writeln('size of NSUndoManager is wrong: ',class_getInstanceSize(TDerivedNSUndoManager),' <> ',class_getInstanceSize(NSUndoManager)+1);
+ if class_getInstanceSize(TDerivedNSURL) <> (class_getInstanceSize(NSURL)+1) then
+ writeln('size of NSURL is wrong: ',class_getInstanceSize(TDerivedNSURL),' <> ',class_getInstanceSize(NSURL)+1);
+ if class_getInstanceSize(TDerivedNSURLAuthenticationChallenge) <> (class_getInstanceSize(NSURLAuthenticationChallenge)+1) then
+ writeln('size of NSURLAuthenticationChallenge is wrong: ',class_getInstanceSize(TDerivedNSURLAuthenticationChallenge),' <> ',class_getInstanceSize(NSURLAuthenticationChallenge)+1);
+ if class_getInstanceSize(TDerivedNSCachedURLResponse) <> (class_getInstanceSize(NSCachedURLResponse)+1) then
+ writeln('size of NSCachedURLResponse is wrong: ',class_getInstanceSize(TDerivedNSCachedURLResponse),' <> ',class_getInstanceSize(NSCachedURLResponse)+1);
+ if class_getInstanceSize(TDerivedNSURLCache) <> (class_getInstanceSize(NSURLCache)+1) then
+ writeln('size of NSURLCache is wrong: ',class_getInstanceSize(TDerivedNSURLCache),' <> ',class_getInstanceSize(NSURLCache)+1);
+ if class_getInstanceSize(TDerivedNSURLConnection) <> (class_getInstanceSize(NSURLConnection)+1) then
+ writeln('size of NSURLConnection is wrong: ',class_getInstanceSize(TDerivedNSURLConnection),' <> ',class_getInstanceSize(NSURLConnection)+1);
+ if class_getInstanceSize(TDerivedNSURLCredential) <> (class_getInstanceSize(NSURLCredential)+1) then
+ writeln('size of NSURLCredential is wrong: ',class_getInstanceSize(TDerivedNSURLCredential),' <> ',class_getInstanceSize(NSURLCredential)+1);
+ if class_getInstanceSize(TDerivedNSURLCredentialStorage) <> (class_getInstanceSize(NSURLCredentialStorage)+1) then
+ writeln('size of NSURLCredentialStorage is wrong: ',class_getInstanceSize(TDerivedNSURLCredentialStorage),' <> ',class_getInstanceSize(NSURLCredentialStorage)+1);
+ if class_getInstanceSize(TDerivedNSURLDownload) <> (class_getInstanceSize(NSURLDownload)+1) then
+ writeln('size of NSURLDownload is wrong: ',class_getInstanceSize(TDerivedNSURLDownload),' <> ',class_getInstanceSize(NSURLDownload)+1);
+ if class_getInstanceSize(TDerivedNSURLHandle) <> (class_getInstanceSize(NSURLHandle)+1) then
+ writeln('size of NSURLHandle is wrong: ',class_getInstanceSize(TDerivedNSURLHandle),' <> ',class_getInstanceSize(NSURLHandle)+1);
+ if class_getInstanceSize(TDerivedNSURLProtectionSpace) <> (class_getInstanceSize(NSURLProtectionSpace)+1) then
+ writeln('size of NSURLProtectionSpace is wrong: ',class_getInstanceSize(TDerivedNSURLProtectionSpace),' <> ',class_getInstanceSize(NSURLProtectionSpace)+1);
+ if class_getInstanceSize(TDerivedNSURLProtocol) <> (class_getInstanceSize(NSURLProtocol)+1) then
+ writeln('size of NSURLProtocol is wrong: ',class_getInstanceSize(TDerivedNSURLProtocol),' <> ',class_getInstanceSize(NSURLProtocol)+1);
+ if class_getInstanceSize(TDerivedNSURLRequest) <> (class_getInstanceSize(NSURLRequest)+1) then
+ writeln('size of NSURLRequest is wrong: ',class_getInstanceSize(TDerivedNSURLRequest),' <> ',class_getInstanceSize(NSURLRequest)+1);
+ if class_getInstanceSize(TDerivedNSMutableURLRequest) <> (class_getInstanceSize(NSMutableURLRequest)+1) then
+ writeln('size of NSMutableURLRequest is wrong: ',class_getInstanceSize(TDerivedNSMutableURLRequest),' <> ',class_getInstanceSize(NSMutableURLRequest)+1);
+ if class_getInstanceSize(TDerivedNSURLResponse) <> (class_getInstanceSize(NSURLResponse)+1) then
+ writeln('size of NSURLResponse is wrong: ',class_getInstanceSize(TDerivedNSURLResponse),' <> ',class_getInstanceSize(NSURLResponse)+1);
+ if class_getInstanceSize(TDerivedNSHTTPURLResponse) <> (class_getInstanceSize(NSHTTPURLResponse)+1) then
+ writeln('size of NSHTTPURLResponse is wrong: ',class_getInstanceSize(TDerivedNSHTTPURLResponse),' <> ',class_getInstanceSize(NSHTTPURLResponse)+1);
+ if class_getInstanceSize(TDerivedNSUserDefaults) <> (class_getInstanceSize(NSUserDefaults)+1) then
+ writeln('size of NSUserDefaults is wrong: ',class_getInstanceSize(TDerivedNSUserDefaults),' <> ',class_getInstanceSize(NSUserDefaults)+1);
+ if class_getInstanceSize(TDerivedNSValue) <> (class_getInstanceSize(NSValue)+1) then
+ writeln('size of NSValue is wrong: ',class_getInstanceSize(TDerivedNSValue),' <> ',class_getInstanceSize(NSValue)+1);
+ if class_getInstanceSize(TDerivedNSNumber) <> (class_getInstanceSize(NSNumber)+1) then
+ writeln('size of NSNumber is wrong: ',class_getInstanceSize(TDerivedNSNumber),' <> ',class_getInstanceSize(NSNumber)+1);
+ if class_getInstanceSize(TDerivedNSValueTransformer) <> (class_getInstanceSize(NSValueTransformer)+1) then
+ writeln('size of NSValueTransformer is wrong: ',class_getInstanceSize(TDerivedNSValueTransformer),' <> ',class_getInstanceSize(NSValueTransformer)+1);
+ if class_getInstanceSize(TDerivedNSXMLDocument) <> (class_getInstanceSize(NSXMLDocument)+1) then
+ writeln('size of NSXMLDocument is wrong: ',class_getInstanceSize(TDerivedNSXMLDocument),' <> ',class_getInstanceSize(NSXMLDocument)+1);
+ if class_getInstanceSize(TDerivedNSXMLDTD) <> (class_getInstanceSize(NSXMLDTD)+1) then
+ writeln('size of NSXMLDTD is wrong: ',class_getInstanceSize(TDerivedNSXMLDTD),' <> ',class_getInstanceSize(NSXMLDTD)+1);
+ if class_getInstanceSize(TDerivedNSXMLDTDNode) <> (class_getInstanceSize(NSXMLDTDNode)+1) then
+ writeln('size of NSXMLDTDNode is wrong: ',class_getInstanceSize(TDerivedNSXMLDTDNode),' <> ',class_getInstanceSize(NSXMLDTDNode)+1);
+ if class_getInstanceSize(TDerivedNSXMLElement) <> (class_getInstanceSize(NSXMLElement)+1) then
+ writeln('size of NSXMLElement is wrong: ',class_getInstanceSize(TDerivedNSXMLElement),' <> ',class_getInstanceSize(NSXMLElement)+1);
+ if class_getInstanceSize(TDerivedNSXMLNode) <> (class_getInstanceSize(NSXMLNode)+1) then
+ writeln('size of NSXMLNode is wrong: ',class_getInstanceSize(TDerivedNSXMLNode),' <> ',class_getInstanceSize(NSXMLNode)+1);
+ if class_getInstanceSize(TDerivedNSXMLParser) <> (class_getInstanceSize(NSXMLParser)+1) then
+ writeln('size of NSXMLParser is wrong: ',class_getInstanceSize(TDerivedNSXMLParser),' <> ',class_getInstanceSize(NSXMLParser)+1);
+ if class_getInstanceSize(TDerivedNSActionCell) <> (class_getInstanceSize(NSActionCell)+1) then
+ writeln('size of NSActionCell is wrong: ',class_getInstanceSize(TDerivedNSActionCell),' <> ',class_getInstanceSize(NSActionCell)+1);
+ if class_getInstanceSize(TDerivedNSAlert) <> (class_getInstanceSize(NSAlert)+1) then
+ writeln('size of NSAlert is wrong: ',class_getInstanceSize(TDerivedNSAlert),' <> ',class_getInstanceSize(NSAlert)+1);
+ if class_getInstanceSize(TDerivedNSAnimation) <> (class_getInstanceSize(NSAnimation)+1) then
+ writeln('size of NSAnimation is wrong: ',class_getInstanceSize(TDerivedNSAnimation),' <> ',class_getInstanceSize(NSAnimation)+1);
+ if class_getInstanceSize(TDerivedNSViewAnimation) <> (class_getInstanceSize(NSViewAnimation)+1) then
+ writeln('size of NSViewAnimation is wrong: ',class_getInstanceSize(TDerivedNSViewAnimation),' <> ',class_getInstanceSize(NSViewAnimation)+1);
+ if class_getInstanceSize(TDerivedNSAnimationContext) <> (class_getInstanceSize(NSAnimationContext)+1) then
+ writeln('size of NSAnimationContext is wrong: ',class_getInstanceSize(TDerivedNSAnimationContext),' <> ',class_getInstanceSize(NSAnimationContext)+1);
+ if class_getInstanceSize(TDerivedNSApplication) <> (class_getInstanceSize(NSApplication)+1) then
+ writeln('size of NSApplication is wrong: ',class_getInstanceSize(TDerivedNSApplication),' <> ',class_getInstanceSize(NSApplication)+1);
+ if class_getInstanceSize(TDerivedNSArrayController) <> (class_getInstanceSize(NSArrayController)+1) then
+ writeln('size of NSArrayController is wrong: ',class_getInstanceSize(TDerivedNSArrayController),' <> ',class_getInstanceSize(NSArrayController)+1);
+ if class_getInstanceSize(TDerivedNSATSTypesetter) <> (class_getInstanceSize(NSATSTypesetter)+1) then
+ writeln('size of NSATSTypesetter is wrong: ',class_getInstanceSize(TDerivedNSATSTypesetter),' <> ',class_getInstanceSize(NSATSTypesetter)+1);
+ if class_getInstanceSize(TDerivedNSBezierPath) <> (class_getInstanceSize(NSBezierPath)+1) then
+ writeln('size of NSBezierPath is wrong: ',class_getInstanceSize(TDerivedNSBezierPath),' <> ',class_getInstanceSize(NSBezierPath)+1);
+ if class_getInstanceSize(TDerivedNSBitmapImageRep) <> (class_getInstanceSize(NSBitmapImageRep)+1) then
+ writeln('size of NSBitmapImageRep is wrong: ',class_getInstanceSize(TDerivedNSBitmapImageRep),' <> ',class_getInstanceSize(NSBitmapImageRep)+1);
+ if class_getInstanceSize(TDerivedNSBox) <> (class_getInstanceSize(NSBox)+1) then
+ writeln('size of NSBox is wrong: ',class_getInstanceSize(TDerivedNSBox),' <> ',class_getInstanceSize(NSBox)+1);
+ if class_getInstanceSize(TDerivedNSBrowser) <> (class_getInstanceSize(NSBrowser)+1) then
+ writeln('size of NSBrowser is wrong: ',class_getInstanceSize(TDerivedNSBrowser),' <> ',class_getInstanceSize(NSBrowser)+1);
+ if class_getInstanceSize(TDerivedNSBrowserCell) <> (class_getInstanceSize(NSBrowserCell)+1) then
+ writeln('size of NSBrowserCell is wrong: ',class_getInstanceSize(TDerivedNSBrowserCell),' <> ',class_getInstanceSize(NSBrowserCell)+1);
+ if class_getInstanceSize(TDerivedNSButton) <> (class_getInstanceSize(NSButton)+1) then
+ writeln('size of NSButton is wrong: ',class_getInstanceSize(TDerivedNSButton),' <> ',class_getInstanceSize(NSButton)+1);
+ if class_getInstanceSize(TDerivedNSButtonCell) <> (class_getInstanceSize(NSButtonCell)+1) then
+ writeln('size of NSButtonCell is wrong: ',class_getInstanceSize(TDerivedNSButtonCell),' <> ',class_getInstanceSize(NSButtonCell)+1);
+ if class_getInstanceSize(TDerivedNSCachedImageRep) <> (class_getInstanceSize(NSCachedImageRep)+1) then
+ writeln('size of NSCachedImageRep is wrong: ',class_getInstanceSize(TDerivedNSCachedImageRep),' <> ',class_getInstanceSize(NSCachedImageRep)+1);
+ if class_getInstanceSize(TDerivedNSCell) <> (class_getInstanceSize(NSCell)+1) then
+ writeln('size of NSCell is wrong: ',class_getInstanceSize(TDerivedNSCell),' <> ',class_getInstanceSize(NSCell)+1);
+ if class_getInstanceSize(TDerivedNSCIImageRep) <> (class_getInstanceSize(NSCIImageRep)+1) then
+ writeln('size of NSCIImageRep is wrong: ',class_getInstanceSize(TDerivedNSCIImageRep),' <> ',class_getInstanceSize(NSCIImageRep)+1);
+ if class_getInstanceSize(TDerivedNSClipView) <> (class_getInstanceSize(NSClipView)+1) then
+ writeln('size of NSClipView is wrong: ',class_getInstanceSize(TDerivedNSClipView),' <> ',class_getInstanceSize(NSClipView)+1);
+ if class_getInstanceSize(TDerivedNSCollectionViewItem) <> (class_getInstanceSize(NSCollectionViewItem)+1) then
+ writeln('size of NSCollectionViewItem is wrong: ',class_getInstanceSize(TDerivedNSCollectionViewItem),' <> ',class_getInstanceSize(NSCollectionViewItem)+1);
+ if class_getInstanceSize(TDerivedNSCollectionView) <> (class_getInstanceSize(NSCollectionView)+1) then
+ writeln('size of NSCollectionView is wrong: ',class_getInstanceSize(TDerivedNSCollectionView),' <> ',class_getInstanceSize(NSCollectionView)+1);
+ if class_getInstanceSize(TDerivedNSColor) <> (class_getInstanceSize(NSColor)+1) then
+ writeln('size of NSColor is wrong: ',class_getInstanceSize(TDerivedNSColor),' <> ',class_getInstanceSize(NSColor)+1);
+ if class_getInstanceSize(TDerivedNSColorList) <> (class_getInstanceSize(NSColorList)+1) then
+ writeln('size of NSColorList is wrong: ',class_getInstanceSize(TDerivedNSColorList),' <> ',class_getInstanceSize(NSColorList)+1);
+ if class_getInstanceSize(TDerivedNSColorPanel) <> (class_getInstanceSize(NSColorPanel)+1) then
+ writeln('size of NSColorPanel is wrong: ',class_getInstanceSize(TDerivedNSColorPanel),' <> ',class_getInstanceSize(NSColorPanel)+1);
+ if class_getInstanceSize(TDerivedNSColorPicker) <> (class_getInstanceSize(NSColorPicker)+1) then
+ writeln('size of NSColorPicker is wrong: ',class_getInstanceSize(TDerivedNSColorPicker),' <> ',class_getInstanceSize(NSColorPicker)+1);
+ if class_getInstanceSize(TDerivedNSColorSpace) <> (class_getInstanceSize(NSColorSpace)+1) then
+ writeln('size of NSColorSpace is wrong: ',class_getInstanceSize(TDerivedNSColorSpace),' <> ',class_getInstanceSize(NSColorSpace)+1);
+ if class_getInstanceSize(TDerivedNSColorWell) <> (class_getInstanceSize(NSColorWell)+1) then
+ writeln('size of NSColorWell is wrong: ',class_getInstanceSize(TDerivedNSColorWell),' <> ',class_getInstanceSize(NSColorWell)+1);
+ if class_getInstanceSize(TDerivedNSComboBox) <> (class_getInstanceSize(NSComboBox)+1) then
+ writeln('size of NSComboBox is wrong: ',class_getInstanceSize(TDerivedNSComboBox),' <> ',class_getInstanceSize(NSComboBox)+1);
+ if class_getInstanceSize(TDerivedNSComboBoxCell) <> (class_getInstanceSize(NSComboBoxCell)+1) then
+ writeln('size of NSComboBoxCell is wrong: ',class_getInstanceSize(TDerivedNSComboBoxCell),' <> ',class_getInstanceSize(NSComboBoxCell)+1);
+ if class_getInstanceSize(TDerivedNSControl) <> (class_getInstanceSize(NSControl)+1) then
+ writeln('size of NSControl is wrong: ',class_getInstanceSize(TDerivedNSControl),' <> ',class_getInstanceSize(NSControl)+1);
+ if class_getInstanceSize(TDerivedNSController) <> (class_getInstanceSize(NSController)+1) then
+ writeln('size of NSController is wrong: ',class_getInstanceSize(TDerivedNSController),' <> ',class_getInstanceSize(NSController)+1);
+ if class_getInstanceSize(TDerivedNSCursor) <> (class_getInstanceSize(NSCursor)+1) then
+ writeln('size of NSCursor is wrong: ',class_getInstanceSize(TDerivedNSCursor),' <> ',class_getInstanceSize(NSCursor)+1);
+ if class_getInstanceSize(TDerivedNSCustomImageRep) <> (class_getInstanceSize(NSCustomImageRep)+1) then
+ writeln('size of NSCustomImageRep is wrong: ',class_getInstanceSize(TDerivedNSCustomImageRep),' <> ',class_getInstanceSize(NSCustomImageRep)+1);
+ if class_getInstanceSize(TDerivedNSDatePicker) <> (class_getInstanceSize(NSDatePicker)+1) then
+ writeln('size of NSDatePicker is wrong: ',class_getInstanceSize(TDerivedNSDatePicker),' <> ',class_getInstanceSize(NSDatePicker)+1);
+ if class_getInstanceSize(TDerivedNSDatePickerCell) <> (class_getInstanceSize(NSDatePickerCell)+1) then
+ writeln('size of NSDatePickerCell is wrong: ',class_getInstanceSize(TDerivedNSDatePickerCell),' <> ',class_getInstanceSize(NSDatePickerCell)+1);
+ if class_getInstanceSize(TDerivedNSDictionaryController) <> (class_getInstanceSize(NSDictionaryController)+1) then
+ writeln('size of NSDictionaryController is wrong: ',class_getInstanceSize(TDerivedNSDictionaryController),' <> ',class_getInstanceSize(NSDictionaryController)+1);
+ if class_getInstanceSize(TDerivedNSDockTile) <> (class_getInstanceSize(NSDockTile)+1) then
+ writeln('size of NSDockTile is wrong: ',class_getInstanceSize(TDerivedNSDockTile),' <> ',class_getInstanceSize(NSDockTile)+1);
+ if class_getInstanceSize(TDerivedNSDocument) <> (class_getInstanceSize(NSDocument)+1) then
+ writeln('size of NSDocument is wrong: ',class_getInstanceSize(TDerivedNSDocument),' <> ',class_getInstanceSize(NSDocument)+1);
+ if class_getInstanceSize(TDerivedNSDocumentController) <> (class_getInstanceSize(NSDocumentController)+1) then
+ writeln('size of NSDocumentController is wrong: ',class_getInstanceSize(TDerivedNSDocumentController),' <> ',class_getInstanceSize(NSDocumentController)+1);
+ if class_getInstanceSize(TDerivedNSDrawer) <> (class_getInstanceSize(NSDrawer)+1) then
+ writeln('size of NSDrawer is wrong: ',class_getInstanceSize(TDerivedNSDrawer),' <> ',class_getInstanceSize(NSDrawer)+1);
+ if class_getInstanceSize(TDerivedNSEPSImageRep) <> (class_getInstanceSize(NSEPSImageRep)+1) then
+ writeln('size of NSEPSImageRep is wrong: ',class_getInstanceSize(TDerivedNSEPSImageRep),' <> ',class_getInstanceSize(NSEPSImageRep)+1);
+ if class_getInstanceSize(TDerivedNSEvent) <> (class_getInstanceSize(NSEvent)+1) then
+ writeln('size of NSEvent is wrong: ',class_getInstanceSize(TDerivedNSEvent),' <> ',class_getInstanceSize(NSEvent)+1);
+ if class_getInstanceSize(TDerivedNSFileWrapper) <> (class_getInstanceSize(NSFileWrapper)+1) then
+ writeln('size of NSFileWrapper is wrong: ',class_getInstanceSize(TDerivedNSFileWrapper),' <> ',class_getInstanceSize(NSFileWrapper)+1);
+ if class_getInstanceSize(TDerivedNSFont) <> (class_getInstanceSize(NSFont)+1) then
+ writeln('size of NSFont is wrong: ',class_getInstanceSize(TDerivedNSFont),' <> ',class_getInstanceSize(NSFont)+1);
+ if class_getInstanceSize(TDerivedNSFontDescriptor) <> (class_getInstanceSize(NSFontDescriptor)+1) then
+ writeln('size of NSFontDescriptor is wrong: ',class_getInstanceSize(TDerivedNSFontDescriptor),' <> ',class_getInstanceSize(NSFontDescriptor)+1);
+ if class_getInstanceSize(TDerivedNSFontManager) <> (class_getInstanceSize(NSFontManager)+1) then
+ writeln('size of NSFontManager is wrong: ',class_getInstanceSize(TDerivedNSFontManager),' <> ',class_getInstanceSize(NSFontManager)+1);
+ if class_getInstanceSize(TDerivedNSFontPanel) <> (class_getInstanceSize(NSFontPanel)+1) then
+ writeln('size of NSFontPanel is wrong: ',class_getInstanceSize(TDerivedNSFontPanel),' <> ',class_getInstanceSize(NSFontPanel)+1);
+ if class_getInstanceSize(TDerivedNSFormCell) <> (class_getInstanceSize(NSFormCell)+1) then
+ writeln('size of NSFormCell is wrong: ',class_getInstanceSize(TDerivedNSFormCell),' <> ',class_getInstanceSize(NSFormCell)+1);
+ if class_getInstanceSize(TDerivedNSGlyphGenerator) <> (class_getInstanceSize(NSGlyphGenerator)+1) then
+ writeln('size of NSGlyphGenerator is wrong: ',class_getInstanceSize(TDerivedNSGlyphGenerator),' <> ',class_getInstanceSize(NSGlyphGenerator)+1);
+ if class_getInstanceSize(TDerivedNSGlyphInfo) <> (class_getInstanceSize(NSGlyphInfo)+1) then
+ writeln('size of NSGlyphInfo is wrong: ',class_getInstanceSize(TDerivedNSGlyphInfo),' <> ',class_getInstanceSize(NSGlyphInfo)+1);
+ if class_getInstanceSize(TDerivedNSGradient) <> (class_getInstanceSize(NSGradient)+1) then
+ writeln('size of NSGradient is wrong: ',class_getInstanceSize(TDerivedNSGradient),' <> ',class_getInstanceSize(NSGradient)+1);
+ if class_getInstanceSize(TDerivedNSGraphicsContext) <> (class_getInstanceSize(NSGraphicsContext)+1) then
+ writeln('size of NSGraphicsContext is wrong: ',class_getInstanceSize(TDerivedNSGraphicsContext),' <> ',class_getInstanceSize(NSGraphicsContext)+1);
+ if class_getInstanceSize(TDerivedNSHelpManager) <> (class_getInstanceSize(NSHelpManager)+1) then
+ writeln('size of NSHelpManager is wrong: ',class_getInstanceSize(TDerivedNSHelpManager),' <> ',class_getInstanceSize(NSHelpManager)+1);
+ if class_getInstanceSize(TDerivedNSImage) <> (class_getInstanceSize(NSImage)+1) then
+ writeln('size of NSImage is wrong: ',class_getInstanceSize(TDerivedNSImage),' <> ',class_getInstanceSize(NSImage)+1);
+ if class_getInstanceSize(TDerivedNSImageCell) <> (class_getInstanceSize(NSImageCell)+1) then
+ writeln('size of NSImageCell is wrong: ',class_getInstanceSize(TDerivedNSImageCell),' <> ',class_getInstanceSize(NSImageCell)+1);
+ if class_getInstanceSize(TDerivedNSImageRep) <> (class_getInstanceSize(NSImageRep)+1) then
+ writeln('size of NSImageRep is wrong: ',class_getInstanceSize(TDerivedNSImageRep),' <> ',class_getInstanceSize(NSImageRep)+1);
+ if class_getInstanceSize(TDerivedNSImageView) <> (class_getInstanceSize(NSImageView)+1) then
+ writeln('size of NSImageView is wrong: ',class_getInstanceSize(TDerivedNSImageView),' <> ',class_getInstanceSize(NSImageView)+1);
+ if class_getInstanceSize(TDerivedNSInputManager) <> (class_getInstanceSize(NSInputManager)+1) then
+ writeln('size of NSInputManager is wrong: ',class_getInstanceSize(TDerivedNSInputManager),' <> ',class_getInstanceSize(NSInputManager)+1);
+ if class_getInstanceSize(TDerivedNSInputServer) <> (class_getInstanceSize(NSInputServer)+1) then
+ writeln('size of NSInputServer is wrong: ',class_getInstanceSize(TDerivedNSInputServer),' <> ',class_getInstanceSize(NSInputServer)+1);
+ if class_getInstanceSize(TDerivedNSLayoutManager) <> (class_getInstanceSize(NSLayoutManager)+1) then
+ writeln('size of NSLayoutManager is wrong: ',class_getInstanceSize(TDerivedNSLayoutManager),' <> ',class_getInstanceSize(NSLayoutManager)+1);
+ if class_getInstanceSize(TDerivedNSLevelIndicator) <> (class_getInstanceSize(NSLevelIndicator)+1) then
+ writeln('size of NSLevelIndicator is wrong: ',class_getInstanceSize(TDerivedNSLevelIndicator),' <> ',class_getInstanceSize(NSLevelIndicator)+1);
+ if class_getInstanceSize(TDerivedNSLevelIndicatorCell) <> (class_getInstanceSize(NSLevelIndicatorCell)+1) then
+ writeln('size of NSLevelIndicatorCell is wrong: ',class_getInstanceSize(TDerivedNSLevelIndicatorCell),' <> ',class_getInstanceSize(NSLevelIndicatorCell)+1);
+ if class_getInstanceSize(TDerivedNSMatrix) <> (class_getInstanceSize(NSMatrix)+1) then
+ writeln('size of NSMatrix is wrong: ',class_getInstanceSize(TDerivedNSMatrix),' <> ',class_getInstanceSize(NSMatrix)+1);
+ if class_getInstanceSize(TDerivedNSMenu) <> (class_getInstanceSize(NSMenu)+1) then
+ writeln('size of NSMenu is wrong: ',class_getInstanceSize(TDerivedNSMenu),' <> ',class_getInstanceSize(NSMenu)+1);
+ if class_getInstanceSize(TDerivedNSMenuItem) <> (class_getInstanceSize(NSMenuItem)+1) then
+ writeln('size of NSMenuItem is wrong: ',class_getInstanceSize(TDerivedNSMenuItem),' <> ',class_getInstanceSize(NSMenuItem)+1);
+ if class_getInstanceSize(TDerivedNSMenuItemCell) <> (class_getInstanceSize(NSMenuItemCell)+1) then
+ writeln('size of NSMenuItemCell is wrong: ',class_getInstanceSize(TDerivedNSMenuItemCell),' <> ',class_getInstanceSize(NSMenuItemCell)+1);
+ if class_getInstanceSize(TDerivedNSMenuView) <> (class_getInstanceSize(NSMenuView)+1) then
+ writeln('size of NSMenuView is wrong: ',class_getInstanceSize(TDerivedNSMenuView),' <> ',class_getInstanceSize(NSMenuView)+1);
+ if class_getInstanceSize(TDerivedNSMovie) <> (class_getInstanceSize(NSMovie)+1) then
+ writeln('size of NSMovie is wrong: ',class_getInstanceSize(TDerivedNSMovie),' <> ',class_getInstanceSize(NSMovie)+1);
+ if class_getInstanceSize(TDerivedNSMovieView) <> (class_getInstanceSize(NSMovieView)+1) then
+ writeln('size of NSMovieView is wrong: ',class_getInstanceSize(TDerivedNSMovieView),' <> ',class_getInstanceSize(NSMovieView)+1);
+ if class_getInstanceSize(TDerivedNSNib) <> (class_getInstanceSize(NSNib)+1) then
+ writeln('size of NSNib is wrong: ',class_getInstanceSize(TDerivedNSNib),' <> ',class_getInstanceSize(NSNib)+1);
+ if class_getInstanceSize(TDerivedNSObjectController) <> (class_getInstanceSize(NSObjectController)+1) then
+ writeln('size of NSObjectController is wrong: ',class_getInstanceSize(TDerivedNSObjectController),' <> ',class_getInstanceSize(NSObjectController)+1);
+ if class_getInstanceSize(TDerivedNSOpenGLPixelFormat) <> (class_getInstanceSize(NSOpenGLPixelFormat)+1) then
+ writeln('size of NSOpenGLPixelFormat is wrong: ',class_getInstanceSize(TDerivedNSOpenGLPixelFormat),' <> ',class_getInstanceSize(NSOpenGLPixelFormat)+1);
+ if class_getInstanceSize(TDerivedNSOpenGLPixelBuffer) <> (class_getInstanceSize(NSOpenGLPixelBuffer)+1) then
+ writeln('size of NSOpenGLPixelBuffer is wrong: ',class_getInstanceSize(TDerivedNSOpenGLPixelBuffer),' <> ',class_getInstanceSize(NSOpenGLPixelBuffer)+1);
+ if class_getInstanceSize(TDerivedNSOpenGLContext) <> (class_getInstanceSize(NSOpenGLContext)+1) then
+ writeln('size of NSOpenGLContext is wrong: ',class_getInstanceSize(TDerivedNSOpenGLContext),' <> ',class_getInstanceSize(NSOpenGLContext)+1);
+ if class_getInstanceSize(TDerivedNSOpenGLView) <> (class_getInstanceSize(NSOpenGLView)+1) then
+ writeln('size of NSOpenGLView is wrong: ',class_getInstanceSize(TDerivedNSOpenGLView),' <> ',class_getInstanceSize(NSOpenGLView)+1);
+ if class_getInstanceSize(TDerivedNSOpenPanel) <> (class_getInstanceSize(NSOpenPanel)+1) then
+ writeln('size of NSOpenPanel is wrong: ',class_getInstanceSize(TDerivedNSOpenPanel),' <> ',class_getInstanceSize(NSOpenPanel)+1);
+ if class_getInstanceSize(TDerivedNSOutlineView) <> (class_getInstanceSize(NSOutlineView)+1) then
+ writeln('size of NSOutlineView is wrong: ',class_getInstanceSize(TDerivedNSOutlineView),' <> ',class_getInstanceSize(NSOutlineView)+1);
+ if class_getInstanceSize(TDerivedNSPageLayout) <> (class_getInstanceSize(NSPageLayout)+1) then
+ writeln('size of NSPageLayout is wrong: ',class_getInstanceSize(TDerivedNSPageLayout),' <> ',class_getInstanceSize(NSPageLayout)+1);
+ if class_getInstanceSize(TDerivedNSPanel) <> (class_getInstanceSize(NSPanel)+1) then
+ writeln('size of NSPanel is wrong: ',class_getInstanceSize(TDerivedNSPanel),' <> ',class_getInstanceSize(NSPanel)+1);
+ if class_getInstanceSize(TDerivedNSTextTab) <> (class_getInstanceSize(NSTextTab)+1) then
+ writeln('size of NSTextTab is wrong: ',class_getInstanceSize(TDerivedNSTextTab),' <> ',class_getInstanceSize(NSTextTab)+1);
+ if class_getInstanceSize(TDerivedNSParagraphStyle) <> (class_getInstanceSize(NSParagraphStyle)+1) then
+ writeln('size of NSParagraphStyle is wrong: ',class_getInstanceSize(TDerivedNSParagraphStyle),' <> ',class_getInstanceSize(NSParagraphStyle)+1);
+ if class_getInstanceSize(TDerivedNSMutableParagraphStyle) <> (class_getInstanceSize(NSMutableParagraphStyle)+1) then
+ writeln('size of NSMutableParagraphStyle is wrong: ',class_getInstanceSize(TDerivedNSMutableParagraphStyle),' <> ',class_getInstanceSize(NSMutableParagraphStyle)+1);
+ if class_getInstanceSize(TDerivedNSPasteboard) <> (class_getInstanceSize(NSPasteboard)+1) then
+ writeln('size of NSPasteboard is wrong: ',class_getInstanceSize(TDerivedNSPasteboard),' <> ',class_getInstanceSize(NSPasteboard)+1);
+ if class_getInstanceSize(TDerivedNSPathCell) <> (class_getInstanceSize(NSPathCell)+1) then
+ writeln('size of NSPathCell is wrong: ',class_getInstanceSize(TDerivedNSPathCell),' <> ',class_getInstanceSize(NSPathCell)+1);
+ if class_getInstanceSize(TDerivedNSPathComponentCell) <> (class_getInstanceSize(NSPathComponentCell)+1) then
+ writeln('size of NSPathComponentCell is wrong: ',class_getInstanceSize(TDerivedNSPathComponentCell),' <> ',class_getInstanceSize(NSPathComponentCell)+1);
+ if class_getInstanceSize(TDerivedNSPathControl) <> (class_getInstanceSize(NSPathControl)+1) then
+ writeln('size of NSPathControl is wrong: ',class_getInstanceSize(TDerivedNSPathControl),' <> ',class_getInstanceSize(NSPathControl)+1);
+ if class_getInstanceSize(TDerivedNSPDFImageRep) <> (class_getInstanceSize(NSPDFImageRep)+1) then
+ writeln('size of NSPDFImageRep is wrong: ',class_getInstanceSize(TDerivedNSPDFImageRep),' <> ',class_getInstanceSize(NSPDFImageRep)+1);
+ if class_getInstanceSize(TDerivedNSPersistentDocument) <> (class_getInstanceSize(NSPersistentDocument)+1) then
+ writeln('size of NSPersistentDocument is wrong: ',class_getInstanceSize(TDerivedNSPersistentDocument),' <> ',class_getInstanceSize(NSPersistentDocument)+1);
+ if class_getInstanceSize(TDerivedNSPICTImageRep) <> (class_getInstanceSize(NSPICTImageRep)+1) then
+ writeln('size of NSPICTImageRep is wrong: ',class_getInstanceSize(TDerivedNSPICTImageRep),' <> ',class_getInstanceSize(NSPICTImageRep)+1);
+ if class_getInstanceSize(TDerivedNSPopUpButton) <> (class_getInstanceSize(NSPopUpButton)+1) then
+ writeln('size of NSPopUpButton is wrong: ',class_getInstanceSize(TDerivedNSPopUpButton),' <> ',class_getInstanceSize(NSPopUpButton)+1);
+ if class_getInstanceSize(TDerivedNSPopUpButtonCell) <> (class_getInstanceSize(NSPopUpButtonCell)+1) then
+ writeln('size of NSPopUpButtonCell is wrong: ',class_getInstanceSize(TDerivedNSPopUpButtonCell),' <> ',class_getInstanceSize(NSPopUpButtonCell)+1);
+ if class_getInstanceSize(TDerivedNSPredicateEditor) <> (class_getInstanceSize(NSPredicateEditor)+1) then
+ writeln('size of NSPredicateEditor is wrong: ',class_getInstanceSize(TDerivedNSPredicateEditor),' <> ',class_getInstanceSize(NSPredicateEditor)+1);
+ if class_getInstanceSize(TDerivedNSPrinter) <> (class_getInstanceSize(NSPrinter)+1) then
+ writeln('size of NSPrinter is wrong: ',class_getInstanceSize(TDerivedNSPrinter),' <> ',class_getInstanceSize(NSPrinter)+1);
+ if class_getInstanceSize(TDerivedNSPrintInfo) <> (class_getInstanceSize(NSPrintInfo)+1) then
+ writeln('size of NSPrintInfo is wrong: ',class_getInstanceSize(TDerivedNSPrintInfo),' <> ',class_getInstanceSize(NSPrintInfo)+1);
+ if class_getInstanceSize(TDerivedNSPrintOperation) <> (class_getInstanceSize(NSPrintOperation)+1) then
+ writeln('size of NSPrintOperation is wrong: ',class_getInstanceSize(TDerivedNSPrintOperation),' <> ',class_getInstanceSize(NSPrintOperation)+1);
+ if class_getInstanceSize(TDerivedNSPrintPanel) <> (class_getInstanceSize(NSPrintPanel)+1) then
+ writeln('size of NSPrintPanel is wrong: ',class_getInstanceSize(TDerivedNSPrintPanel),' <> ',class_getInstanceSize(NSPrintPanel)+1);
+ if class_getInstanceSize(TDerivedNSProgressIndicator) <> (class_getInstanceSize(NSProgressIndicator)+1) then
+ writeln('size of NSProgressIndicator is wrong: ',class_getInstanceSize(TDerivedNSProgressIndicator),' <> ',class_getInstanceSize(NSProgressIndicator)+1);
+ if class_getInstanceSize(TDerivedNSQuickDrawView) <> (class_getInstanceSize(NSQuickDrawView)+1) then
+ writeln('size of NSQuickDrawView is wrong: ',class_getInstanceSize(TDerivedNSQuickDrawView),' <> ',class_getInstanceSize(NSQuickDrawView)+1);
+ if class_getInstanceSize(TDerivedNSResponder) <> (class_getInstanceSize(NSResponder)+1) then
+ writeln('size of NSResponder is wrong: ',class_getInstanceSize(TDerivedNSResponder),' <> ',class_getInstanceSize(NSResponder)+1);
+ if class_getInstanceSize(TDerivedNSRuleEditor) <> (class_getInstanceSize(NSRuleEditor)+1) then
+ writeln('size of NSRuleEditor is wrong: ',class_getInstanceSize(TDerivedNSRuleEditor),' <> ',class_getInstanceSize(NSRuleEditor)+1);
+ if class_getInstanceSize(TDerivedNSRulerMarker) <> (class_getInstanceSize(NSRulerMarker)+1) then
+ writeln('size of NSRulerMarker is wrong: ',class_getInstanceSize(TDerivedNSRulerMarker),' <> ',class_getInstanceSize(NSRulerMarker)+1);
+ if class_getInstanceSize(TDerivedNSRulerView) <> (class_getInstanceSize(NSRulerView)+1) then
+ writeln('size of NSRulerView is wrong: ',class_getInstanceSize(TDerivedNSRulerView),' <> ',class_getInstanceSize(NSRulerView)+1);
+ if class_getInstanceSize(TDerivedNSSavePanel) <> (class_getInstanceSize(NSSavePanel)+1) then
+ writeln('size of NSSavePanel is wrong: ',class_getInstanceSize(TDerivedNSSavePanel),' <> ',class_getInstanceSize(NSSavePanel)+1);
+ if class_getInstanceSize(TDerivedNSScreen) <> (class_getInstanceSize(NSScreen)+1) then
+ writeln('size of NSScreen is wrong: ',class_getInstanceSize(TDerivedNSScreen),' <> ',class_getInstanceSize(NSScreen)+1);
+ if class_getInstanceSize(TDerivedNSScroller) <> (class_getInstanceSize(NSScroller)+1) then
+ writeln('size of NSScroller is wrong: ',class_getInstanceSize(TDerivedNSScroller),' <> ',class_getInstanceSize(NSScroller)+1);
+ if class_getInstanceSize(TDerivedNSScrollView) <> (class_getInstanceSize(NSScrollView)+1) then
+ writeln('size of NSScrollView is wrong: ',class_getInstanceSize(TDerivedNSScrollView),' <> ',class_getInstanceSize(NSScrollView)+1);
+ if class_getInstanceSize(TDerivedNSSearchField) <> (class_getInstanceSize(NSSearchField)+1) then
+ writeln('size of NSSearchField is wrong: ',class_getInstanceSize(TDerivedNSSearchField),' <> ',class_getInstanceSize(NSSearchField)+1);
+ if class_getInstanceSize(TDerivedNSSearchFieldCell) <> (class_getInstanceSize(NSSearchFieldCell)+1) then
+ writeln('size of NSSearchFieldCell is wrong: ',class_getInstanceSize(TDerivedNSSearchFieldCell),' <> ',class_getInstanceSize(NSSearchFieldCell)+1);
+ if class_getInstanceSize(TDerivedNSSecureTextField) <> (class_getInstanceSize(NSSecureTextField)+1) then
+ writeln('size of NSSecureTextField is wrong: ',class_getInstanceSize(TDerivedNSSecureTextField),' <> ',class_getInstanceSize(NSSecureTextField)+1);
+ if class_getInstanceSize(TDerivedNSSecureTextFieldCell) <> (class_getInstanceSize(NSSecureTextFieldCell)+1) then
+ writeln('size of NSSecureTextFieldCell is wrong: ',class_getInstanceSize(TDerivedNSSecureTextFieldCell),' <> ',class_getInstanceSize(NSSecureTextFieldCell)+1);
+ if class_getInstanceSize(TDerivedNSSegmentedControl) <> (class_getInstanceSize(NSSegmentedControl)+1) then
+ writeln('size of NSSegmentedControl is wrong: ',class_getInstanceSize(TDerivedNSSegmentedControl),' <> ',class_getInstanceSize(NSSegmentedControl)+1);
+ if class_getInstanceSize(TDerivedNSShadow) <> (class_getInstanceSize(NSShadow)+1) then
+ writeln('size of NSShadow is wrong: ',class_getInstanceSize(TDerivedNSShadow),' <> ',class_getInstanceSize(NSShadow)+1);
+ if class_getInstanceSize(TDerivedNSSlider) <> (class_getInstanceSize(NSSlider)+1) then
+ writeln('size of NSSlider is wrong: ',class_getInstanceSize(TDerivedNSSlider),' <> ',class_getInstanceSize(NSSlider)+1);
+ if class_getInstanceSize(TDerivedNSSliderCell) <> (class_getInstanceSize(NSSliderCell)+1) then
+ writeln('size of NSSliderCell is wrong: ',class_getInstanceSize(TDerivedNSSliderCell),' <> ',class_getInstanceSize(NSSliderCell)+1);
+ if class_getInstanceSize(TDerivedNSSound) <> (class_getInstanceSize(NSSound)+1) then
+ writeln('size of NSSound is wrong: ',class_getInstanceSize(TDerivedNSSound),' <> ',class_getInstanceSize(NSSound)+1);
+ if class_getInstanceSize(TDerivedNSSpeechRecognizer) <> (class_getInstanceSize(NSSpeechRecognizer)+1) then
+ writeln('size of NSSpeechRecognizer is wrong: ',class_getInstanceSize(TDerivedNSSpeechRecognizer),' <> ',class_getInstanceSize(NSSpeechRecognizer)+1);
+ if class_getInstanceSize(TDerivedNSSpeechSynthesizer) <> (class_getInstanceSize(NSSpeechSynthesizer)+1) then
+ writeln('size of NSSpeechSynthesizer is wrong: ',class_getInstanceSize(TDerivedNSSpeechSynthesizer),' <> ',class_getInstanceSize(NSSpeechSynthesizer)+1);
+ if class_getInstanceSize(TDerivedNSSpellChecker) <> (class_getInstanceSize(NSSpellChecker)+1) then
+ writeln('size of NSSpellChecker is wrong: ',class_getInstanceSize(TDerivedNSSpellChecker),' <> ',class_getInstanceSize(NSSpellChecker)+1);
+ if class_getInstanceSize(TDerivedNSSplitView) <> (class_getInstanceSize(NSSplitView)+1) then
+ writeln('size of NSSplitView is wrong: ',class_getInstanceSize(TDerivedNSSplitView),' <> ',class_getInstanceSize(NSSplitView)+1);
+ if class_getInstanceSize(TDerivedNSStatusBar) <> (class_getInstanceSize(NSStatusBar)+1) then
+ writeln('size of NSStatusBar is wrong: ',class_getInstanceSize(TDerivedNSStatusBar),' <> ',class_getInstanceSize(NSStatusBar)+1);
+ if class_getInstanceSize(TDerivedNSStatusItem) <> (class_getInstanceSize(NSStatusItem)+1) then
+ writeln('size of NSStatusItem is wrong: ',class_getInstanceSize(TDerivedNSStatusItem),' <> ',class_getInstanceSize(NSStatusItem)+1);
+ if class_getInstanceSize(TDerivedNSStepper) <> (class_getInstanceSize(NSStepper)+1) then
+ writeln('size of NSStepper is wrong: ',class_getInstanceSize(TDerivedNSStepper),' <> ',class_getInstanceSize(NSStepper)+1);
+ if class_getInstanceSize(TDerivedNSStepperCell) <> (class_getInstanceSize(NSStepperCell)+1) then
+ writeln('size of NSStepperCell is wrong: ',class_getInstanceSize(TDerivedNSStepperCell),' <> ',class_getInstanceSize(NSStepperCell)+1);
+ if class_getInstanceSize(TDerivedNSTableColumn) <> (class_getInstanceSize(NSTableColumn)+1) then
+ writeln('size of NSTableColumn is wrong: ',class_getInstanceSize(TDerivedNSTableColumn),' <> ',class_getInstanceSize(NSTableColumn)+1);
+ if class_getInstanceSize(TDerivedNSTableHeaderCell) <> (class_getInstanceSize(NSTableHeaderCell)+1) then
+ writeln('size of NSTableHeaderCell is wrong: ',class_getInstanceSize(TDerivedNSTableHeaderCell),' <> ',class_getInstanceSize(NSTableHeaderCell)+1);
+ if class_getInstanceSize(TDerivedNSTableHeaderView) <> (class_getInstanceSize(NSTableHeaderView)+1) then
+ writeln('size of NSTableHeaderView is wrong: ',class_getInstanceSize(TDerivedNSTableHeaderView),' <> ',class_getInstanceSize(NSTableHeaderView)+1);
+ if class_getInstanceSize(TDerivedNSTableView) <> (class_getInstanceSize(NSTableView)+1) then
+ writeln('size of NSTableView is wrong: ',class_getInstanceSize(TDerivedNSTableView),' <> ',class_getInstanceSize(NSTableView)+1);
+ if class_getInstanceSize(TDerivedNSTabView) <> (class_getInstanceSize(NSTabView)+1) then
+ writeln('size of NSTabView is wrong: ',class_getInstanceSize(TDerivedNSTabView),' <> ',class_getInstanceSize(NSTabView)+1);
+ if class_getInstanceSize(TDerivedNSTabViewItem) <> (class_getInstanceSize(NSTabViewItem)+1) then
+ writeln('size of NSTabViewItem is wrong: ',class_getInstanceSize(TDerivedNSTabViewItem),' <> ',class_getInstanceSize(NSTabViewItem)+1);
+ if class_getInstanceSize(TDerivedNSText) <> (class_getInstanceSize(NSText)+1) then
+ writeln('size of NSText is wrong: ',class_getInstanceSize(TDerivedNSText),' <> ',class_getInstanceSize(NSText)+1);
+ if class_getInstanceSize(TDerivedNSTextAttachmentCell) <> (class_getInstanceSize(NSTextAttachmentCell)+1) then
+ writeln('size of NSTextAttachmentCell is wrong: ',class_getInstanceSize(TDerivedNSTextAttachmentCell),' <> ',class_getInstanceSize(NSTextAttachmentCell)+1);
+ if class_getInstanceSize(TDerivedNSTextAttachment) <> (class_getInstanceSize(NSTextAttachment)+1) then
+ writeln('size of NSTextAttachment is wrong: ',class_getInstanceSize(TDerivedNSTextAttachment),' <> ',class_getInstanceSize(NSTextAttachment)+1);
+ if class_getInstanceSize(TDerivedNSTextContainer) <> (class_getInstanceSize(NSTextContainer)+1) then
+ writeln('size of NSTextContainer is wrong: ',class_getInstanceSize(TDerivedNSTextContainer),' <> ',class_getInstanceSize(NSTextContainer)+1);
+ if class_getInstanceSize(TDerivedNSTextField) <> (class_getInstanceSize(NSTextField)+1) then
+ writeln('size of NSTextField is wrong: ',class_getInstanceSize(TDerivedNSTextField),' <> ',class_getInstanceSize(NSTextField)+1);
+ if class_getInstanceSize(TDerivedNSTextFieldCell) <> (class_getInstanceSize(NSTextFieldCell)+1) then
+ writeln('size of NSTextFieldCell is wrong: ',class_getInstanceSize(TDerivedNSTextFieldCell),' <> ',class_getInstanceSize(NSTextFieldCell)+1);
+ if class_getInstanceSize(TDerivedNSTextList) <> (class_getInstanceSize(NSTextList)+1) then
+ writeln('size of NSTextList is wrong: ',class_getInstanceSize(TDerivedNSTextList),' <> ',class_getInstanceSize(NSTextList)+1);
+ if class_getInstanceSize(TDerivedNSTextStorage) <> (class_getInstanceSize(NSTextStorage)+1) then
+ writeln('size of NSTextStorage is wrong: ',class_getInstanceSize(TDerivedNSTextStorage),' <> ',class_getInstanceSize(NSTextStorage)+1);
+ if class_getInstanceSize(TDerivedNSTextBlock) <> (class_getInstanceSize(NSTextBlock)+1) then
+ writeln('size of NSTextBlock is wrong: ',class_getInstanceSize(TDerivedNSTextBlock),' <> ',class_getInstanceSize(NSTextBlock)+1);
+ if class_getInstanceSize(TDerivedNSTextTableBlock) <> (class_getInstanceSize(NSTextTableBlock)+1) then
+ writeln('size of NSTextTableBlock is wrong: ',class_getInstanceSize(TDerivedNSTextTableBlock),' <> ',class_getInstanceSize(NSTextTableBlock)+1);
+ if class_getInstanceSize(TDerivedNSTextTable) <> (class_getInstanceSize(NSTextTable)+1) then
+ writeln('size of NSTextTable is wrong: ',class_getInstanceSize(TDerivedNSTextTable),' <> ',class_getInstanceSize(NSTextTable)+1);
+ if class_getInstanceSize(TDerivedNSTextView) <> (class_getInstanceSize(NSTextView)+1) then
+ writeln('size of NSTextView is wrong: ',class_getInstanceSize(TDerivedNSTextView),' <> ',class_getInstanceSize(NSTextView)+1);
+ if class_getInstanceSize(TDerivedNSTokenField) <> (class_getInstanceSize(NSTokenField)+1) then
+ writeln('size of NSTokenField is wrong: ',class_getInstanceSize(TDerivedNSTokenField),' <> ',class_getInstanceSize(NSTokenField)+1);
+ if class_getInstanceSize(TDerivedNSTokenFieldCell) <> (class_getInstanceSize(NSTokenFieldCell)+1) then
+ writeln('size of NSTokenFieldCell is wrong: ',class_getInstanceSize(TDerivedNSTokenFieldCell),' <> ',class_getInstanceSize(NSTokenFieldCell)+1);
+ if class_getInstanceSize(TDerivedNSToolbar) <> (class_getInstanceSize(NSToolbar)+1) then
+ writeln('size of NSToolbar is wrong: ',class_getInstanceSize(TDerivedNSToolbar),' <> ',class_getInstanceSize(NSToolbar)+1);
+ if class_getInstanceSize(TDerivedNSToolbarItem) <> (class_getInstanceSize(NSToolbarItem)+1) then
+ writeln('size of NSToolbarItem is wrong: ',class_getInstanceSize(TDerivedNSToolbarItem),' <> ',class_getInstanceSize(NSToolbarItem)+1);
+ if class_getInstanceSize(TDerivedNSToolbarItemGroup) <> (class_getInstanceSize(NSToolbarItemGroup)+1) then
+ writeln('size of NSToolbarItemGroup is wrong: ',class_getInstanceSize(TDerivedNSToolbarItemGroup),' <> ',class_getInstanceSize(NSToolbarItemGroup)+1);
+ if class_getInstanceSize(TDerivedNSTrackingArea) <> (class_getInstanceSize(NSTrackingArea)+1) then
+ writeln('size of NSTrackingArea is wrong: ',class_getInstanceSize(TDerivedNSTrackingArea),' <> ',class_getInstanceSize(NSTrackingArea)+1);
+ if class_getInstanceSize(TDerivedNSTreeController) <> (class_getInstanceSize(NSTreeController)+1) then
+ writeln('size of NSTreeController is wrong: ',class_getInstanceSize(TDerivedNSTreeController),' <> ',class_getInstanceSize(NSTreeController)+1);
+ if class_getInstanceSize(TDerivedNSTreeNode) <> (class_getInstanceSize(NSTreeNode)+1) then
+ writeln('size of NSTreeNode is wrong: ',class_getInstanceSize(TDerivedNSTreeNode),' <> ',class_getInstanceSize(NSTreeNode)+1);
+ if class_getInstanceSize(TDerivedNSTypesetter) <> (class_getInstanceSize(NSTypesetter)+1) then
+ writeln('size of NSTypesetter is wrong: ',class_getInstanceSize(TDerivedNSTypesetter),' <> ',class_getInstanceSize(NSTypesetter)+1);
+ if class_getInstanceSize(TDerivedNSUserDefaultsController) <> (class_getInstanceSize(NSUserDefaultsController)+1) then
+ writeln('size of NSUserDefaultsController is wrong: ',class_getInstanceSize(TDerivedNSUserDefaultsController),' <> ',class_getInstanceSize(NSUserDefaultsController)+1);
+ if class_getInstanceSize(TDerivedNSView) <> (class_getInstanceSize(NSView)+1) then
+ writeln('size of NSView is wrong: ',class_getInstanceSize(TDerivedNSView),' <> ',class_getInstanceSize(NSView)+1);
+ if class_getInstanceSize(TDerivedNSViewController) <> (class_getInstanceSize(NSViewController)+1) then
+ writeln('size of NSViewController is wrong: ',class_getInstanceSize(TDerivedNSViewController),' <> ',class_getInstanceSize(NSViewController)+1);
+ if class_getInstanceSize(TDerivedNSWindow) <> (class_getInstanceSize(NSWindow)+1) then
+ writeln('size of NSWindow is wrong: ',class_getInstanceSize(TDerivedNSWindow),' <> ',class_getInstanceSize(NSWindow)+1);
+ if class_getInstanceSize(TDerivedNSWindowController) <> (class_getInstanceSize(NSWindowController)+1) then
+ writeln('size of NSWindowController is wrong: ',class_getInstanceSize(TDerivedNSWindowController),' <> ',class_getInstanceSize(NSWindowController)+1);
+ if class_getInstanceSize(TDerivedNSWorkspace) <> (class_getInstanceSize(NSWorkspace)+1) then
+ writeln('size of NSWorkspace is wrong: ',class_getInstanceSize(TDerivedNSWorkspace),' <> ',class_getInstanceSize(NSWorkspace)+1);
+end;
+begin
+ PrintGlue1;
+end.

packages/cocoaint/src/UndefinedTypes.inc

@@ -2,7 +2,6 @@ type
   __NSAppleEventManagerSuspension = Pointer;
   CGFloat = Float32;
   UTF = UInt32;
-  va_list = Pointer; //typedef __darwin_va_list	va_list;
   NSPointerFunctionsOptions = UInt16;
   URefCon = UInt32;
   SRefCon = SInt32;
@@ -17,7 +16,13 @@ type
   GLsizei = integer;
   GLbitfield = integer;
   objc_protocol = protocol;
-  
+
+{ Variable argument list - disabled for Pascal }
+type
+ va_list_rec=record
+ end;
+ va_list = ^va_list_rec;
+
 { Private instance variable types }
 type
  _NSImageCellAnimationState = Pointer;
@@ -25,11 +30,13 @@ type
  PATHSEGMENT = Pointer;		{from NSBezierPath.h what is this???}
  
 { Pointer C-Types }
-{ Note: the parser appends "Pointer" by default but these may have preferred names in ctypes. }
 type
- culongPointer = ^culong;
- UInt32Pointer = Pointer;
- 
+ NSIntegerPointer = pclong;
+ NSUIntegerPointer = pculong;
+ NSZonePointer = ^NSZone;
+ NSTimeIntervalPointer = ^Float32;
+
+
 { An array of objects }
 type
   NSObjectArrayOfObjects = array[0..(high(longint) div sizeof(id))-1] of id;
@@ -66,7 +73,30 @@ type
   CIContext_ = id;
   CIImage_ = id;
   NSRangePointerPointer = Pointer;
-
+  aeDesc_Pointer = Pointer;
+  __NSAppleEventManagerSuspensionPointer = Pointer;
+  
+{ Extra pointers for pass by reference arguments }
+{ NOTE: many of these were from records parsed that do not contain a pointer pair. Fix this later instead of declaring them here. }
+type
+ NSPropertyListFormatPointer = Pointer;
+ NSStringEncodingPointer = Pointer;
+ AppleEventPointer = ^AppleEvent;
+ NSGlyphPointer = Pointer;
+ CIColorPointer = Pointer;
+ NSDecimalPointer = Pointer;
+ CIImagePointer = Pointer;
+ NSTIFFCompressionPointer = Pointer;
+ CIImage_Pointer = Pointer;
+ CALayerPointer = Pointer;
+ CIFilterPointer = Pointer;
+ NSGlyphInscriptionPointer = Pointer;
+ NSOpenGLPixelFormatAttributePointer = Pointer;
+ GLintPointer = Pointer;
+ NSManagedObjectContextPointer = Pointer;
+ NSFetchRequestPointer = Pointer;
+ NSFastEnumerationStatePointer = Pointer;
+ 
 { Parse bugs - these should have been parsed but were not due to errors }
 type
   NSHashEnumerator = Pointer; {struct}

packages/cocoaint/src/appkit/NSATSTypesetter.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSATSTypesetter.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSATSTYPESETTER_PAS_H}
@@ -57,10 +57,10 @@ type
     _layoutManager: NSLayoutManager;
     _textContainers: NSArray;
     _currentTextContainer: NSTextContainer;
-    _currentTextContainerIndex: culong;
+    _currentTextContainerIndex: NSUInteger;
     _currentTextContainerSize: NSSize;
     _currentParagraphStyle: NSParagraphStyle;
-    __atsReserved: Pointer;
+        _atsReserved: array[0..7] of Pointer;
     __private: id;
     
   public
@@ -89,36 +89,36 @@ type
     procedure setParagraphGlyphRange_separatorGlyphRange(paragraphRange: NSRange; paragraphSeparatorRange: NSRange); message 'setParagraphGlyphRange:separatorGlyphRange:';
     function paragraphGlyphRange: NSRange; message 'paragraphGlyphRange';
     function paragraphSeparatorGlyphRange: NSRange; message 'paragraphSeparatorGlyphRange';
-    function layoutParagraphAtPoint(var lineFragmentOrigin: NSPoint): culong; message 'layoutParagraphAtPoint:';
-    function lineSpacingAfterGlyphAtIndex_withProposedLineFragmentRect(glyphIndex: culong; rect: NSRect): CGFloat; message 'lineSpacingAfterGlyphAtIndex:withProposedLineFragmentRect:';
-    function paragraphSpacingBeforeGlyphAtIndex_withProposedLineFragmentRect(glyphIndex: culong; rect: NSRect): CGFloat; message 'paragraphSpacingBeforeGlyphAtIndex:withProposedLineFragmentRect:';
-    function paragraphSpacingAfterGlyphAtIndex_withProposedLineFragmentRect(glyphIndex: culong; rect: NSRect): CGFloat; message 'paragraphSpacingAfterGlyphAtIndex:withProposedLineFragmentRect:';
+    function layoutParagraphAtPoint(lineFragmentOrigin: NSPointPointer): NSUInteger; message 'layoutParagraphAtPoint:';
+    function lineSpacingAfterGlyphAtIndex_withProposedLineFragmentRect(glyphIndex: NSUInteger; rect: NSRect): CGFloat; message 'lineSpacingAfterGlyphAtIndex:withProposedLineFragmentRect:';
+    function paragraphSpacingBeforeGlyphAtIndex_withProposedLineFragmentRect(glyphIndex: NSUInteger; rect: NSRect): CGFloat; message 'paragraphSpacingBeforeGlyphAtIndex:withProposedLineFragmentRect:';
+    function paragraphSpacingAfterGlyphAtIndex_withProposedLineFragmentRect(glyphIndex: NSUInteger; rect: NSRect): CGFloat; message 'paragraphSpacingAfterGlyphAtIndex:withProposedLineFragmentRect:';
     function layoutManager: NSLayoutManager; message 'layoutManager';
     function currentTextContainer: NSTextContainer; message 'currentTextContainer';
     procedure setHardInvalidation_forGlyphRange(flag: Boolean; glyphRange: NSRange); message 'setHardInvalidation:forGlyphRange:';
-    procedure getLineFragmentRect_usedRect_forParagraphSeparatorGlyphRange_atProposedOrigin(var lineFragmentRect: NSRect; var lineFragmentUsedRect: NSRect; paragraphSeparatorGlyphRange_: NSRange; lineOrigin: NSPoint); message 'getLineFragmentRect:usedRect:forParagraphSeparatorGlyphRange:atProposedOrigin:';
+    procedure getLineFragmentRect_usedRect_forParagraphSeparatorGlyphRange_atProposedOrigin(lineFragmentRect: NSRectPointer; lineFragmentUsedRect: NSRectPointer; paragraphSeparatorGlyphRange_: NSRange; lineOrigin: NSPoint); message 'getLineFragmentRect:usedRect:forParagraphSeparatorGlyphRange:atProposedOrigin:';
 
     { Category: NSLayoutPhaseInterface }
-    procedure willSetLineFragmentRect_forGlyphRange_usedRect_baselineOffset(var lineRect: NSRect; glyphRange: NSRange; var usedRect: NSRect; var baselineOffset: CGFloat); message 'willSetLineFragmentRect:forGlyphRange:usedRect:baselineOffset:';
-    function shouldBreakLineByWordBeforeCharacterAtIndex(charIndex: culong): Boolean; message 'shouldBreakLineByWordBeforeCharacterAtIndex:';
-    function shouldBreakLineByHyphenatingBeforeCharacterAtIndex(charIndex: culong): Boolean; message 'shouldBreakLineByHyphenatingBeforeCharacterAtIndex:';
-    function hyphenationFactorForGlyphAtIndex(glyphIndex: culong): single; message 'hyphenationFactorForGlyphAtIndex:';
-    function hyphenCharacterForGlyphAtIndex(glyphIndex: culong): UTF32Char; message 'hyphenCharacterForGlyphAtIndex:';
-    function boundingBoxForControlGlyphAtIndex_forTextContainer_proposedLineFragment_glyphPosition_characterIndex(glyphIndex: culong; textContainer: NSTextContainer; proposedRect: NSRect; glyphPosition: NSPoint; charIndex: culong): NSRect; message 'boundingBoxForControlGlyphAtIndex:forTextContainer:proposedLineFragment:glyphPosition:characterIndex:';
+    procedure willSetLineFragmentRect_forGlyphRange_usedRect_baselineOffset(lineRect: NSRectPointer; glyphRange: NSRange; usedRect: NSRectPointer; baselineOffset: psingle); message 'willSetLineFragmentRect:forGlyphRange:usedRect:baselineOffset:';
+    function shouldBreakLineByWordBeforeCharacterAtIndex(charIndex: NSUInteger): Boolean; message 'shouldBreakLineByWordBeforeCharacterAtIndex:';
+    function shouldBreakLineByHyphenatingBeforeCharacterAtIndex(charIndex: NSUInteger): Boolean; message 'shouldBreakLineByHyphenatingBeforeCharacterAtIndex:';
+    function hyphenationFactorForGlyphAtIndex(glyphIndex: NSUInteger): single; message 'hyphenationFactorForGlyphAtIndex:';
+    function hyphenCharacterForGlyphAtIndex(glyphIndex: NSUInteger): UTF32Char; message 'hyphenCharacterForGlyphAtIndex:';
+    function boundingBoxForControlGlyphAtIndex_forTextContainer_proposedLineFragment_glyphPosition_characterIndex(glyphIndex: NSUInteger; textContainer: NSTextContainer; proposedRect: NSRect; glyphPosition: NSPoint; charIndex: NSUInteger): NSRect; message 'boundingBoxForControlGlyphAtIndex:forTextContainer:proposedLineFragment:glyphPosition:characterIndex:';
 
     { Category: NSGlyphStorageInterface }
     function characterRangeForGlyphRange_actualGlyphRange(glyphRange: NSRange; actualGlyphRange: NSRangePointer): NSRange; message 'characterRangeForGlyphRange:actualGlyphRange:';
     function glyphRangeForCharacterRange_actualCharacterRange(charRange: NSRange; actualCharRange: NSRangePointer): NSRange; message 'glyphRangeForCharacterRange:actualCharacterRange:';
-    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits(glyphsRange: NSRange; var glyphBuffer: NSGlyph; var charIndexBuffer: culong; var inscribeBuffer: NSGlyphInscription; var elasticBuffer: Boolean): culong; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:';
+    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits(glyphsRange: NSRange; glyphBuffer: NSGlyphPointer; charIndexBuffer: NSUIntegerPointer; inscribeBuffer: NSGlyphInscriptionPointer; elasticBuffer: pboolean): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:';
     procedure setLineFragmentRect_forGlyphRange_usedRect_baselineOffset(fragmentRect: NSRect; glyphRange: NSRange; usedRect: NSRect; baselineOffset: CGFloat); message 'setLineFragmentRect:forGlyphRange:usedRect:baselineOffset:';
-    procedure substituteGlyphsInRange_withGlyphs(glyphRange: NSRange; var glyphs: NSGlyph); message 'substituteGlyphsInRange:withGlyphs:';
-    procedure insertGlyph_atGlyphIndex_characterIndex(glyph: NSGlyph; glyphIndex: culong; characterIndex: culong); message 'insertGlyph:atGlyphIndex:characterIndex:';
+    procedure substituteGlyphsInRange_withGlyphs(glyphRange: NSRange; glyphs: NSGlyphPointer); message 'substituteGlyphsInRange:withGlyphs:';
+    procedure insertGlyph_atGlyphIndex_characterIndex(glyph: NSGlyph; glyphIndex: NSUInteger; characterIndex: NSUInteger); message 'insertGlyph:atGlyphIndex:characterIndex:';
     procedure deleteGlyphsInRange(glyphRange: NSRange); message 'deleteGlyphsInRange:';
     procedure setNotShownAttribute_forGlyphRange(flag: Boolean; glyphRange: NSRange); message 'setNotShownAttribute:forGlyphRange:';
     procedure setDrawsOutsideLineFragment_forGlyphRange(flag: Boolean; glyphRange: NSRange); message 'setDrawsOutsideLineFragment:forGlyphRange:';
-    procedure setLocation_withAdvancements_forStartOfGlyphRange(location: NSPoint; var advancements: CGFloat; glyphRange: NSRange); message 'setLocation:withAdvancements:forStartOfGlyphRange:';
+    procedure setLocation_withAdvancements_forStartOfGlyphRange(location: NSPoint; advancements: psingle; glyphRange: NSRange); message 'setLocation:withAdvancements:forStartOfGlyphRange:';
     procedure setAttachmentSize_forGlyphRange(attachmentSize: NSSize; glyphRange: NSRange); message 'setAttachmentSize:forGlyphRange:';
-    procedure setBidiLevels_forGlyphRange(var levels: byte; glyphRange: NSRange); message 'setBidiLevels:forGlyphRange:';
+    procedure setBidiLevels_forGlyphRange(levels: pbyte; glyphRange: NSRange); message 'setBidiLevels:forGlyphRange:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSAccessibility.inc

@@ -1,146 +1,11 @@
 { Parsed from Appkit.framework NSAccessibility.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:46 ICT 2009 }
 
 
 {$ifdef TYPES}
 {$ifndef NSACCESSIBILITY_PAS_T}
 {$define NSACCESSIBILITY_PAS_T}
 
-{ CFString constants }
-var
-  NSAccessibilityErrorCodeExceptionInfo: CFStringRef; external name '_NSAccessibilityErrorCodeExceptionInfo';
-  NSAccessibilityRoleAttribute: CFStringRef; external name '_NSAccessibilityRoleAttribute';
-  NSAccessibilityRoleDescriptionAttribute: CFStringRef; external name '_NSAccessibilityRoleDescriptionAttribute';
-  NSAccessibilitySubroleAttribute: CFStringRef; external name '_NSAccessibilitySubroleAttribute';
-  NSAccessibilityHelpAttribute: CFStringRef; external name '_NSAccessibilityHelpAttribute';
-  NSAccessibilityValueAttribute: CFStringRef; external name '_NSAccessibilityValueAttribute';
-  NSAccessibilityMinValueAttribute: CFStringRef; external name '_NSAccessibilityMinValueAttribute';
-  NSAccessibilityMaxValueAttribute: CFStringRef; external name '_NSAccessibilityMaxValueAttribute';
-  NSAccessibilityEnabledAttribute: CFStringRef; external name '_NSAccessibilityEnabledAttribute';
-  NSAccessibilityFocusedAttribute: CFStringRef; external name '_NSAccessibilityFocusedAttribute';
-  NSAccessibilityParentAttribute: CFStringRef; external name '_NSAccessibilityParentAttribute';
-  NSAccessibilityChildrenAttribute: CFStringRef; external name '_NSAccessibilityChildrenAttribute';
-  NSAccessibilityWindowAttribute: CFStringRef; external name '_NSAccessibilityWindowAttribute';
-  NSAccessibilitySelectedChildrenAttribute: CFStringRef; external name '_NSAccessibilitySelectedChildrenAttribute';
-  NSAccessibilityVisibleChildrenAttribute: CFStringRef; external name '_NSAccessibilityVisibleChildrenAttribute';
-  NSAccessibilityPositionAttribute: CFStringRef; external name '_NSAccessibilityPositionAttribute';
-  NSAccessibilitySizeAttribute: CFStringRef; external name '_NSAccessibilitySizeAttribute';
-  NSAccessibilityContentsAttribute: CFStringRef; external name '_NSAccessibilityContentsAttribute';
-  NSAccessibilityTitleAttribute: CFStringRef; external name '_NSAccessibilityTitleAttribute';
-  NSAccessibilityPreviousContentsAttribute: CFStringRef; external name '_NSAccessibilityPreviousContentsAttribute';
-  NSAccessibilityNextContentsAttribute: CFStringRef; external name '_NSAccessibilityNextContentsAttribute';
-  NSAccessibilityHeaderAttribute: CFStringRef; external name '_NSAccessibilityHeaderAttribute';
-  NSAccessibilityEditedAttribute: CFStringRef; external name '_NSAccessibilityEditedAttribute';
-  NSAccessibilityTabsAttribute: CFStringRef; external name '_NSAccessibilityTabsAttribute';
-  NSAccessibilityHorizontalScrollBarAttribute: CFStringRef; external name '_NSAccessibilityHorizontalScrollBarAttribute';
-  NSAccessibilityVerticalScrollBarAttribute: CFStringRef; external name '_NSAccessibilityVerticalScrollBarAttribute';
-  NSAccessibilityOverflowButtonAttribute: CFStringRef; external name '_NSAccessibilityOverflowButtonAttribute';
-  NSAccessibilityIncrementButtonAttribute: CFStringRef; external name '_NSAccessibilityIncrementButtonAttribute';
-  NSAccessibilityDecrementButtonAttribute: CFStringRef; external name '_NSAccessibilityDecrementButtonAttribute';
-  NSAccessibilityFilenameAttribute: CFStringRef; external name '_NSAccessibilityFilenameAttribute';
-  NSAccessibilityExpandedAttribute: CFStringRef; external name '_NSAccessibilityExpandedAttribute';
-  NSAccessibilitySelectedAttribute: CFStringRef; external name '_NSAccessibilitySelectedAttribute';
-  NSAccessibilitySplittersAttribute: CFStringRef; external name '_NSAccessibilitySplittersAttribute';
-  NSAccessibilityDocumentAttribute: CFStringRef; external name '_NSAccessibilityDocumentAttribute';
-  NSAccessibilityTitleUIElementAttribute: CFStringRef; external name '_NSAccessibilityTitleUIElementAttribute';
-  NSAccessibilitySelectedTextAttribute: CFStringRef; external name '_NSAccessibilitySelectedTextAttribute';
-  NSAccessibilitySelectedTextRangeAttribute: CFStringRef; external name '_NSAccessibilitySelectedTextRangeAttribute';
-  NSAccessibilityMainAttribute: CFStringRef; external name '_NSAccessibilityMainAttribute';
-  NSAccessibilityMinimizedAttribute: CFStringRef; external name '_NSAccessibilityMinimizedAttribute';
-  NSAccessibilityCloseButtonAttribute: CFStringRef; external name '_NSAccessibilityCloseButtonAttribute';
-  NSAccessibilityZoomButtonAttribute: CFStringRef; external name '_NSAccessibilityZoomButtonAttribute';
-  NSAccessibilityMinimizeButtonAttribute: CFStringRef; external name '_NSAccessibilityMinimizeButtonAttribute';
-  NSAccessibilityToolbarButtonAttribute: CFStringRef; external name '_NSAccessibilityToolbarButtonAttribute';
-  NSAccessibilityProxyAttribute: CFStringRef; external name '_NSAccessibilityProxyAttribute';
-  NSAccessibilityGrowAreaAttribute: CFStringRef; external name '_NSAccessibilityGrowAreaAttribute';
-  NSAccessibilityMenuBarAttribute: CFStringRef; external name '_NSAccessibilityMenuBarAttribute';
-  NSAccessibilityWindowsAttribute: CFStringRef; external name '_NSAccessibilityWindowsAttribute';
-  NSAccessibilityFrontmostAttribute: CFStringRef; external name '_NSAccessibilityFrontmostAttribute';
-  NSAccessibilityHiddenAttribute: CFStringRef; external name '_NSAccessibilityHiddenAttribute';
-  NSAccessibilityMainWindowAttribute: CFStringRef; external name '_NSAccessibilityMainWindowAttribute';
-  NSAccessibilityFocusedWindowAttribute: CFStringRef; external name '_NSAccessibilityFocusedWindowAttribute';
-  NSAccessibilityFocusedUIElementAttribute: CFStringRef; external name '_NSAccessibilityFocusedUIElementAttribute';
-  NSAccessibilityOrientationAttribute: CFStringRef; external name '_NSAccessibilityOrientationAttribute';
-  NSAccessibilityVerticalOrientationValue: CFStringRef; external name '_NSAccessibilityVerticalOrientationValue';
-  NSAccessibilityHorizontalOrientationValue: CFStringRef; external name '_NSAccessibilityHorizontalOrientationValue';
-  NSAccessibilityColumnTitlesAttribute: CFStringRef; external name '_NSAccessibilityColumnTitlesAttribute';
-  NSAccessibilityRowsAttribute: CFStringRef; external name '_NSAccessibilityRowsAttribute';
-  NSAccessibilityVisibleRowsAttribute: CFStringRef; external name '_NSAccessibilityVisibleRowsAttribute';
-  NSAccessibilitySelectedRowsAttribute: CFStringRef; external name '_NSAccessibilitySelectedRowsAttribute';
-  NSAccessibilityColumnsAttribute: CFStringRef; external name '_NSAccessibilityColumnsAttribute';
-  NSAccessibilityVisibleColumnsAttribute: CFStringRef; external name '_NSAccessibilityVisibleColumnsAttribute';
-  NSAccessibilitySelectedColumnsAttribute: CFStringRef; external name '_NSAccessibilitySelectedColumnsAttribute';
-  NSAccessibilityDisclosingAttribute: CFStringRef; external name '_NSAccessibilityDisclosingAttribute';
-  NSAccessibilityDisclosedRowsAttribute: CFStringRef; external name '_NSAccessibilityDisclosedRowsAttribute';
-  NSAccessibilityDisclosedByRowAttribute: CFStringRef; external name '_NSAccessibilityDisclosedByRowAttribute';
-  NSAccessibilityPressAction: CFStringRef; external name '_NSAccessibilityPressAction';
-  NSAccessibilityIncrementAction: CFStringRef; external name '_NSAccessibilityIncrementAction';
-  NSAccessibilityDecrementAction: CFStringRef; external name '_NSAccessibilityDecrementAction';
-  NSAccessibilityConfirmAction: CFStringRef; external name '_NSAccessibilityConfirmAction';
-  NSAccessibilityPickAction: CFStringRef; external name '_NSAccessibilityPickAction';
-  NSAccessibilityMainWindowChangedNotification: CFStringRef; external name '_NSAccessibilityMainWindowChangedNotification';
-  NSAccessibilityFocusedWindowChangedNotification: CFStringRef; external name '_NSAccessibilityFocusedWindowChangedNotification';
-  NSAccessibilityFocusedUIElementChangedNotification: CFStringRef; external name '_NSAccessibilityFocusedUIElementChangedNotification';
-  NSAccessibilityApplicationActivatedNotification: CFStringRef; external name '_NSAccessibilityApplicationActivatedNotification';
-  NSAccessibilityApplicationDeactivatedNotification: CFStringRef; external name '_NSAccessibilityApplicationDeactivatedNotification';
-  NSAccessibilityApplicationHiddenNotification: CFStringRef; external name '_NSAccessibilityApplicationHiddenNotification';
-  NSAccessibilityApplicationShownNotification: CFStringRef; external name '_NSAccessibilityApplicationShownNotification';
-  NSAccessibilityWindowCreatedNotification: CFStringRef; external name '_NSAccessibilityWindowCreatedNotification';
-  NSAccessibilityWindowMovedNotification: CFStringRef; external name '_NSAccessibilityWindowMovedNotification';
-  NSAccessibilityWindowResizedNotification: CFStringRef; external name '_NSAccessibilityWindowResizedNotification';
-  NSAccessibilityWindowMiniaturizedNotification: CFStringRef; external name '_NSAccessibilityWindowMiniaturizedNotification';
-  NSAccessibilityWindowDeminiaturizedNotification: CFStringRef; external name '_NSAccessibilityWindowDeminiaturizedNotification';
-  NSAccessibilityUIElementDestroyedNotification: CFStringRef; external name '_NSAccessibilityUIElementDestroyedNotification';
-  NSAccessibilityValueChangedNotification: CFStringRef; external name '_NSAccessibilityValueChangedNotification';
-  NSAccessibilityUnknownRole: CFStringRef; external name '_NSAccessibilityUnknownRole';
-  NSAccessibilityButtonRole: CFStringRef; external name '_NSAccessibilityButtonRole';
-  NSAccessibilityRadioButtonRole: CFStringRef; external name '_NSAccessibilityRadioButtonRole';
-  NSAccessibilityCheckBoxRole: CFStringRef; external name '_NSAccessibilityCheckBoxRole';
-  NSAccessibilitySliderRole: CFStringRef; external name '_NSAccessibilitySliderRole';
-  NSAccessibilityTabGroupRole: CFStringRef; external name '_NSAccessibilityTabGroupRole';
-  NSAccessibilityTextFieldRole: CFStringRef; external name '_NSAccessibilityTextFieldRole';
-  NSAccessibilityStaticTextRole: CFStringRef; external name '_NSAccessibilityStaticTextRole';
-  NSAccessibilityTextAreaRole: CFStringRef; external name '_NSAccessibilityTextAreaRole';
-  NSAccessibilityScrollAreaRole: CFStringRef; external name '_NSAccessibilityScrollAreaRole';
-  NSAccessibilityPopUpButtonRole: CFStringRef; external name '_NSAccessibilityPopUpButtonRole';
-  NSAccessibilityMenuButtonRole: CFStringRef; external name '_NSAccessibilityMenuButtonRole';
-  NSAccessibilityTableRole: CFStringRef; external name '_NSAccessibilityTableRole';
-  NSAccessibilityApplicationRole: CFStringRef; external name '_NSAccessibilityApplicationRole';
-  NSAccessibilityGroupRole: CFStringRef; external name '_NSAccessibilityGroupRole';
-  NSAccessibilityRadioGroupRole: CFStringRef; external name '_NSAccessibilityRadioGroupRole';
-  NSAccessibilityListRole: CFStringRef; external name '_NSAccessibilityListRole';
-  NSAccessibilityScrollBarRole: CFStringRef; external name '_NSAccessibilityScrollBarRole';
-  NSAccessibilityValueIndicatorRole: CFStringRef; external name '_NSAccessibilityValueIndicatorRole';
-  NSAccessibilityImageRole: CFStringRef; external name '_NSAccessibilityImageRole';
-  NSAccessibilityMenuBarRole: CFStringRef; external name '_NSAccessibilityMenuBarRole';
-  NSAccessibilityMenuRole: CFStringRef; external name '_NSAccessibilityMenuRole';
-  NSAccessibilityMenuItemRole: CFStringRef; external name '_NSAccessibilityMenuItemRole';
-  NSAccessibilityColumnRole: CFStringRef; external name '_NSAccessibilityColumnRole';
-  NSAccessibilityRowRole: CFStringRef; external name '_NSAccessibilityRowRole';
-  NSAccessibilityToolbarRole: CFStringRef; external name '_NSAccessibilityToolbarRole';
-  NSAccessibilityBusyIndicatorRole: CFStringRef; external name '_NSAccessibilityBusyIndicatorRole';
-  NSAccessibilityProgressIndicatorRole: CFStringRef; external name '_NSAccessibilityProgressIndicatorRole';
-  NSAccessibilityWindowRole: CFStringRef; external name '_NSAccessibilityWindowRole';
-  NSAccessibilityDrawerRole: CFStringRef; external name '_NSAccessibilityDrawerRole';
-  NSAccessibilitySystemWideRole: CFStringRef; external name '_NSAccessibilitySystemWideRole';
-  NSAccessibilityOutlineRole: CFStringRef; external name '_NSAccessibilityOutlineRole';
-  NSAccessibilityIncrementorRole: CFStringRef; external name '_NSAccessibilityIncrementorRole';
-  NSAccessibilityBrowserRole: CFStringRef; external name '_NSAccessibilityBrowserRole';
-  NSAccessibilityComboBoxRole: CFStringRef; external name '_NSAccessibilityComboBoxRole';
-  NSAccessibilitySplitGroupRole: CFStringRef; external name '_NSAccessibilitySplitGroupRole';
-  NSAccessibilitySplitterRole: CFStringRef; external name '_NSAccessibilitySplitterRole';
-  NSAccessibilityColorWellRole: CFStringRef; external name '_NSAccessibilityColorWellRole';
-  NSAccessibilityGrowAreaRole: CFStringRef; external name '_NSAccessibilityGrowAreaRole';
-  NSAccessibilitySheetRole: CFStringRef; external name '_NSAccessibilitySheetRole';
-  NSAccessibilityUnknownSubrole: CFStringRef; external name '_NSAccessibilityUnknownSubrole';
-  NSAccessibilityCloseButtonSubrole: CFStringRef; external name '_NSAccessibilityCloseButtonSubrole';
-  NSAccessibilityZoomButtonSubrole: CFStringRef; external name '_NSAccessibilityZoomButtonSubrole';
-  NSAccessibilityMinimizeButtonSubrole: CFStringRef; external name '_NSAccessibilityMinimizeButtonSubrole';
-  NSAccessibilityToolbarButtonSubrole: CFStringRef; external name '_NSAccessibilityToolbarButtonSubrole';
-  NSAccessibilityTableRowSubrole: CFStringRef; external name '_NSAccessibilityTableRowSubrole';
-  NSAccessibilityOutlineRowSubrole: CFStringRef; external name '_NSAccessibilityOutlineRowSubrole';
-  NSAccessibilitySecureTextFieldSubrole: CFStringRef; external name '_NSAccessibilitySecureTextFieldSubrole';
-
 {$endif}
 {$endif}
 
@@ -156,15 +21,15 @@ var
 {$define NSACCESSIBILITY_PAS_F}
 
 { Functions }
-function NSAccessibilityRoleDescription(var role: NSString; var subrole: NSString): NSString; cdecl; external name 'NSAccessibilityRoleDescription';
+function NSAccessibilityRoleDescription(rolePointer: NSString; subrolePointer: NSString): NSString; cdecl; external name 'NSAccessibilityRoleDescription';
 function NSAccessibilityRoleDescriptionForUIElement(element: id): NSString; cdecl; external name 'NSAccessibilityRoleDescriptionForUIElement';
-function NSAccessibilityActionDescription(var action: NSString): NSString; cdecl; external name 'NSAccessibilityActionDescription';
-procedure NSAccessibilityRaiseBadArgumentException(element: id; var attribute: NSString; value: id); cdecl; external name 'NSAccessibilityRaiseBadArgumentException';
+function NSAccessibilityActionDescription(actionPointer: NSString): NSString; cdecl; external name 'NSAccessibilityActionDescription';
+procedure NSAccessibilityRaiseBadArgumentException(element: id; attributePointer: NSString; value: id); cdecl; external name 'NSAccessibilityRaiseBadArgumentException';
 function NSAccessibilityUnignoredAncestor(element: id): id; cdecl; external name 'NSAccessibilityUnignoredAncestor';
 function NSAccessibilityUnignoredDescendant(element: id): id; cdecl; external name 'NSAccessibilityUnignoredDescendant';
-function NSAccessibilityUnignoredChildren(var originalChildren: NSArray): NSArray; cdecl; external name 'NSAccessibilityUnignoredChildren';
+function NSAccessibilityUnignoredChildren(originalChildrenPointer: NSArray): NSArray; cdecl; external name 'NSAccessibilityUnignoredChildren';
 function NSAccessibilityUnignoredChildrenForOnlyChild(originalChild: id): NSArray; cdecl; external name 'NSAccessibilityUnignoredChildrenForOnlyChild';
-procedure NSAccessibilityPostNotification(element: id; var notification: NSString); cdecl; external name 'NSAccessibilityPostNotification';
+procedure NSAccessibilityPostNotification(element: id; notificationPointer: NSString); cdecl; external name 'NSAccessibilityPostNotification';
 
 {$endif}
 {$endif}
@@ -173,5 +38,140 @@ procedure NSAccessibilityPostNotification(element: id; var notification: NSStrin
 {$ifndef NSACCESSIBILITY_PAS_T}
 {$define NSACCESSIBILITY_PAS_T}
 
+{ External string constants }
+var
+  NSAccessibilityErrorCodeExceptionInfo: NSString; external name '_NSAccessibilityErrorCodeExceptionInfo';
+  NSAccessibilityRoleAttribute: NSString; external name '_NSAccessibilityRoleAttribute';
+  NSAccessibilityRoleDescriptionAttribute: NSString; external name '_NSAccessibilityRoleDescriptionAttribute';
+  NSAccessibilitySubroleAttribute: NSString; external name '_NSAccessibilitySubroleAttribute';
+  NSAccessibilityHelpAttribute: NSString; external name '_NSAccessibilityHelpAttribute';
+  NSAccessibilityValueAttribute: NSString; external name '_NSAccessibilityValueAttribute';
+  NSAccessibilityMinValueAttribute: NSString; external name '_NSAccessibilityMinValueAttribute';
+  NSAccessibilityMaxValueAttribute: NSString; external name '_NSAccessibilityMaxValueAttribute';
+  NSAccessibilityEnabledAttribute: NSString; external name '_NSAccessibilityEnabledAttribute';
+  NSAccessibilityFocusedAttribute: NSString; external name '_NSAccessibilityFocusedAttribute';
+  NSAccessibilityParentAttribute: NSString; external name '_NSAccessibilityParentAttribute';
+  NSAccessibilityChildrenAttribute: NSString; external name '_NSAccessibilityChildrenAttribute';
+  NSAccessibilityWindowAttribute: NSString; external name '_NSAccessibilityWindowAttribute';
+  NSAccessibilitySelectedChildrenAttribute: NSString; external name '_NSAccessibilitySelectedChildrenAttribute';
+  NSAccessibilityVisibleChildrenAttribute: NSString; external name '_NSAccessibilityVisibleChildrenAttribute';
+  NSAccessibilityPositionAttribute: NSString; external name '_NSAccessibilityPositionAttribute';
+  NSAccessibilitySizeAttribute: NSString; external name '_NSAccessibilitySizeAttribute';
+  NSAccessibilityContentsAttribute: NSString; external name '_NSAccessibilityContentsAttribute';
+  NSAccessibilityTitleAttribute: NSString; external name '_NSAccessibilityTitleAttribute';
+  NSAccessibilityPreviousContentsAttribute: NSString; external name '_NSAccessibilityPreviousContentsAttribute';
+  NSAccessibilityNextContentsAttribute: NSString; external name '_NSAccessibilityNextContentsAttribute';
+  NSAccessibilityHeaderAttribute: NSString; external name '_NSAccessibilityHeaderAttribute';
+  NSAccessibilityEditedAttribute: NSString; external name '_NSAccessibilityEditedAttribute';
+  NSAccessibilityTabsAttribute: NSString; external name '_NSAccessibilityTabsAttribute';
+  NSAccessibilityHorizontalScrollBarAttribute: NSString; external name '_NSAccessibilityHorizontalScrollBarAttribute';
+  NSAccessibilityVerticalScrollBarAttribute: NSString; external name '_NSAccessibilityVerticalScrollBarAttribute';
+  NSAccessibilityOverflowButtonAttribute: NSString; external name '_NSAccessibilityOverflowButtonAttribute';
+  NSAccessibilityIncrementButtonAttribute: NSString; external name '_NSAccessibilityIncrementButtonAttribute';
+  NSAccessibilityDecrementButtonAttribute: NSString; external name '_NSAccessibilityDecrementButtonAttribute';
+  NSAccessibilityFilenameAttribute: NSString; external name '_NSAccessibilityFilenameAttribute';
+  NSAccessibilityExpandedAttribute: NSString; external name '_NSAccessibilityExpandedAttribute';
+  NSAccessibilitySelectedAttribute: NSString; external name '_NSAccessibilitySelectedAttribute';
+  NSAccessibilitySplittersAttribute: NSString; external name '_NSAccessibilitySplittersAttribute';
+  NSAccessibilityDocumentAttribute: NSString; external name '_NSAccessibilityDocumentAttribute';
+  NSAccessibilityTitleUIElementAttribute: NSString; external name '_NSAccessibilityTitleUIElementAttribute';
+  NSAccessibilitySelectedTextAttribute: NSString; external name '_NSAccessibilitySelectedTextAttribute';
+  NSAccessibilitySelectedTextRangeAttribute: NSString; external name '_NSAccessibilitySelectedTextRangeAttribute';
+  NSAccessibilityMainAttribute: NSString; external name '_NSAccessibilityMainAttribute';
+  NSAccessibilityMinimizedAttribute: NSString; external name '_NSAccessibilityMinimizedAttribute';
+  NSAccessibilityCloseButtonAttribute: NSString; external name '_NSAccessibilityCloseButtonAttribute';
+  NSAccessibilityZoomButtonAttribute: NSString; external name '_NSAccessibilityZoomButtonAttribute';
+  NSAccessibilityMinimizeButtonAttribute: NSString; external name '_NSAccessibilityMinimizeButtonAttribute';
+  NSAccessibilityToolbarButtonAttribute: NSString; external name '_NSAccessibilityToolbarButtonAttribute';
+  NSAccessibilityProxyAttribute: NSString; external name '_NSAccessibilityProxyAttribute';
+  NSAccessibilityGrowAreaAttribute: NSString; external name '_NSAccessibilityGrowAreaAttribute';
+  NSAccessibilityMenuBarAttribute: NSString; external name '_NSAccessibilityMenuBarAttribute';
+  NSAccessibilityWindowsAttribute: NSString; external name '_NSAccessibilityWindowsAttribute';
+  NSAccessibilityFrontmostAttribute: NSString; external name '_NSAccessibilityFrontmostAttribute';
+  NSAccessibilityHiddenAttribute: NSString; external name '_NSAccessibilityHiddenAttribute';
+  NSAccessibilityMainWindowAttribute: NSString; external name '_NSAccessibilityMainWindowAttribute';
+  NSAccessibilityFocusedWindowAttribute: NSString; external name '_NSAccessibilityFocusedWindowAttribute';
+  NSAccessibilityFocusedUIElementAttribute: NSString; external name '_NSAccessibilityFocusedUIElementAttribute';
+  NSAccessibilityOrientationAttribute: NSString; external name '_NSAccessibilityOrientationAttribute';
+  NSAccessibilityVerticalOrientationValue: NSString; external name '_NSAccessibilityVerticalOrientationValue';
+  NSAccessibilityHorizontalOrientationValue: NSString; external name '_NSAccessibilityHorizontalOrientationValue';
+  NSAccessibilityColumnTitlesAttribute: NSString; external name '_NSAccessibilityColumnTitlesAttribute';
+  NSAccessibilityRowsAttribute: NSString; external name '_NSAccessibilityRowsAttribute';
+  NSAccessibilityVisibleRowsAttribute: NSString; external name '_NSAccessibilityVisibleRowsAttribute';
+  NSAccessibilitySelectedRowsAttribute: NSString; external name '_NSAccessibilitySelectedRowsAttribute';
+  NSAccessibilityColumnsAttribute: NSString; external name '_NSAccessibilityColumnsAttribute';
+  NSAccessibilityVisibleColumnsAttribute: NSString; external name '_NSAccessibilityVisibleColumnsAttribute';
+  NSAccessibilitySelectedColumnsAttribute: NSString; external name '_NSAccessibilitySelectedColumnsAttribute';
+  NSAccessibilityDisclosingAttribute: NSString; external name '_NSAccessibilityDisclosingAttribute';
+  NSAccessibilityDisclosedRowsAttribute: NSString; external name '_NSAccessibilityDisclosedRowsAttribute';
+  NSAccessibilityDisclosedByRowAttribute: NSString; external name '_NSAccessibilityDisclosedByRowAttribute';
+  NSAccessibilityPressAction: NSString; external name '_NSAccessibilityPressAction';
+  NSAccessibilityIncrementAction: NSString; external name '_NSAccessibilityIncrementAction';
+  NSAccessibilityDecrementAction: NSString; external name '_NSAccessibilityDecrementAction';
+  NSAccessibilityConfirmAction: NSString; external name '_NSAccessibilityConfirmAction';
+  NSAccessibilityPickAction: NSString; external name '_NSAccessibilityPickAction';
+  NSAccessibilityMainWindowChangedNotification: NSString; external name '_NSAccessibilityMainWindowChangedNotification';
+  NSAccessibilityFocusedWindowChangedNotification: NSString; external name '_NSAccessibilityFocusedWindowChangedNotification';
+  NSAccessibilityFocusedUIElementChangedNotification: NSString; external name '_NSAccessibilityFocusedUIElementChangedNotification';
+  NSAccessibilityApplicationActivatedNotification: NSString; external name '_NSAccessibilityApplicationActivatedNotification';
+  NSAccessibilityApplicationDeactivatedNotification: NSString; external name '_NSAccessibilityApplicationDeactivatedNotification';
+  NSAccessibilityApplicationHiddenNotification: NSString; external name '_NSAccessibilityApplicationHiddenNotification';
+  NSAccessibilityApplicationShownNotification: NSString; external name '_NSAccessibilityApplicationShownNotification';
+  NSAccessibilityWindowCreatedNotification: NSString; external name '_NSAccessibilityWindowCreatedNotification';
+  NSAccessibilityWindowMovedNotification: NSString; external name '_NSAccessibilityWindowMovedNotification';
+  NSAccessibilityWindowResizedNotification: NSString; external name '_NSAccessibilityWindowResizedNotification';
+  NSAccessibilityWindowMiniaturizedNotification: NSString; external name '_NSAccessibilityWindowMiniaturizedNotification';
+  NSAccessibilityWindowDeminiaturizedNotification: NSString; external name '_NSAccessibilityWindowDeminiaturizedNotification';
+  NSAccessibilityUIElementDestroyedNotification: NSString; external name '_NSAccessibilityUIElementDestroyedNotification';
+  NSAccessibilityValueChangedNotification: NSString; external name '_NSAccessibilityValueChangedNotification';
+  NSAccessibilityUnknownRole: NSString; external name '_NSAccessibilityUnknownRole';
+  NSAccessibilityButtonRole: NSString; external name '_NSAccessibilityButtonRole';
+  NSAccessibilityRadioButtonRole: NSString; external name '_NSAccessibilityRadioButtonRole';
+  NSAccessibilityCheckBoxRole: NSString; external name '_NSAccessibilityCheckBoxRole';
+  NSAccessibilitySliderRole: NSString; external name '_NSAccessibilitySliderRole';
+  NSAccessibilityTabGroupRole: NSString; external name '_NSAccessibilityTabGroupRole';
+  NSAccessibilityTextFieldRole: NSString; external name '_NSAccessibilityTextFieldRole';
+  NSAccessibilityStaticTextRole: NSString; external name '_NSAccessibilityStaticTextRole';
+  NSAccessibilityTextAreaRole: NSString; external name '_NSAccessibilityTextAreaRole';
+  NSAccessibilityScrollAreaRole: NSString; external name '_NSAccessibilityScrollAreaRole';
+  NSAccessibilityPopUpButtonRole: NSString; external name '_NSAccessibilityPopUpButtonRole';
+  NSAccessibilityMenuButtonRole: NSString; external name '_NSAccessibilityMenuButtonRole';
+  NSAccessibilityTableRole: NSString; external name '_NSAccessibilityTableRole';
+  NSAccessibilityApplicationRole: NSString; external name '_NSAccessibilityApplicationRole';
+  NSAccessibilityGroupRole: NSString; external name '_NSAccessibilityGroupRole';
+  NSAccessibilityRadioGroupRole: NSString; external name '_NSAccessibilityRadioGroupRole';
+  NSAccessibilityListRole: NSString; external name '_NSAccessibilityListRole';
+  NSAccessibilityScrollBarRole: NSString; external name '_NSAccessibilityScrollBarRole';
+  NSAccessibilityValueIndicatorRole: NSString; external name '_NSAccessibilityValueIndicatorRole';
+  NSAccessibilityImageRole: NSString; external name '_NSAccessibilityImageRole';
+  NSAccessibilityMenuBarRole: NSString; external name '_NSAccessibilityMenuBarRole';
+  NSAccessibilityMenuRole: NSString; external name '_NSAccessibilityMenuRole';
+  NSAccessibilityMenuItemRole: NSString; external name '_NSAccessibilityMenuItemRole';
+  NSAccessibilityColumnRole: NSString; external name '_NSAccessibilityColumnRole';
+  NSAccessibilityRowRole: NSString; external name '_NSAccessibilityRowRole';
+  NSAccessibilityToolbarRole: NSString; external name '_NSAccessibilityToolbarRole';
+  NSAccessibilityBusyIndicatorRole: NSString; external name '_NSAccessibilityBusyIndicatorRole';
+  NSAccessibilityProgressIndicatorRole: NSString; external name '_NSAccessibilityProgressIndicatorRole';
+  NSAccessibilityWindowRole: NSString; external name '_NSAccessibilityWindowRole';
+  NSAccessibilityDrawerRole: NSString; external name '_NSAccessibilityDrawerRole';
+  NSAccessibilitySystemWideRole: NSString; external name '_NSAccessibilitySystemWideRole';
+  NSAccessibilityOutlineRole: NSString; external name '_NSAccessibilityOutlineRole';
+  NSAccessibilityIncrementorRole: NSString; external name '_NSAccessibilityIncrementorRole';
+  NSAccessibilityBrowserRole: NSString; external name '_NSAccessibilityBrowserRole';
+  NSAccessibilityComboBoxRole: NSString; external name '_NSAccessibilityComboBoxRole';
+  NSAccessibilitySplitGroupRole: NSString; external name '_NSAccessibilitySplitGroupRole';
+  NSAccessibilitySplitterRole: NSString; external name '_NSAccessibilitySplitterRole';
+  NSAccessibilityColorWellRole: NSString; external name '_NSAccessibilityColorWellRole';
+  NSAccessibilityGrowAreaRole: NSString; external name '_NSAccessibilityGrowAreaRole';
+  NSAccessibilitySheetRole: NSString; external name '_NSAccessibilitySheetRole';
+  NSAccessibilityUnknownSubrole: NSString; external name '_NSAccessibilityUnknownSubrole';
+  NSAccessibilityCloseButtonSubrole: NSString; external name '_NSAccessibilityCloseButtonSubrole';
+  NSAccessibilityZoomButtonSubrole: NSString; external name '_NSAccessibilityZoomButtonSubrole';
+  NSAccessibilityMinimizeButtonSubrole: NSString; external name '_NSAccessibilityMinimizeButtonSubrole';
+  NSAccessibilityToolbarButtonSubrole: NSString; external name '_NSAccessibilityToolbarButtonSubrole';
+  NSAccessibilityTableRowSubrole: NSString; external name '_NSAccessibilityTableRowSubrole';
+  NSAccessibilityOutlineRowSubrole: NSString; external name '_NSAccessibilityOutlineRowSubrole';
+  NSAccessibilitySecureTextFieldSubrole: NSString; external name '_NSAccessibilitySecureTextFieldSubrole';
+
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSActionCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSActionCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSACTIONCELL_PAS_H}
@@ -50,7 +50,7 @@ type
 { NSActionCell }
   NSActionCell = objcclass(NSCell)
   private
-    __tag: clong;
+    __tag: NSInteger;
     __target: id;
     __action: SEL;
     __controlView: id;
@@ -65,20 +65,20 @@ type
     procedure setBordered(flag: Boolean); message 'setBordered:';
     procedure setBezeled(flag: Boolean); message 'setBezeled:';
     procedure setEnabled(flag: Boolean); message 'setEnabled:';
-    procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: culong; rightDigits: culong); message 'setFloatingPointFormat:left:right:';
+    procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: NSUInteger; rightDigits: NSUInteger); message 'setFloatingPointFormat:left:right:';
     procedure setImage(image_: NSImage); message 'setImage:';
     function target: id; message 'target';
     procedure setTarget(anObject: id); message 'setTarget:';
     function action: SEL; message 'action';
     procedure setAction(aSelector: SEL); message 'setAction:';
-    function tag: clong; message 'tag';
-    procedure setTag(anInt: clong); message 'setTag:';
+    function tag: NSInteger; message 'tag';
+    procedure setTag(anInt: NSInteger); message 'setTag:';
     function stringValue: NSString; message 'stringValue';
     function intValue: cint; message 'intValue';
     function floatValue: single; message 'floatValue';
     function doubleValue: double; message 'doubleValue';
     procedure setObjectValue(obj: id); message 'setObjectValue:';
-    function integerValue: clong; message 'integerValue';
+    function integerValue: NSInteger; message 'integerValue';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSAffineTransform.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSAffineTransform.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:30:59 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:45 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSAFFINETRANSFORM_PAS_H}

packages/cocoaint/src/appkit/NSAlert.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSAlert.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:46 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSALERT_PAS_H}
@@ -28,7 +28,7 @@ const
 
 { Types }
 type
-  NSAlertStyle = culong;
+  NSAlertStyle = NSUInteger;
 
 {$endif}
 {$endif}
@@ -101,7 +101,7 @@ type
     class function alloc: NSAlert; message 'alloc';
 
     class function alertWithError(error: NSError): NSAlert; message 'alertWithError:';
-    class function alertWithMessageText_defaultButton_alternateButton_otherButton_informativeTextWithFormat(message: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; format: NSString): NSAlert; message 'alertWithMessageText:defaultButton:alternateButton:otherButton:informativeTextWithFormat:';
+    class function alertWithMessageText_defaultButton_alternateButton_otherButton_informativeTextWithFormat(message: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; format: NSString): NSAlert; varargs; message 'alertWithMessageText:defaultButton:alternateButton:otherButton:informativeTextWithFormat:';
     procedure setMessageText(messageText_: NSString); message 'setMessageText:';
     procedure setInformativeText(informativeText_: NSString); message 'setInformativeText:';
     function messageText: NSString; message 'messageText';
@@ -124,7 +124,7 @@ type
     procedure setAccessoryView(view: NSView); message 'setAccessoryView:';
     function accessoryView: NSView; message 'accessoryView';
     procedure layout; message 'layout';
-    function runModal: clong; message 'runModal';
+    function runModal: NSInteger; message 'runModal';
     procedure beginSheetModalForWindow_modalDelegate_didEndSelector_contextInfo(window_: NSWindow; delegate_: id; didEndSelector: SEL; contextInfo: Pointer); message 'beginSheetModalForWindow:modalDelegate:didEndSelector:contextInfo:';
     function window: id; message 'window';
   end; external;

packages/cocoaint/src/appkit/NSAnimation.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSAnimation.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSANIMATION_PAS_H}
@@ -29,8 +29,8 @@ const
 
 { Types }
 type
-  NSAnimationCurve = culong;
-  NSAnimationBlockingMode = culong;
+  NSAnimationCurve = NSUInteger;
+  NSAnimationBlockingMode = NSUInteger;
   NSAnimationProgress = single;
 
 {$endif}
@@ -96,10 +96,10 @@ type
         animationBlockingMode: 0..((1 shl 2)-1);
         reserved: 0..((1 shl 22)-1);
       end;
-    __reserved1: clong;
-    __reserved2: clong;
-    __reserved3: clong;
-    __reserved4: clong;
+    __reserved1: NSInteger;
+    __reserved2: NSInteger;
+    __reserved3: NSInteger;
+    __reserved4: NSInteger;
     
   public
     class function alloc: NSAnimation; message 'alloc';
@@ -138,16 +138,16 @@ type
     __viewAnimations: NSArray;
     __viewAnimationInfo: CFMutableDictionaryRef;
     __windowAnimationInfo: CFMutableDictionaryRef;
-    __reserved4a: culong;
-    __reserved4b: culong;
-    __reserved4c: culong;
+    __reserved4a: NSUInteger;
+    __reserved4b: NSUInteger;
+    __reserved4c: NSUInteger;
     __vaFlags: bitpacked record
         reserved: 0..((1 shl 32)-1);
       end;
-    __reserved5: culong;
-    __reserved6: culong;
-    __reserved7: culong;
-    __reserved8: culong;
+    __reserved5: NSUInteger;
+    __reserved6: NSUInteger;
+    __reserved7: NSUInteger;
+    __reserved8: NSUInteger;
     
   public
     class function alloc: NSViewAnimation; message 'alloc';

packages/cocoaint/src/appkit/NSAnimationContext.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSAnimationContext.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:46 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSANIMATIONCONTEXT_PAS_H}
@@ -51,7 +51,7 @@ type
   NSAnimationContext = objcclass(NSObject)
   private
     __duration: NSTimeInterval;
-    __reserved: id;
+        _reserved: array[0..4] of id;
     
   public
     class function alloc: NSAnimationContext; message 'alloc';

packages/cocoaint/src/appkit/NSAppleScriptExtensions.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSAppleScriptExtensions.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:46 ICT 2009 }
 
 
 {$ifdef TYPES}

packages/cocoaint/src/appkit/NSApplication.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSApplication.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:46 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSAPPLICATION_PAS_H}
@@ -28,25 +28,6 @@ const
   NSAppKitVersionNumber10_3_9 = 743.36;
   NSAppKitVersionNumber10_4 = 824;
 
-{ CFString constants }
-var
-  NSModalPanelRunLoopMode: CFStringRef; external name '_NSModalPanelRunLoopMode';
-  NSEventTrackingRunLoopMode: CFStringRef; external name '_NSEventTrackingRunLoopMode';
-  NSApplicationDidBecomeActiveNotification: CFStringRef; external name '_NSApplicationDidBecomeActiveNotification';
-  NSApplicationDidHideNotification: CFStringRef; external name '_NSApplicationDidHideNotification';
-  NSApplicationDidFinishLaunchingNotification: CFStringRef; external name '_NSApplicationDidFinishLaunchingNotification';
-  NSApplicationDidResignActiveNotification: CFStringRef; external name '_NSApplicationDidResignActiveNotification';
-  NSApplicationDidUnhideNotification: CFStringRef; external name '_NSApplicationDidUnhideNotification';
-  NSApplicationDidUpdateNotification: CFStringRef; external name '_NSApplicationDidUpdateNotification';
-  NSApplicationWillBecomeActiveNotification: CFStringRef; external name '_NSApplicationWillBecomeActiveNotification';
-  NSApplicationWillHideNotification: CFStringRef; external name '_NSApplicationWillHideNotification';
-  NSApplicationWillFinishLaunchingNotification: CFStringRef; external name '_NSApplicationWillFinishLaunchingNotification';
-  NSApplicationWillResignActiveNotification: CFStringRef; external name '_NSApplicationWillResignActiveNotification';
-  NSApplicationWillUnhideNotification: CFStringRef; external name '_NSApplicationWillUnhideNotification';
-  NSApplicationWillUpdateNotification: CFStringRef; external name '_NSApplicationWillUpdateNotification';
-  NSApplicationWillTerminateNotification: CFStringRef; external name '_NSApplicationWillTerminateNotification';
-  NSApplicationDidChangeScreenParametersNotification: CFStringRef; external name '_NSApplicationDidChangeScreenParametersNotification';
-
 { Constants }
 
 const
@@ -77,10 +58,10 @@ type
   NSModalSession = Pointer;
   NSThreadPrivate = Pointer;
   _NSThreadPrivate = NSThreadPrivate;
-  NSRequestUserAttentionType = culong;
-  NSApplicationDelegateReply = culong;
-  NSApplicationTerminateReply = culong;
-  NSApplicationPrintReply = culong;
+  NSRequestUserAttentionType = NSUInteger;
+  NSApplicationDelegateReply = NSUInteger;
+  NSApplicationTerminateReply = NSUInteger;
+  NSApplicationPrintReply = NSUInteger;
 
 {$endif}
 {$endif}
@@ -97,14 +78,14 @@ type
 {$define NSAPPLICATION_PAS_F}
 
 { Functions }
-function NSApplicationMain(argc: cint; var argv: Pointer {array of char}): cint; cdecl; external name 'NSApplicationMain';
+function NSApplicationMain(argc: cint; argvPointer: Pointer {array of char}): cint; cdecl; external name 'NSApplicationMain';
 function NSApplicationLoad: Boolean; cdecl; external name 'NSApplicationLoad';
-function NSShowsServicesMenuItem(var_: NSString): Boolean; cdecl; external name 'NSShowsServicesMenuItem';
-function NSSetShowsServicesMenuItem(var_: NSString; enabled: Boolean): clong; cdecl; external name 'NSSetShowsServicesMenuItem';
+function NSShowsServicesMenuItem(Pointer_: NSString): Boolean; cdecl; external name 'NSShowsServicesMenuItem';
+function NSSetShowsServicesMenuItem(Pointer_: NSString; enabled: Boolean): NSInteger; cdecl; external name 'NSSetShowsServicesMenuItem';
 procedure NSUpdateDynamicServices; cdecl; external name 'NSUpdateDynamicServices';
-function NSPerformService(var itemName: NSString; var pboard: NSPasteboard): Boolean; cdecl; external name 'NSPerformService';
-procedure NSRegisterServicesProvider(provider: id; var name: NSString); cdecl; external name 'NSRegisterServicesProvider';
-procedure NSUnregisterServicesProvider(var name: NSString); cdecl; external name 'NSUnregisterServicesProvider';
+function NSPerformService(itemNamePointer: NSString; pboardPointer: NSPasteboard): Boolean; cdecl; external name 'NSPerformService';
+procedure NSRegisterServicesProvider(provider: id; namePointer: NSString); cdecl; external name 'NSRegisterServicesProvider';
+procedure NSUnregisterServicesProvider(namePointer: NSString); cdecl; external name 'NSUnregisterServicesProvider';
 
 {$endif}
 {$endif}
@@ -117,6 +98,25 @@ procedure NSUnregisterServicesProvider(var name: NSString); cdecl; external name
 var
   NSAppKitVersionNumber: double; external name '_NSAppKitVersionNumber';
 
+{ External string constants }
+var
+  NSModalPanelRunLoopMode: NSString; external name '_NSModalPanelRunLoopMode';
+  NSEventTrackingRunLoopMode: NSString; external name '_NSEventTrackingRunLoopMode';
+  NSApplicationDidBecomeActiveNotification: NSString; external name '_NSApplicationDidBecomeActiveNotification';
+  NSApplicationDidHideNotification: NSString; external name '_NSApplicationDidHideNotification';
+  NSApplicationDidFinishLaunchingNotification: NSString; external name '_NSApplicationDidFinishLaunchingNotification';
+  NSApplicationDidResignActiveNotification: NSString; external name '_NSApplicationDidResignActiveNotification';
+  NSApplicationDidUnhideNotification: NSString; external name '_NSApplicationDidUnhideNotification';
+  NSApplicationDidUpdateNotification: NSString; external name '_NSApplicationDidUpdateNotification';
+  NSApplicationWillBecomeActiveNotification: NSString; external name '_NSApplicationWillBecomeActiveNotification';
+  NSApplicationWillHideNotification: NSString; external name '_NSApplicationWillHideNotification';
+  NSApplicationWillFinishLaunchingNotification: NSString; external name '_NSApplicationWillFinishLaunchingNotification';
+  NSApplicationWillResignActiveNotification: NSString; external name '_NSApplicationWillResignActiveNotification';
+  NSApplicationWillUnhideNotification: NSString; external name '_NSApplicationWillUnhideNotification';
+  NSApplicationWillUpdateNotification: NSString; external name '_NSApplicationWillUpdateNotification';
+  NSApplicationWillTerminateNotification: NSString; external name '_NSApplicationWillTerminateNotification';
+  NSApplicationDidChangeScreenParametersNotification: NSString; external name '_NSApplicationDidChangeScreenParametersNotification';
+
 {$endif}
 {$endif}
 
@@ -139,7 +139,7 @@ var
     __delegate: id;
     __hiddenList: id;
     __hiddenCount: cint;
-    __context: clong;
+    __context: NSInteger;
     __appleEventSuspensionID: Pointer;
     __previousKeyWindow: id; {garbage collector: __weak }
     __unusedApp: cshort;
@@ -188,7 +188,7 @@ var
     procedure hide(sender: id); message 'hide:';
     procedure unhide(sender: id); message 'unhide:';
     procedure unhideWithoutActivation; message 'unhideWithoutActivation';
-    function windowWithWindowNumber(windowNum: clong): NSWindow; message 'windowWithWindowNumber:';
+    function windowWithWindowNumber(windowNum: NSInteger): NSWindow; message 'windowWithWindowNumber:';
     function mainWindow: NSWindow; message 'mainWindow';
     function keyWindow: NSWindow; message 'keyWindow';
     function isActive: Boolean; message 'isActive';
@@ -200,25 +200,25 @@ var
     procedure unhideAllApplications(sender: id); message 'unhideAllApplications:';
     procedure finishLaunching; message 'finishLaunching';
     procedure run; message 'run';
-    function runModalForWindow(theWindow: NSWindow): clong; message 'runModalForWindow:';
+    function runModalForWindow(theWindow: NSWindow): NSInteger; message 'runModalForWindow:';
     procedure stop(sender: id); message 'stop:';
     procedure stopModal; message 'stopModal';
-    procedure stopModalWithCode(returnCode: clong); message 'stopModalWithCode:';
+    procedure stopModalWithCode(returnCode: NSInteger); message 'stopModalWithCode:';
     procedure abortModal; message 'abortModal';
     function modalWindow: NSWindow; message 'modalWindow';
     function beginModalSessionForWindow(theWindow: NSWindow): NSModalSession; message 'beginModalSessionForWindow:';
-    function runModalSession(session: NSModalSession): clong; message 'runModalSession:';
+    function runModalSession(session: NSModalSession): NSInteger; message 'runModalSession:';
     procedure endModalSession(session: NSModalSession); message 'endModalSession:';
     procedure terminate(sender: id); message 'terminate:';
-    function requestUserAttention(requestType: NSRequestUserAttentionType): clong; message 'requestUserAttention:';
-    procedure cancelUserAttentionRequest(request: clong); message 'cancelUserAttentionRequest:';
+    function requestUserAttention(requestType: NSRequestUserAttentionType): NSInteger; message 'requestUserAttention:';
+    procedure cancelUserAttentionRequest(request: NSInteger); message 'cancelUserAttentionRequest:';
     procedure beginSheet_modalForWindow_modalDelegate_didEndSelector_contextInfo(sheet: NSWindow; docWindow: NSWindow; modalDelegate: id; didEndSelector: SEL; contextInfo: Pointer); message 'beginSheet:modalForWindow:modalDelegate:didEndSelector:contextInfo:';
     procedure endSheet(sheet: NSWindow); message 'endSheet:';
-    procedure endSheet_returnCode(sheet: NSWindow; returnCode: clong); message 'endSheet:returnCode:';
-    function runModalForWindow_relativeToWindow(theWindow: NSWindow; docWindow: NSWindow): clong; message 'runModalForWindow:relativeToWindow:';
+    procedure endSheet_returnCode(sheet: NSWindow; returnCode: NSInteger); message 'endSheet:returnCode:';
+    function runModalForWindow_relativeToWindow(theWindow: NSWindow; docWindow: NSWindow): NSInteger; message 'runModalForWindow:relativeToWindow:';
     function beginModalSessionForWindow_relativeToWindow(theWindow: NSWindow; docWindow: NSWindow): NSModalSession; message 'beginModalSessionForWindow:relativeToWindow:';
-    function nextEventMatchingMask_untilDate_inMode_dequeue(mask: culong; expiration: NSDate; mode: NSString; deqFlag: Boolean): NSEvent; message 'nextEventMatchingMask:untilDate:inMode:dequeue:';
-    procedure discardEventsMatchingMask_beforeEvent(mask: culong; lastEvent: NSEvent); message 'discardEventsMatchingMask:beforeEvent:';
+    function nextEventMatchingMask_untilDate_inMode_dequeue(mask: NSUInteger; expiration: NSDate; mode: NSString; deqFlag: Boolean): NSEvent; message 'nextEventMatchingMask:untilDate:inMode:dequeue:';
+    procedure discardEventsMatchingMask_beforeEvent(mask: NSUInteger; lastEvent: NSEvent); message 'discardEventsMatchingMask:beforeEvent:';
     procedure postEvent_atStart(event: NSEvent; flag: Boolean); message 'postEvent:atStart:';
     function currentEvent: NSEvent; message 'currentEvent';
     procedure sendEvent(theEvent: NSEvent); message 'sendEvent:';

packages/cocoaint/src/appkit/NSApplicationScripting.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSApplicationScripting.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}

packages/cocoaint/src/appkit/NSArrayController.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSArrayController.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSARRAYCONTROLLER_PAS_H}
@@ -71,7 +71,7 @@ type
         _automaticallyRearrangesObjects: 0..1;
         _reservedArrayController: 0..((1 shl 17)-1);
       end;
-    __observedIndexHint: culong;
+    __observedIndexHint: NSUInteger;
     __selectionIndexes: NSMutableIndexSet;
     __objects: NSMutableArray;
     __cachedSelectedIndexes: NSIndexSet;
@@ -104,8 +104,8 @@ type
     function alwaysUsesMultipleValuesMarker: Boolean; message 'alwaysUsesMultipleValuesMarker';
     function setSelectionIndexes(indexes: NSIndexSet): Boolean; message 'setSelectionIndexes:';
     function selectionIndexes: NSIndexSet; message 'selectionIndexes';
-    function setSelectionIndex(index: culong): Boolean; message 'setSelectionIndex:';
-    function selectionIndex: culong; message 'selectionIndex';
+    function setSelectionIndex(index: NSUInteger): Boolean; message 'setSelectionIndex:';
+    function selectionIndex: NSUInteger; message 'selectionIndex';
     function addSelectionIndexes(indexes: NSIndexSet): Boolean; message 'addSelectionIndexes:';
     function removeSelectionIndexes(indexes: NSIndexSet): Boolean; message 'removeSelectionIndexes:';
     function setSelectedObjects(objects: NSArray): Boolean; message 'setSelectedObjects:';
@@ -122,9 +122,9 @@ type
     function canSelectPrevious: Boolean; message 'canSelectPrevious';
     procedure addObject(object_: id); message 'addObject:';
     procedure addObjects(objects: NSArray); message 'addObjects:';
-    procedure insertObject_atArrangedObjectIndex(object_: id; index: culong); message 'insertObject:atArrangedObjectIndex:';
+    procedure insertObject_atArrangedObjectIndex(object_: id; index: NSUInteger); message 'insertObject:atArrangedObjectIndex:';
     procedure insertObjects_atArrangedObjectIndexes(objects: NSArray; indexes: NSIndexSet); message 'insertObjects:atArrangedObjectIndexes:';
-    procedure removeObjectAtArrangedObjectIndex(index: culong); message 'removeObjectAtArrangedObjectIndex:';
+    procedure removeObjectAtArrangedObjectIndex(index: NSUInteger); message 'removeObjectAtArrangedObjectIndex:';
     procedure removeObjectsAtArrangedObjectIndexes(indexes: NSIndexSet); message 'removeObjectsAtArrangedObjectIndexes:';
     procedure removeObject(object_: id); message 'removeObject:';
     procedure removeObjects(objects: NSArray); message 'removeObjects:';

packages/cocoaint/src/appkit/NSAttributedString.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSAttributedString.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:30:59 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:45 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSATTRIBUTEDSTRING_PAS_H}
@@ -15,27 +15,6 @@ type
 {$ifndef NSATTRIBUTEDSTRING_PAS_T}
 {$define NSATTRIBUTEDSTRING_PAS_T}
 
-{ CFString constants }
-var
-  NSFontAttributeName: CFStringRef; external name '_NSFontAttributeName';
-  NSParagraphStyleAttributeName: CFStringRef; external name '_NSParagraphStyleAttributeName';
-  NSForegroundColorAttributeName: CFStringRef; external name '_NSForegroundColorAttributeName';
-  NSUnderlineStyleAttributeName: CFStringRef; external name '_NSUnderlineStyleAttributeName';
-  NSSuperscriptAttributeName: CFStringRef; external name '_NSSuperscriptAttributeName';
-  NSBackgroundColorAttributeName: CFStringRef; external name '_NSBackgroundColorAttributeName';
-  NSAttachmentAttributeName: CFStringRef; external name '_NSAttachmentAttributeName';
-  NSLigatureAttributeName: CFStringRef; external name '_NSLigatureAttributeName';
-  NSBaselineOffsetAttributeName: CFStringRef; external name '_NSBaselineOffsetAttributeName';
-  NSKernAttributeName: CFStringRef; external name '_NSKernAttributeName';
-  NSLinkAttributeName: CFStringRef; external name '_NSLinkAttributeName';
-  NSCharacterShapeAttributeName: CFStringRef; external name '_NSCharacterShapeAttributeName';
-  NSGlyphInfoAttributeName: CFStringRef; external name '_NSGlyphInfoAttributeName';
-  NSPlainTextDocumentType: CFStringRef; external name '_NSPlainTextDocumentType';
-  NSRTFTextDocumentType: CFStringRef; external name '_NSRTFTextDocumentType';
-  NSRTFDTextDocumentType: CFStringRef; external name '_NSRTFDTextDocumentType';
-  NSMacSimpleTextDocumentType: CFStringRef; external name '_NSMacSimpleTextDocumentType';
-  NSHTMLTextDocumentType: CFStringRef; external name '_NSHTMLTextDocumentType';
-
 { Constants }
 
 const
@@ -80,6 +59,27 @@ const
 {$ifndef NSATTRIBUTEDSTRING_PAS_T}
 {$define NSATTRIBUTEDSTRING_PAS_T}
 
+{ External string constants }
+var
+  NSFontAttributeName: NSString; external name '_NSFontAttributeName';
+  NSParagraphStyleAttributeName: NSString; external name '_NSParagraphStyleAttributeName';
+  NSForegroundColorAttributeName: NSString; external name '_NSForegroundColorAttributeName';
+  NSUnderlineStyleAttributeName: NSString; external name '_NSUnderlineStyleAttributeName';
+  NSSuperscriptAttributeName: NSString; external name '_NSSuperscriptAttributeName';
+  NSBackgroundColorAttributeName: NSString; external name '_NSBackgroundColorAttributeName';
+  NSAttachmentAttributeName: NSString; external name '_NSAttachmentAttributeName';
+  NSLigatureAttributeName: NSString; external name '_NSLigatureAttributeName';
+  NSBaselineOffsetAttributeName: NSString; external name '_NSBaselineOffsetAttributeName';
+  NSKernAttributeName: NSString; external name '_NSKernAttributeName';
+  NSLinkAttributeName: NSString; external name '_NSLinkAttributeName';
+  NSCharacterShapeAttributeName: NSString; external name '_NSCharacterShapeAttributeName';
+  NSGlyphInfoAttributeName: NSString; external name '_NSGlyphInfoAttributeName';
+  NSPlainTextDocumentType: NSString; external name '_NSPlainTextDocumentType';
+  NSRTFTextDocumentType: NSString; external name '_NSRTFTextDocumentType';
+  NSRTFDTextDocumentType: NSString; external name '_NSRTFDTextDocumentType';
+  NSMacSimpleTextDocumentType: NSString; external name '_NSMacSimpleTextDocumentType';
+  NSHTMLTextDocumentType: NSString; external name '_NSHTMLTextDocumentType';
+
 { External symbols }
 var
   NSUnderlineByWordMask: NSUInteger; external name '_NSUnderlineByWordMask';
@@ -105,14 +105,14 @@ var
     class function alloc: NSAttributedString; message 'alloc';
 
     function string_: NSString; message 'string';
-    function attributesAtIndex_effectiveRange(location: culong; range: NSRangePointer): NSDictionary; message 'attributesAtIndex:effectiveRange:';
+    function attributesAtIndex_effectiveRange(location: NSUInteger; range: NSRangePointer): NSDictionary; message 'attributesAtIndex:effectiveRange:';
 
     { Category: NSExtendedAttributedString }
-    function length: culong; message 'length';
-    function attribute_atIndex_effectiveRange(attrName: NSString; location: culong; range: NSRangePointer): id; message 'attribute:atIndex:effectiveRange:';
+    function length: NSUInteger; message 'length';
+    function attribute_atIndex_effectiveRange(attrName: NSString; location: NSUInteger; range: NSRangePointer): id; message 'attribute:atIndex:effectiveRange:';
     function attributedSubstringFromRange(range: NSRange): NSAttributedString; message 'attributedSubstringFromRange:';
-    function attributesAtIndex_longestEffectiveRange_inRange(location: culong; range: NSRangePointer; rangeLimit: NSRange): NSDictionary; message 'attributesAtIndex:longestEffectiveRange:inRange:';
-    function attribute_atIndex_longestEffectiveRange_inRange(attrName: NSString; location: culong; range: NSRangePointer; rangeLimit: NSRange): id; message 'attribute:atIndex:longestEffectiveRange:inRange:';
+    function attributesAtIndex_longestEffectiveRange_inRange(location: NSUInteger; range: NSRangePointer; rangeLimit: NSRange): NSDictionary; message 'attributesAtIndex:longestEffectiveRange:inRange:';
+    function attribute_atIndex_longestEffectiveRange_inRange(attrName: NSString; location: NSUInteger; range: NSRangePointer; rangeLimit: NSRange): id; message 'attribute:atIndex:longestEffectiveRange:inRange:';
     function isEqualToAttributedString(other: NSAttributedString): Boolean; message 'isEqualToAttributedString:';
     function initWithString(str: NSString): id; message 'initWithString:';
     function initWithString_attributes(str: NSString; attrs: NSDictionary): id; message 'initWithString:attributes:';
@@ -122,30 +122,30 @@ var
     function fontAttributesInRange(range: NSRange): NSDictionary; message 'fontAttributesInRange:';
     function rulerAttributesInRange(range: NSRange): NSDictionary; message 'rulerAttributesInRange:';
     function containsAttachments: Boolean; message 'containsAttachments';
-    function lineBreakBeforeIndex_withinRange(location: culong; aRange: NSRange): culong; message 'lineBreakBeforeIndex:withinRange:';
-    function lineBreakByHyphenatingBeforeIndex_withinRange(location: culong; aRange: NSRange): culong; message 'lineBreakByHyphenatingBeforeIndex:withinRange:';
-    function doubleClickAtIndex(location: culong): NSRange; message 'doubleClickAtIndex:';
-    function nextWordFromIndex_forward(location: culong; isForward: Boolean): culong; message 'nextWordFromIndex:forward:';
-    function URLAtIndex_effectiveRange(location: culong; effectiveRange: NSRangePointer): NSURL; message 'URLAtIndex:effectiveRange:';
+    function lineBreakBeforeIndex_withinRange(location: NSUInteger; aRange: NSRange): NSUInteger; message 'lineBreakBeforeIndex:withinRange:';
+    function lineBreakByHyphenatingBeforeIndex_withinRange(location: NSUInteger; aRange: NSRange): NSUInteger; message 'lineBreakByHyphenatingBeforeIndex:withinRange:';
+    function doubleClickAtIndex(location: NSUInteger): NSRange; message 'doubleClickAtIndex:';
+    function nextWordFromIndex_forward(location: NSUInteger; isForward: Boolean): NSUInteger; message 'nextWordFromIndex:forward:';
+    function URLAtIndex_effectiveRange(location: NSUInteger; effectiveRange: NSRangePointer): NSURL; message 'URLAtIndex:effectiveRange:';
     class function textTypes: NSArray; message 'textTypes';
     class function textUnfilteredTypes: NSArray; message 'textUnfilteredTypes';
-    function rangeOfTextBlock_atIndex(block: NSTextBlock; location: culong): NSRange; message 'rangeOfTextBlock:atIndex:';
-    function rangeOfTextTable_atIndex(table: NSTextTable; location: culong): NSRange; message 'rangeOfTextTable:atIndex:';
-    function rangeOfTextList_atIndex(list: NSTextList; location: culong): NSRange; message 'rangeOfTextList:atIndex:';
-    function itemNumberInTextList_atIndex(list: NSTextList; location: culong): clong; message 'itemNumberInTextList:atIndex:';
-    function initWithURL_options_documentAttributes_error(url: NSURL; options: NSDictionary; var dict: NSDictionary; var error: NSError): id; message 'initWithURL:options:documentAttributes:error:';
-    function initWithData_options_documentAttributes_error(data: NSData; options: NSDictionary; var dict: NSDictionary; var error: NSError): id; message 'initWithData:options:documentAttributes:error:';
-    function initWithPath_documentAttributes(path: NSString; var dict: NSDictionary): id; message 'initWithPath:documentAttributes:';
-    function initWithURL_documentAttributes(url: NSURL; var dict: NSDictionary): id; message 'initWithURL:documentAttributes:';
-    function initWithRTF_documentAttributes(data: NSData; var dict: NSDictionary): id; message 'initWithRTF:documentAttributes:';
-    function initWithRTFD_documentAttributes(data: NSData; var dict: NSDictionary): id; message 'initWithRTFD:documentAttributes:';
-    function initWithHTML_documentAttributes(data: NSData; var dict: NSDictionary): id; message 'initWithHTML:documentAttributes:';
-    function initWithHTML_baseURL_documentAttributes(data: NSData; base: NSURL; var dict: NSDictionary): id; message 'initWithHTML:baseURL:documentAttributes:';
-    function initWithDocFormat_documentAttributes(data: NSData; var dict: NSDictionary): id; message 'initWithDocFormat:documentAttributes:';
-    function initWithHTML_options_documentAttributes(data: NSData; options: NSDictionary; var dict: NSDictionary): id; message 'initWithHTML:options:documentAttributes:';
-    function initWithRTFDFileWrapper_documentAttributes(wrapper: NSFileWrapper; var dict: NSDictionary): id; message 'initWithRTFDFileWrapper:documentAttributes:';
-    function dataFromRange_documentAttributes_error(range: NSRange; dict: NSDictionary; var error: NSError): NSData; message 'dataFromRange:documentAttributes:error:';
-    function fileWrapperFromRange_documentAttributes_error(range: NSRange; dict: NSDictionary; var error: NSError): NSFileWrapper; message 'fileWrapperFromRange:documentAttributes:error:';
+    function rangeOfTextBlock_atIndex(block: NSTextBlock; location: NSUInteger): NSRange; message 'rangeOfTextBlock:atIndex:';
+    function rangeOfTextTable_atIndex(table: NSTextTable; location: NSUInteger): NSRange; message 'rangeOfTextTable:atIndex:';
+    function rangeOfTextList_atIndex(list: NSTextList; location: NSUInteger): NSRange; message 'rangeOfTextList:atIndex:';
+    function itemNumberInTextList_atIndex(list: NSTextList; location: NSUInteger): NSInteger; message 'itemNumberInTextList:atIndex:';
+    function initWithURL_options_documentAttributes_error(url: NSURL; options: NSDictionary; dict: NSDictionaryPointer; error: NSErrorPointer): id; message 'initWithURL:options:documentAttributes:error:';
+    function initWithData_options_documentAttributes_error(data: NSData; options: NSDictionary; dict: NSDictionaryPointer; error: NSErrorPointer): id; message 'initWithData:options:documentAttributes:error:';
+    function initWithPath_documentAttributes(path: NSString; dict: NSDictionaryPointer): id; message 'initWithPath:documentAttributes:';
+    function initWithURL_documentAttributes(url: NSURL; dict: NSDictionaryPointer): id; message 'initWithURL:documentAttributes:';
+    function initWithRTF_documentAttributes(data: NSData; dict: NSDictionaryPointer): id; message 'initWithRTF:documentAttributes:';
+    function initWithRTFD_documentAttributes(data: NSData; dict: NSDictionaryPointer): id; message 'initWithRTFD:documentAttributes:';
+    function initWithHTML_documentAttributes(data: NSData; dict: NSDictionaryPointer): id; message 'initWithHTML:documentAttributes:';
+    function initWithHTML_baseURL_documentAttributes(data: NSData; base: NSURL; dict: NSDictionaryPointer): id; message 'initWithHTML:baseURL:documentAttributes:';
+    function initWithDocFormat_documentAttributes(data: NSData; dict: NSDictionaryPointer): id; message 'initWithDocFormat:documentAttributes:';
+    function initWithHTML_options_documentAttributes(data: NSData; options: NSDictionary; dict: NSDictionaryPointer): id; message 'initWithHTML:options:documentAttributes:';
+    function initWithRTFDFileWrapper_documentAttributes(wrapper: NSFileWrapper; dict: NSDictionaryPointer): id; message 'initWithRTFDFileWrapper:documentAttributes:';
+    function dataFromRange_documentAttributes_error(range: NSRange; dict: NSDictionary; error: NSErrorPointer): NSData; message 'dataFromRange:documentAttributes:error:';
+    function fileWrapperFromRange_documentAttributes_error(range: NSRange; dict: NSDictionary; error: NSErrorPointer): NSFileWrapper; message 'fileWrapperFromRange:documentAttributes:error:';
     function RTFFromRange_documentAttributes(range: NSRange; dict: NSDictionary): NSData; message 'RTFFromRange:documentAttributes:';
     function RTFDFromRange_documentAttributes(range: NSRange; dict: NSDictionary): NSData; message 'RTFDFromRange:documentAttributes:';
     function RTFDFileWrapperFromRange_documentAttributes(range: NSRange; dict: NSDictionary): NSFileWrapper; message 'RTFDFileWrapperFromRange:documentAttributes:';
@@ -185,7 +185,7 @@ var
     procedure addAttributes_range(attrs: NSDictionary; range: NSRange); message 'addAttributes:range:';
     procedure removeAttribute_range(name: NSString; range: NSRange); message 'removeAttribute:range:';
     procedure replaceCharactersInRange_withAttributedString(range: NSRange; attrString: NSAttributedString); message 'replaceCharactersInRange:withAttributedString:';
-    procedure insertAttributedString_atIndex(attrString: NSAttributedString; loc: culong); message 'insertAttributedString:atIndex:';
+    procedure insertAttributedString_atIndex(attrString: NSAttributedString; loc: NSUInteger); message 'insertAttributedString:atIndex:';
     procedure appendAttributedString(attrString: NSAttributedString); message 'appendAttributedString:';
     procedure deleteCharactersInRange(range: NSRange); message 'deleteCharactersInRange:';
     procedure setAttributedString(attrString: NSAttributedString); message 'setAttributedString:';
@@ -193,10 +193,10 @@ var
     procedure endEditing; message 'endEditing';
 
     { Category: NSMutableAttributedStringKitAdditions }
-    function readFromURL_options_documentAttributes_error(url: NSURL; opts: NSDictionary; var dict: NSDictionary; var error: NSError): Boolean; message 'readFromURL:options:documentAttributes:error:';
-    function readFromData_options_documentAttributes_error(data: NSData; opts: NSDictionary; var dict: NSDictionary; var error: NSError): Boolean; message 'readFromData:options:documentAttributes:error:';
-    function readFromURL_options_documentAttributes(url: NSURL; options: NSDictionary; var dict: NSDictionary): Boolean; message 'readFromURL:options:documentAttributes:';
-    function readFromData_options_documentAttributes(data: NSData; options: NSDictionary; var dict: NSDictionary): Boolean; message 'readFromData:options:documentAttributes:';
+    function readFromURL_options_documentAttributes_error(url: NSURL; opts: NSDictionary; dict: NSDictionaryPointer; error: NSErrorPointer): Boolean; message 'readFromURL:options:documentAttributes:error:';
+    function readFromData_options_documentAttributes_error(data: NSData; opts: NSDictionary; dict: NSDictionaryPointer; error: NSErrorPointer): Boolean; message 'readFromData:options:documentAttributes:error:';
+    function readFromURL_options_documentAttributes(url: NSURL; options: NSDictionary; dict: NSDictionaryPointer): Boolean; message 'readFromURL:options:documentAttributes:';
+    function readFromData_options_documentAttributes(data: NSData; options: NSDictionary; dict: NSDictionaryPointer): Boolean; message 'readFromData:options:documentAttributes:';
     procedure superscriptRange(range: NSRange); message 'superscriptRange:';
     procedure subscriptRange(range: NSRange); message 'subscriptRange:';
     procedure unscriptRange(range: NSRange); message 'unscriptRange:';

packages/cocoaint/src/appkit/NSBezierPath.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSBezierPath.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSBEZIERPATH_PAS_H}
@@ -38,10 +38,10 @@ const
 
 { Types }
 type
-  NSLineCapStyle = culong;
-  NSLineJoinStyle = culong;
-  NSWindingRule = culong;
-  NSBezierPathElement = culong;
+  NSLineCapStyle = NSUInteger;
+  NSLineJoinStyle = NSUInteger;
+  NSWindingRule = NSUInteger;
+  NSBezierPathElement = NSUInteger;
 
 {$endif}
 {$endif}
@@ -79,20 +79,20 @@ type
 { NSBezierPath }
   NSBezierPath = objcclass(NSObject, NSCopyingProtocol, NSCodingProtocol)
   private
-    __segmentCount: clong;
-    __segmentMax: clong;
+    __segmentCount: NSInteger;
+    __segmentMax: NSInteger;
     __head: PATHSEGMENT;
-    __lastSubpathIndex: clong;
-    __elementCount: clong;
+    __lastSubpathIndex: NSInteger;
+    __elementCount: NSInteger;
     __lineWidth: CGFloat;
     __controlPointBounds: NSRect;
     __miterLimit: CGFloat;
     __flatness: CGFloat;
     __dashedLinePattern: CGFloat;
-    __dashedLineCount: culong;
+    __dashedLineCount: NSUInteger;
     __dashedLinePhase: CGFloat;
     __path: Pointer;
-    __private: id;
+        _private: array[0..3] of id;
     __bpFlags: bitpacked record
         _flags: 0..((1 shl 8)-1);
         _pathState: 0..((1 shl 2)-1);
@@ -142,8 +142,8 @@ type
     procedure setMiterLimit(miterLimit_: CGFloat); message 'setMiterLimit:';
     function flatness: CGFloat; message 'flatness';
     procedure setFlatness(flatness_: CGFloat); message 'setFlatness:';
-    procedure getLineDash_count_phase(var pattern: CGFloat; var count: clong; var phase: CGFloat); message 'getLineDash:count:phase:';
-    procedure setLineDash_count_phase(var pattern: CGFloat; count: clong; phase: CGFloat); message 'setLineDash:count:phase:';
+    procedure getLineDash_count_phase(pattern: psingle; count: NSIntegerPointer; phase: psingle); message 'getLineDash:count:phase:';
+    procedure setLineDash_count_phase(pattern: psingle; count: NSInteger; phase: CGFloat); message 'setLineDash:count:phase:';
     procedure stroke; message 'stroke';
     procedure fill; message 'fill';
     procedure addClip; message 'addClip';
@@ -155,12 +155,12 @@ type
     function currentPoint: NSPoint; message 'currentPoint';
     function controlPointBounds: NSRect; message 'controlPointBounds';
     function bounds: NSRect; message 'bounds';
-    function elementCount: clong; message 'elementCount';
-    function elementAtIndex(index: clong): NSBezierPathElement; message 'elementAtIndex:';
-    procedure setAssociatedPoints_atIndex(points: NSPointArray; index: clong); message 'setAssociatedPoints:atIndex:';
+    function elementCount: NSInteger; message 'elementCount';
+    function elementAtIndex(index: NSInteger): NSBezierPathElement; message 'elementAtIndex:';
+    procedure setAssociatedPoints_atIndex(points: NSPointArray; index: NSInteger); message 'setAssociatedPoints:atIndex:';
     procedure appendBezierPath(path: NSBezierPath); message 'appendBezierPath:';
     procedure appendBezierPathWithRect(rect: NSRect); message 'appendBezierPathWithRect:';
-    procedure appendBezierPathWithPoints_count(points: NSPointArray; count: clong); message 'appendBezierPathWithPoints:count:';
+    procedure appendBezierPathWithPoints_count(points: NSPointArray; count: NSInteger); message 'appendBezierPathWithPoints:count:';
     procedure appendBezierPathWithOvalInRect(rect: NSRect); message 'appendBezierPathWithOvalInRect:';
     procedure appendBezierPathWithGlyph_inFont(glyph: NSGlyph; font: NSFont); message 'appendBezierPathWithGlyph:inFont:';
     procedure appendBezierPathWithPackedGlyphs(packedGlyphs: PChar); message 'appendBezierPathWithPackedGlyphs:';

packages/cocoaint/src/appkit/NSBitmapImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSBitmapImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSBITMAPIMAGEREP_PAS_H}
@@ -41,10 +41,10 @@ const
 
 { Types }
 type
-  NSTIFFCompression = culong;
-  NSBitmapImageFileType = culong;
-  NSImageRepLoadStatus = clong;
-  NSBitmapFormat = culong;
+  NSTIFFCompression = NSUInteger;
+  NSBitmapImageFileType = NSUInteger;
+  NSImageRepLoadStatus = NSInteger;
+  NSBitmapFormat = NSUInteger;
 
 {$endif}
 {$endif}
@@ -105,38 +105,38 @@ type
     class function alloc: NSBitmapImageRep; message 'alloc';
 
     function initWithFocusedViewRect(rect: NSRect): id; message 'initWithFocusedViewRect:';
-    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bytesPerRow_bitsPerPixel(var planes: char; width: clong; height: clong; bps: clong; spp: clong; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; rBytes: clong; pBits: clong): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:';
-    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel(var planes: char; width: clong; height: clong; bps: clong; spp: clong; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; bitmapFormat_: NSBitmapFormat; rBytes: clong; pBits: clong): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:';
+    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bytesPerRow_bitsPerPixel(planes: pchar; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:';
+    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel(planes: pchar; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; bitmapFormat_: NSBitmapFormat; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:';
     function initWithCGImage(CGImage_: CGImageRef): id; message 'initWithCGImage:';
-    function initWithCIImage(var ciImage: CIImage): id; message 'initWithCIImage:';
+    function initWithCIImage(ciImage: CIImagePointer): id; message 'initWithCIImage:';
     class function imageRepsWithData(data: NSData): NSArray; message 'imageRepsWithData:';
     class function imageRepWithData_initWithData(data: NSData): id; message 'imageRepWithData:';
     function initWithData(data: NSData): id; message 'initWithData:';
     function bitmapData: Pointer; message 'bitmapData';
-    procedure getBitmapDataPlanes(var data: char); message 'getBitmapDataPlanes:';
+    procedure getBitmapDataPlanes(data: pchar); message 'getBitmapDataPlanes:';
     function isPlanar: Boolean; message 'isPlanar';
-    function samplesPerPixel: clong; message 'samplesPerPixel';
-    function bitsPerPixel: clong; message 'bitsPerPixel';
-    function bytesPerRow: clong; message 'bytesPerRow';
-    function bytesPerPlane: clong; message 'bytesPerPlane';
-    function numberOfPlanes: clong; message 'numberOfPlanes';
+    function samplesPerPixel: NSInteger; message 'samplesPerPixel';
+    function bitsPerPixel: NSInteger; message 'bitsPerPixel';
+    function bytesPerRow: NSInteger; message 'bytesPerRow';
+    function bytesPerPlane: NSInteger; message 'bytesPerPlane';
+    function numberOfPlanes: NSInteger; message 'numberOfPlanes';
     function bitmapFormat: NSBitmapFormat; message 'bitmapFormat';
-    procedure getCompression_factor(var compression: NSTIFFCompression; var factor: single); message 'getCompression:factor:';
+    procedure getCompression_factor(compression: NSTIFFCompressionPointer; factor: psingle); message 'getCompression:factor:';
     procedure setCompression_factor(compression: NSTIFFCompression; factor: single); message 'setCompression:factor:';
     function TIFFRepresentation: NSData; message 'TIFFRepresentation';
     function TIFFRepresentationUsingCompression_factor(comp: NSTIFFCompression; factor: single): NSData; message 'TIFFRepresentationUsingCompression:factor:';
     class function TIFFRepresentationOfImageRepsInArray(array_: NSArray): NSData; message 'TIFFRepresentationOfImageRepsInArray:';
     class function TIFFRepresentationOfImageRepsInArray_usingCompression_factor(array_: NSArray; comp: NSTIFFCompression; factor: single): NSData; message 'TIFFRepresentationOfImageRepsInArray:usingCompression:factor:';
-    class procedure getTIFFCompressionTypes_count(var list: NSTIFFCompression; var numTypes: clong); message 'getTIFFCompressionTypes:count:';
+    class procedure getTIFFCompressionTypes_count(list: NSTIFFCompressionPointer; numTypes: NSIntegerPointer); message 'getTIFFCompressionTypes:count:';
     class function localizedNameForTIFFCompressionType(compression: NSTIFFCompression): NSString; message 'localizedNameForTIFFCompressionType:';
     function canBeCompressedUsing(compression: NSTIFFCompression): Boolean; message 'canBeCompressedUsing:';
     procedure colorizeByMappingGray_toColor_blackMapping_whiteMapping(midPoint: CGFloat; midPointColor: NSColor; shadowColor: NSColor; lightColor: NSColor); message 'colorizeByMappingGray:toColor:blackMapping:whiteMapping:';
     function initForIncrementalLoad: id; message 'initForIncrementalLoad';
-    function incrementalLoadFromData_complete(data: NSData; complete: Boolean): clong; message 'incrementalLoadFromData:complete:';
-    procedure setColor_atX_y(color: NSColor; x: clong; y: clong); message 'setColor:atX:y:';
-    function colorAtX_y(x: clong; y: clong): NSColor; message 'colorAtX:y:';
-    procedure getPixel_atX_y(p: culong; x: clong; y: clong); message 'getPixel:atX:y:';
-    procedure setPixel_atX_y(p: culong; x: clong; y: clong); message 'setPixel:atX:y:';
+    function incrementalLoadFromData_complete(data: NSData; complete: Boolean): NSInteger; message 'incrementalLoadFromData:complete:';
+    procedure setColor_atX_y(color: NSColor; x: NSInteger; y: NSInteger); message 'setColor:atX:y:';
+    function colorAtX_y(x: NSInteger; y: NSInteger): NSColor; message 'colorAtX:y:';
+    procedure getPixel_atX_y(p: NSUInteger; x: NSInteger; y: NSInteger); message 'getPixel:atX:y:';
+    procedure setPixel_atX_y(p: NSUInteger; x: NSInteger; y: NSInteger); message 'setPixel:atX:y:';
     function CGImage: CGImageRef; message 'CGImage';
 
     { Category: NSBitmapImageFileTypeExtensions }

packages/cocoaint/src/appkit/NSBox.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSBox.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSBOX_PAS_H}
@@ -27,8 +27,8 @@ const
 
 { Types }
 type
-  NSTitlePosition = culong;
-  NSBoxType = culong;
+  NSTitlePosition = NSUInteger;
+  NSBoxType = NSUInteger;
 
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSBrowser.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSBrowser.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSBROWSER_PAS_H}
@@ -28,8 +28,8 @@ const
 
 { Types }
 type
-  NSBrowserColumnResizingType = culong;
-  NSBrowserDropOperation = culong;
+  NSBrowserColumnResizingType = NSUInteger;
+  NSBrowserDropOperation = NSUInteger;
 
 {$endif}
 {$endif}
@@ -40,63 +40,63 @@ type
 
 { Records }
 type
-  __Brflags = record
+  __Brflags = bitpacked record
 {$ifdef fpc_big_endian}
-    allowsMultipleSelection: cuint;
-    allowsBranchSelection: cuint;
-    reuseColumns: cuint;
-    isTitled: cuint;
-    titleFromPrevious: cuint;
-    separateColumns: cuint;
-    delegateImplementsWillDisplayCell: cuint;
-    delegateSetsTitles: cuint;
-    delegateSelectsCellsByString: cuint;
-    delegateDoesNotCreateRowsInMatrix: cuint;
-    delegateValidatesColumns: cuint;
-    acceptArrowKeys: cuint;
-    dontDrawTitles: cuint;
-    sendActionOnArrowKeys: cuint;
-    prohibitEmptySel: cuint;
-    hasHorizontalScroller: cuint;
-    time: cuint;
-    allowsIncrementalSearching: cuint;
-    delegateSelectsCellsByRow: cuint;
-    disableCompositing: cuint;
-    refusesFirstResponder: cuint;
-    acceptsFirstMouse: cuint;
-    actionNeedsToBeSent: cuint;
-    usesSmallSizeTitleFont: cuint;
-    usesSmallScrollers: cuint;
-    prefersAllColumnUserResizing: cuint;
-    firstVisibleCalculationDisabled: cuint;
+    allowsMultipleSelection: 0..1;
+    allowsBranchSelection: 0..1;
+    reuseColumns: 0..1;
+    isTitled: 0..1;
+    titleFromPrevious: 0..1;
+    separateColumns: 0..1;
+    delegateImplementsWillDisplayCell: 0..1;
+    delegateSetsTitles: 0..1;
+    delegateSelectsCellsByString: 0..1;
+    delegateDoesNotCreateRowsInMatrix: 0..1;
+    delegateValidatesColumns: 0..1;
+    acceptArrowKeys: 0..1;
+    dontDrawTitles: 0..1;
+    sendActionOnArrowKeys: 0..1;
+    prohibitEmptySel: 0..1;
+    hasHorizontalScroller: 0..1;
+    time: 0..1;
+    allowsIncrementalSearching: 0..1;
+    delegateSelectsCellsByRow: 0..1;
+    disableCompositing: 0..((1 shl 6)-1);
+    refusesFirstResponder: 0..1;
+    acceptsFirstMouse: 0..1;
+    actionNeedsToBeSent: 0..1;
+    usesSmallSizeTitleFont: 0..1;
+    usesSmallScrollers: 0..1;
+    prefersAllColumnUserResizing: 0..1;
+    firstVisibleCalculationDisabled: 0..1;
 {$else}
-    firstVisibleCalculationDisabled: cuint;
-    prefersAllColumnUserResizing: cuint;
-    usesSmallScrollers: cuint;
-    usesSmallSizeTitleFont: cuint;
-    actionNeedsToBeSent: cuint;
-    acceptsFirstMouse: cuint;
-    refusesFirstResponder: cuint;
-    disableCompositing: cuint;
-    delegateSelectsCellsByRow: cuint;
-    allowsIncrementalSearching: cuint;
-    time: cuint;
-    hasHorizontalScroller: cuint;
-    prohibitEmptySel: cuint;
-    sendActionOnArrowKeys: cuint;
-    dontDrawTitles: cuint;
-    acceptArrowKeys: cuint;
-    delegateValidatesColumns: cuint;
-    delegateDoesNotCreateRowsInMatrix: cuint;
-    delegateSelectsCellsByString: cuint;
-    delegateSetsTitles: cuint;
-    delegateImplementsWillDisplayCell: cuint;
-    separateColumns: cuint;
-    titleFromPrevious: cuint;
-    isTitled: cuint;
-    reuseColumns: cuint;
-    allowsBranchSelection: cuint;
-    allowsMultipleSelection: cuint;
+    firstVisibleCalculationDisabled: 0..1;
+    prefersAllColumnUserResizing: 0..1;
+    usesSmallScrollers: 0..1;
+    usesSmallSizeTitleFont: 0..1;
+    actionNeedsToBeSent: 0..1;
+    acceptsFirstMouse: 0..1;
+    refusesFirstResponder: 0..1;
+    disableCompositing: 0..((1 shl 6)-1);
+    delegateSelectsCellsByRow: 0..1;
+    allowsIncrementalSearching: 0..1;
+    time: 0..1;
+    hasHorizontalScroller: 0..1;
+    prohibitEmptySel: 0..1;
+    sendActionOnArrowKeys: 0..1;
+    dontDrawTitles: 0..1;
+    acceptArrowKeys: 0..1;
+    delegateValidatesColumns: 0..1;
+    delegateDoesNotCreateRowsInMatrix: 0..1;
+    delegateSelectsCellsByString: 0..1;
+    delegateSetsTitles: 0..1;
+    delegateImplementsWillDisplayCell: 0..1;
+    separateColumns: 0..1;
+    titleFromPrevious: 0..1;
+    isTitled: 0..1;
+    reuseColumns: 0..1;
+    allowsBranchSelection: 0..1;
+    allowsMultipleSelection: 0..1;
 {$endif}
   end;
 _Brflags = __Brflags;
@@ -175,8 +175,8 @@ _Brflags = __Brflags;
     function isTitled: Boolean; message 'isTitled';
     procedure setMinColumnWidth(columnWidth: CGFloat); message 'setMinColumnWidth:';
     function minColumnWidth: CGFloat; message 'minColumnWidth';
-    procedure setMaxVisibleColumns(columnCount: clong); message 'setMaxVisibleColumns:';
-    function maxVisibleColumns: clong; message 'maxVisibleColumns';
+    procedure setMaxVisibleColumns(columnCount: NSInteger); message 'setMaxVisibleColumns:';
+    function maxVisibleColumns: NSInteger; message 'maxVisibleColumns';
     procedure setAllowsMultipleSelection(flag: Boolean); message 'setAllowsMultipleSelection:';
     function allowsMultipleSelection: Boolean; message 'allowsMultipleSelection';
     procedure setAllowsBranchSelection(flag: Boolean); message 'setAllowsBranchSelection:';
@@ -189,64 +189,64 @@ _Brflags = __Brflags;
     function acceptsArrowKeys: Boolean; message 'acceptsArrowKeys';
     procedure setSendsActionOnArrowKeys(flag: Boolean); message 'setSendsActionOnArrowKeys:';
     function sendsActionOnArrowKeys: Boolean; message 'sendsActionOnArrowKeys';
-    procedure setTitle_ofColumn(aString: NSString; column: clong); message 'setTitle:ofColumn:';
-    function titleOfColumn(column: clong): NSString; message 'titleOfColumn:';
+    procedure setTitle_ofColumn(aString: NSString; column: NSInteger); message 'setTitle:ofColumn:';
+    function titleOfColumn(column: NSInteger): NSString; message 'titleOfColumn:';
     procedure setPathSeparator(newString: NSString); message 'setPathSeparator:';
     function pathSeparator: NSString; message 'pathSeparator';
     function setPath(path_: NSString): Boolean; message 'setPath:';
     function path: NSString; message 'path';
-    function pathToColumn(column: clong): NSString; message 'pathToColumn:';
-    function selectedColumn: clong; message 'selectedColumn';
+    function pathToColumn(column: NSInteger): NSString; message 'pathToColumn:';
+    function selectedColumn: NSInteger; message 'selectedColumn';
     function selectedCell: id; message 'selectedCell';
-    function selectedCellInColumn(column: clong): id; message 'selectedCellInColumn:';
+    function selectedCellInColumn(column: NSInteger): id; message 'selectedCellInColumn:';
     function selectedCells: NSArray; message 'selectedCells';
-    procedure selectRow_inColumn(row: clong; column: clong); message 'selectRow:inColumn:';
-    function selectedRowInColumn(column: clong): clong; message 'selectedRowInColumn:';
-    procedure selectRowIndexes_inColumn(indexes: NSIndexSet; column: clong); message 'selectRowIndexes:inColumn:';
-    function selectedRowIndexesInColumn(column: clong): NSIndexSet; message 'selectedRowIndexesInColumn:';
-    procedure reloadColumn(column: clong); message 'reloadColumn:';
+    procedure selectRow_inColumn(row: NSInteger; column: NSInteger); message 'selectRow:inColumn:';
+    function selectedRowInColumn(column: NSInteger): NSInteger; message 'selectedRowInColumn:';
+    procedure selectRowIndexes_inColumn(indexes: NSIndexSet; column: NSInteger); message 'selectRowIndexes:inColumn:';
+    function selectedRowIndexesInColumn(column: NSInteger): NSIndexSet; message 'selectedRowIndexesInColumn:';
+    procedure reloadColumn(column: NSInteger); message 'reloadColumn:';
     procedure validateVisibleColumns; message 'validateVisibleColumns';
-    procedure scrollColumnsRightBy(shiftAmount: clong); message 'scrollColumnsRightBy:';
-    procedure scrollColumnsLeftBy(shiftAmount: clong); message 'scrollColumnsLeftBy:';
-    procedure scrollColumnToVisible(column: clong); message 'scrollColumnToVisible:';
-    procedure setLastColumn(column: clong); message 'setLastColumn:';
-    function lastColumn: clong; message 'lastColumn';
+    procedure scrollColumnsRightBy(shiftAmount: NSInteger); message 'scrollColumnsRightBy:';
+    procedure scrollColumnsLeftBy(shiftAmount: NSInteger); message 'scrollColumnsLeftBy:';
+    procedure scrollColumnToVisible(column: NSInteger); message 'scrollColumnToVisible:';
+    procedure setLastColumn(column: NSInteger); message 'setLastColumn:';
+    function lastColumn: NSInteger; message 'lastColumn';
     procedure addColumn; message 'addColumn';
-    function numberOfVisibleColumns: clong; message 'numberOfVisibleColumns';
-    function firstVisibleColumn: clong; message 'firstVisibleColumn';
-    function lastVisibleColumn: clong; message 'lastVisibleColumn';
-    function columnOfMatrix(matrix: NSMatrix): clong; message 'columnOfMatrix:';
-    function matrixInColumn(column: clong): NSMatrix; message 'matrixInColumn:';
-    function loadedCellAtRow_column(row: clong; col: clong): id; message 'loadedCellAtRow:column:';
+    function numberOfVisibleColumns: NSInteger; message 'numberOfVisibleColumns';
+    function firstVisibleColumn: NSInteger; message 'firstVisibleColumn';
+    function lastVisibleColumn: NSInteger; message 'lastVisibleColumn';
+    function columnOfMatrix(matrix: NSMatrix): NSInteger; message 'columnOfMatrix:';
+    function matrixInColumn(column: NSInteger): NSMatrix; message 'matrixInColumn:';
+    function loadedCellAtRow_column(row: NSInteger; col: NSInteger): id; message 'loadedCellAtRow:column:';
     procedure selectAll(sender: id); message 'selectAll:';
     procedure tile; message 'tile';
     procedure doClick(sender: id); message 'doClick:';
     procedure doDoubleClick(sender: id); message 'doDoubleClick:';
     function sendAction: Boolean; message 'sendAction';
-    function titleFrameOfColumn(column: clong): NSRect; message 'titleFrameOfColumn:';
-    procedure drawTitleOfColumn_inRect(column: clong; aRect: NSRect); message 'drawTitleOfColumn:inRect:';
+    function titleFrameOfColumn(column: NSInteger): NSRect; message 'titleFrameOfColumn:';
+    procedure drawTitleOfColumn_inRect(column: NSInteger; aRect: NSRect); message 'drawTitleOfColumn:inRect:';
     function titleHeight: CGFloat; message 'titleHeight';
-    function frameOfColumn(column: clong): NSRect; message 'frameOfColumn:';
-    function frameOfInsideOfColumn(column: clong): NSRect; message 'frameOfInsideOfColumn:';
+    function frameOfColumn(column: NSInteger): NSRect; message 'frameOfColumn:';
+    function frameOfInsideOfColumn(column: NSInteger): NSRect; message 'frameOfInsideOfColumn:';
     function columnWidthForColumnContentWidth(columnContentWidth: CGFloat): CGFloat; message 'columnWidthForColumnContentWidth:';
     function columnContentWidthForColumnWidth(columnWidth: CGFloat): CGFloat; message 'columnContentWidthForColumnWidth:';
     procedure setColumnResizingType(columnResizingType_: NSBrowserColumnResizingType); message 'setColumnResizingType:';
     function columnResizingType: NSBrowserColumnResizingType; message 'columnResizingType';
     procedure setPrefersAllColumnUserResizing(prefersAllColumnResizing: Boolean); message 'setPrefersAllColumnUserResizing:';
     function prefersAllColumnUserResizing: Boolean; message 'prefersAllColumnUserResizing';
-    procedure setWidth_ofColumn(columnWidth: CGFloat; columnIndex: clong); message 'setWidth:ofColumn:';
-    function widthOfColumn(column: clong): CGFloat; message 'widthOfColumn:';
+    procedure setWidth_ofColumn(columnWidth: CGFloat; columnIndex: NSInteger); message 'setWidth:ofColumn:';
+    function widthOfColumn(column: NSInteger): CGFloat; message 'widthOfColumn:';
     procedure setColumnsAutosaveName(name: NSString); message 'setColumnsAutosaveName:';
     function columnsAutosaveName: NSString; message 'columnsAutosaveName';
     class procedure removeSavedColumnsWithAutosaveName(name: NSString); message 'removeSavedColumnsWithAutosaveName:';
-    function canDragRowsWithIndexes_inColumn_withEvent(rowIndexes: NSIndexSet; column: clong; event: NSEvent): Boolean; message 'canDragRowsWithIndexes:inColumn:withEvent:';
-    function draggingImageForRowsWithIndexes_inColumn_withEvent_offset(rowIndexes: NSIndexSet; column: clong; event: NSEvent; dragImageOffset: NSPointPointer): NSImage; message 'draggingImageForRowsWithIndexes:inColumn:withEvent:offset:';
+    function canDragRowsWithIndexes_inColumn_withEvent(rowIndexes: NSIndexSet; column: NSInteger; event: NSEvent): Boolean; message 'canDragRowsWithIndexes:inColumn:withEvent:';
+    function draggingImageForRowsWithIndexes_inColumn_withEvent_offset(rowIndexes: NSIndexSet; column: NSInteger; event: NSEvent; dragImageOffset: NSPointPointer): NSImage; message 'draggingImageForRowsWithIndexes:inColumn:withEvent:offset:';
     procedure setDraggingSourceOperationMask_forLocal(mask: NSDragOperation; isLocal: Boolean); message 'setDraggingSourceOperationMask:forLocal:';
     function allowsTypeSelect: Boolean; message 'allowsTypeSelect';
     procedure setAllowsTypeSelect(value: Boolean); message 'setAllowsTypeSelect:';
     procedure setBackgroundColor(color: NSColor); message 'setBackgroundColor:';
     function backgroundColor: NSColor; message 'backgroundColor';
-    procedure displayColumn(column: clong); message 'displayColumn:';
+    procedure displayColumn(column: NSInteger); message 'displayColumn:';
     procedure displayAllColumns; message 'displayAllColumns';
     procedure scrollViaScroller(sender: NSScroller); message 'scrollViaScroller:';
     procedure updateScroller; message 'updateScroller';

packages/cocoaint/src/appkit/NSBrowserCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSBrowserCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSBROWSERCELL_PAS_H}

packages/cocoaint/src/appkit/NSButton.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSButton.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSBUTTON_PAS_H}
@@ -64,18 +64,18 @@ type
     function imagePosition: NSCellImagePosition; message 'imagePosition';
     procedure setImagePosition(aPosition: NSCellImagePosition); message 'setImagePosition:';
     procedure setButtonType(aType: NSButtonType); message 'setButtonType:';
-    function state: clong; message 'state';
-    procedure setState(value: clong); message 'setState:';
+    function state: NSInteger; message 'state';
+    procedure setState(value: NSInteger); message 'setState:';
     function isBordered: Boolean; message 'isBordered';
     procedure setBordered(flag: Boolean); message 'setBordered:';
     function isTransparent: Boolean; message 'isTransparent';
     procedure setTransparent(flag: Boolean); message 'setTransparent:';
     procedure setPeriodicDelay_interval(delay: single; interval: single); message 'setPeriodicDelay:interval:';
-    procedure getPeriodicDelay_interval(var delay: single; var interval: single); message 'getPeriodicDelay:interval:';
+    procedure getPeriodicDelay_interval(delay: psingle; interval: psingle); message 'getPeriodicDelay:interval:';
     function keyEquivalent: NSString; message 'keyEquivalent';
     procedure setKeyEquivalent(charCode: NSString); message 'setKeyEquivalent:';
-    function keyEquivalentModifierMask: culong; message 'keyEquivalentModifierMask';
-    procedure setKeyEquivalentModifierMask(mask: culong); message 'setKeyEquivalentModifierMask:';
+    function keyEquivalentModifierMask: NSUInteger; message 'keyEquivalentModifierMask';
+    procedure setKeyEquivalentModifierMask(mask: NSUInteger); message 'setKeyEquivalentModifierMask:';
     procedure highlight(flag: Boolean); message 'highlight:';
     function performKeyEquivalent(key: NSEvent): Boolean; message 'performKeyEquivalent:';
 

packages/cocoaint/src/appkit/NSButtonCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSButtonCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSBUTTONCELL_PAS_H}
@@ -52,9 +52,9 @@ const
 
 { Types }
 type
-  NSButtonType = culong;
-  NSBezelStyle = culong;
-  NSGradientType = culong;
+  NSButtonType = NSUInteger;
+  NSBezelStyle = NSUInteger;
+  NSGradientType = NSUInteger;
 
 {$endif}
 {$endif}
@@ -65,73 +65,73 @@ type
 
 { Records }
 type
-  __BCFlags = record
+  __BCFlags = bitpacked record
 {$ifdef fpc_big_endian}
-    pushIn: cuint;
-    changeContents: cuint;
-    changeBackground: cuint;
-    changeGray: cuint;
-    lightByContents: cuint;
-    lightByBackground: cuint;
-    lightByGray: cuint;
-    drawing: cuint;
-    bordered: cuint;
-    imageOverlaps: cuint;
-    horizontal: cuint;
-    bottomOrLeft: cuint;
-    imageAndText: cuint;
-    imageSizeDiff: cuint;
-    hasKeyEquivalentInsteadOfImage: cuint;
-    lastState: cuint;
-    transparent: cuint;
-    inset: cuint;
-    doesNotDimImage: cuint;
-    gradientType: cuint;
-    useButtonImageSource: cuint;
-    alternateMnemonicLocation: cuint;
+    pushIn: 0..1;
+    changeContents: 0..1;
+    changeBackground: 0..1;
+    changeGray: 0..1;
+    lightByContents: 0..1;
+    lightByBackground: 0..1;
+    lightByGray: 0..1;
+    drawing: 0..1;
+    bordered: 0..1;
+    imageOverlaps: 0..1;
+    horizontal: 0..1;
+    bottomOrLeft: 0..1;
+    imageAndText: 0..1;
+    imageSizeDiff: 0..1;
+    hasKeyEquivalentInsteadOfImage: 0..1;
+    lastState: 0..1;
+    transparent: 0..1;
+    inset: 0..((1 shl 2)-1);
+    doesNotDimImage: 0..1;
+    gradientType: 0..((1 shl 3)-1);
+    useButtonImageSource: 0..1;
+    alternateMnemonicLocation: 0..((1 shl 8)-1);
 {$else}
-    alternateMnemonicLocation: cuint;
-    useButtonImageSource: cuint;
-    gradientType: cuint;
-    doesNotDimImage: cuint;
-    inset: cuint;
-    transparent: cuint;
-    lastState: cuint;
-    hasKeyEquivalentInsteadOfImage: cuint;
-    imageSizeDiff: cuint;
-    imageAndText: cuint;
-    bottomOrLeft: cuint;
-    horizontal: cuint;
-    imageOverlaps: cuint;
-    bordered: cuint;
-    drawing: cuint;
-    lightByGray: cuint;
-    lightByBackground: cuint;
-    lightByContents: cuint;
-    changeGray: cuint;
-    changeBackground: cuint;
-    changeContents: cuint;
-    pushIn: cuint;
+    alternateMnemonicLocation: 0..((1 shl 8)-1);
+    useButtonImageSource: 0..1;
+    gradientType: 0..((1 shl 3)-1);
+    doesNotDimImage: 0..1;
+    inset: 0..((1 shl 2)-1);
+    transparent: 0..1;
+    lastState: 0..1;
+    hasKeyEquivalentInsteadOfImage: 0..1;
+    imageSizeDiff: 0..1;
+    imageAndText: 0..1;
+    bottomOrLeft: 0..1;
+    horizontal: 0..1;
+    imageOverlaps: 0..1;
+    bordered: 0..1;
+    drawing: 0..1;
+    lightByGray: 0..1;
+    lightByBackground: 0..1;
+    lightByContents: 0..1;
+    changeGray: 0..1;
+    changeBackground: 0..1;
+    changeContents: 0..1;
+    pushIn: 0..1;
 {$endif}
   end;
 _BCFlags = __BCFlags;
 
 type
-  __BCFlags2 = record
+  __BCFlags2 = bitpacked record
 {$ifdef fpc_big_endian}
-    keyEquivalentModifierMask: cuint;
-    imageScaling: cuint;
-    bezelStyle2: cuint;
-    mouseInside: cuint;
-    showsBorderOnlyWhileMouseInside: cuint;
-    bezelStyle: cuint;
+    keyEquivalentModifierMask: 0..((1 shl 24)-1);
+    imageScaling: 0..((1 shl 2)-1);
+    bezelStyle2: 0..1;
+    mouseInside: 0..1;
+    showsBorderOnlyWhileMouseInside: 0..1;
+    bezelStyle: 0..((1 shl 3)-1);
 {$else}
-    bezelStyle: cuint;
-    showsBorderOnlyWhileMouseInside: cuint;
-    mouseInside: cuint;
-    bezelStyle2: cuint;
-    imageScaling: cuint;
-    keyEquivalentModifierMask: cuint;
+    bezelStyle: 0..((1 shl 3)-1);
+    showsBorderOnlyWhileMouseInside: 0..1;
+    mouseInside: 0..1;
+    bezelStyle2: 0..1;
+    imageScaling: 0..((1 shl 2)-1);
+    keyEquivalentModifierMask: 0..((1 shl 24)-1);
 {$endif}
   end;
 _BCFlags2 = __BCFlags2;
@@ -189,21 +189,21 @@ _BCFlags2 = __BCFlags2;
     procedure setImagePosition(aPosition: NSCellImagePosition); message 'setImagePosition:';
     function imageScaling: NSImageScaling; message 'imageScaling';
     procedure setImageScaling(scaling: NSImageScaling); message 'setImageScaling:';
-    function highlightsBy: clong; message 'highlightsBy';
-    procedure setHighlightsBy(aType: clong); message 'setHighlightsBy:';
-    function showsStateBy: clong; message 'showsStateBy';
-    procedure setShowsStateBy(aType: clong); message 'setShowsStateBy:';
+    function highlightsBy: NSInteger; message 'highlightsBy';
+    procedure setHighlightsBy(aType: NSInteger); message 'setHighlightsBy:';
+    function showsStateBy: NSInteger; message 'showsStateBy';
+    procedure setShowsStateBy(aType: NSInteger); message 'setShowsStateBy:';
     procedure setButtonType(aType: NSButtonType); message 'setButtonType:';
     function isOpaque: Boolean; message 'isOpaque';
     procedure setFont(fontObj: NSFont); message 'setFont:';
     function isTransparent: Boolean; message 'isTransparent';
     procedure setTransparent(flag: Boolean); message 'setTransparent:';
     procedure setPeriodicDelay_interval(delay: single; interval: single); message 'setPeriodicDelay:interval:';
-    procedure getPeriodicDelay_interval(var delay: single; var interval: single); message 'getPeriodicDelay:interval:';
+    procedure getPeriodicDelay_interval(delay: psingle; interval: psingle); message 'getPeriodicDelay:interval:';
     function keyEquivalent: NSString; message 'keyEquivalent';
     procedure setKeyEquivalent(aKeyEquivalent: NSString); message 'setKeyEquivalent:';
-    function keyEquivalentModifierMask: culong; message 'keyEquivalentModifierMask';
-    procedure setKeyEquivalentModifierMask(mask: culong); message 'setKeyEquivalentModifierMask:';
+    function keyEquivalentModifierMask: NSUInteger; message 'keyEquivalentModifierMask';
+    procedure setKeyEquivalentModifierMask(mask: NSUInteger); message 'setKeyEquivalentModifierMask:';
     function keyEquivalentFont: NSFont; message 'keyEquivalentFont';
     procedure setKeyEquivalentFont(fontObj: NSFont); message 'setKeyEquivalentFont:';
     procedure setKeyEquivalentFont_size(fontName: NSString; fontSize: CGFloat); message 'setKeyEquivalentFont:size:';
@@ -215,8 +215,8 @@ _BCFlags2 = __BCFlags2;
     { Category: NSKeyboardUI }
     procedure setTitleWithMnemonic(stringWithAmpersand: NSString); message 'setTitleWithMnemonic:';
     procedure setAlternateTitleWithMnemonic(stringWithAmpersand: NSString); message 'setAlternateTitleWithMnemonic:';
-    procedure setAlternateMnemonicLocation(location: culong); message 'setAlternateMnemonicLocation:';
-    function alternateMnemonicLocation: culong; message 'alternateMnemonicLocation';
+    procedure setAlternateMnemonicLocation(location: NSUInteger); message 'setAlternateMnemonicLocation:';
+    function alternateMnemonicLocation: NSUInteger; message 'alternateMnemonicLocation';
     function alternateMnemonic: NSString; message 'alternateMnemonic';
 
     { Category: NSButtonCellExtensions }

packages/cocoaint/src/appkit/NSCIImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSCIImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCIIMAGEREP_PAS_H}
@@ -55,9 +55,9 @@ type
   public
     class function alloc: NSCIImageRep; message 'alloc';
 
-    class function imageRepWithCIImage(var image: CIImage_): id; message 'imageRepWithCIImage:';
-    function initWithCIImage(var image: CIImage_): id; message 'initWithCIImage:';
-    function CIImage: CIImage_; message 'CIImage';
+    class function imageRepWithCIImage(image: CIImage_Pointer): id; message 'imageRepWithCIImage:';
+    function initWithCIImage(image: CIImage_Pointer): id; message 'initWithCIImage:';
+    function CIImage: CIImage; message 'CIImage';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSCachedImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSCachedImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCACHEDIMAGEREP_PAS_H}

packages/cocoaint/src/appkit/NSCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCELL_PAS_H}
@@ -87,18 +87,14 @@ const
 
 { Types }
 type
-  NSCellType = culong;
-  NSCellAttribute = culong;
-  NSCellImagePosition = culong;
-  NSImageScaling = culong;
-  NSCellStateValue = clong;
-  NSControlTint = culong;
-  NSControlSize = culong;
-  NSBackgroundStyle = clong;
-
-{ CFString constants }
-var
-  NSControlTintDidChangeNotification: CFStringRef; external name '_NSControlTintDidChangeNotification';
+  NSCellType = NSUInteger;
+  NSCellAttribute = NSUInteger;
+  NSCellImagePosition = NSUInteger;
+  NSImageScaling = NSUInteger;
+  NSCellStateValue = NSInteger;
+  NSControlTint = NSUInteger;
+  NSControlSize = NSUInteger;
+  NSBackgroundStyle = NSInteger;
 
 {$endif}
 {$endif}
@@ -109,54 +105,54 @@ var
 
 { Records }
 type
-  __CFlags = record
-    state: cuint;
-    highlighted: cuint;
-    disabled: cuint;
-    editable: cuint;
-    type_: NSCellType;
-    vCentered: cuint;
-    hCentered: cuint;
-    bordered: cuint;
-    bezeled: cuint;
-    selectable: cuint;
-    scrollable: cuint;
-    continuous: cuint;
-    actOnMouseDown: cuint;
-    isLeaf: cuint;
-    invalidObjectValue: cuint;
-    invalidFont: cuint;
-    lineBreakMode: NSLineBreakMode;
-    backgroundStyle: cuint;
-    reserved1: cuint;
-    actOnMouseDragged: cuint;
-    isLoaded: cuint;
-    truncateLastLine: cuint;
-    dontActOnMouseUp: cuint;
-    isWhite: cuint;
-    useUserKeyEquivalent: cuint;
-    showsFirstResponder: cuint;
-    focusRingType: cuint;
-    wasSelectable: cuint;
-    hasInvalidObject: cuint;
-    allowsEditingTextAttributes: cuint;
-    importsGraphics: cuint;
-    alignment: NSTextAlignment;
-    reserved: cuint;
-    refusesFirstResponder: cuint;
-    needsHighlightedText: cuint;
-    dontAllowsUndo: cuint;
-    currentlyEditing: cuint;
-    allowsMixedState: cuint;
-    inMixedState: cuint;
-    sendsActionOnEndEditing: cuint;
-    inSendAction: cuint;
-    menuWasSet: cuint;
-    controlTint: cuint;
-    controlSize: cuint;
-    branchImageDisabled: cuint;
-    drawingInRevealover: cuint;
-    needsHighlightedTextHint: cuint;
+  __CFlags = bitpacked record
+    state: 0..1;
+    highlighted: 0..1;
+    disabled: 0..1;
+    editable: 0..1;
+    type_: 0..((1 shl 2)-1);
+    vCentered: 0..1;
+    hCentered: 0..1;
+    bordered: 0..1;
+    bezeled: 0..1;
+    selectable: 0..1;
+    scrollable: 0..1;
+    continuous: 0..1;
+    actOnMouseDown: 0..1;
+    isLeaf: 0..1;
+    invalidObjectValue: 0..1;
+    invalidFont: 0..1;
+    lineBreakMode: 0..((1 shl 3)-1);
+    backgroundStyle: 0..((1 shl 2)-1);
+    reserved1: 0..1;
+    actOnMouseDragged: 0..1;
+    isLoaded: 0..1;
+    truncateLastLine: 0..1;
+    dontActOnMouseUp: 0..1;
+    isWhite: 0..1;
+    useUserKeyEquivalent: 0..1;
+    showsFirstResponder: 0..1;
+    focusRingType: 0..((1 shl 2)-1);
+    wasSelectable: 0..1;
+    hasInvalidObject: 0..1;
+    allowsEditingTextAttributes: 0..1;
+    importsGraphics: 0..1;
+    alignment: 0..((1 shl 3)-1);
+    reserved: 0..((1 shl 8)-1);
+    refusesFirstResponder: 0..1;
+    needsHighlightedText: 0..1;
+    dontAllowsUndo: 0..1;
+    currentlyEditing: 0..1;
+    allowsMixedState: 0..1;
+    inMixedState: 0..1;
+    sendsActionOnEndEditing: 0..1;
+    inSendAction: 0..1;
+    menuWasSet: 0..1;
+    controlTint: 0..((1 shl 3)-1);
+    controlSize: 0..((1 shl 2)-1);
+    branchImageDisabled: 0..1;
+    drawingInRevealover: 0..1;
+    needsHighlightedTextHint: 0..1;
   end;
 _CFlags = __CFlags;
 
@@ -169,8 +165,8 @@ _CFlags = __CFlags;
 {$define NSCELL_PAS_F}
 
 { Functions }
-procedure NSDrawThreePartImage(frame: NSRect; var startCap: NSImage; var centerFill: NSImage; var endCap: NSImage; vertical: Boolean; op: NSCompositingOperation; alphaFraction: CGFloat; flipped: Boolean); cdecl; external name 'NSDrawThreePartImage';
-procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var topEdgeFill: NSImage; var topRightCorner: NSImage; var leftEdgeFill: NSImage; var centerFill: NSImage; var rightEdgeFill: NSImage; var bottomLeftCorner: NSImage; var bottomEdgeFill: NSImage; var bottomRightCorner: NSImage; op: NSCompositingOperation; alphaFraction: CGFloat; flipped: Boolean); cdecl; external name 'NSDrawNinePartImage';
+procedure NSDrawThreePartImage(frame: NSRect; startCapPointer: NSImage; centerFillPointer: NSImage; endCapPointer: NSImage; vertical: Boolean; op: NSCompositingOperation; alphaFraction: CGFloat; flipped: Boolean); cdecl; external name 'NSDrawThreePartImage';
+procedure NSDrawNinePartImage(frame: NSRect; topLeftCornerPointer: NSImage; topEdgeFillPointer: NSImage; topRightCornerPointer: NSImage; leftEdgeFillPointer: NSImage; centerFillPointer: NSImage; rightEdgeFillPointer: NSImage; bottomLeftCornerPointer: NSImage; bottomEdgeFillPointer: NSImage; bottomRightCornerPointer: NSImage; op: NSCompositingOperation; alphaFraction: CGFloat; flipped: Boolean); cdecl; external name 'NSDrawNinePartImage';
 
 {$endif}
 {$endif}
@@ -179,6 +175,10 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
 {$ifndef NSCELL_PAS_T}
 {$define NSCELL_PAS_T}
 
+{ External string constants }
+var
+  NSControlTintDidChangeNotification: NSString; external name '_NSControlTintDidChangeNotification';
+
 {$endif}
 {$endif}
 
@@ -208,20 +208,20 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
     procedure setControlView(view: NSView); message 'setControlView:';
     function type_: NSCellType; message 'type';
     procedure setType(aType: NSCellType); message 'setType:';
-    function state: clong; message 'state';
-    procedure setState(value: clong); message 'setState:';
+    function state: NSInteger; message 'state';
+    procedure setState(value: NSInteger); message 'setState:';
     function target: id; message 'target';
     procedure setTarget(anObject: id); message 'setTarget:';
     function action: SEL; message 'action';
     procedure setAction(aSelector: SEL); message 'setAction:';
-    function tag: clong; message 'tag';
-    procedure setTag(anInt: clong); message 'setTag:';
+    function tag: NSInteger; message 'tag';
+    procedure setTag(anInt: NSInteger); message 'setTag:';
     function title: NSString; message 'title';
     procedure setTitle(aString: NSString); message 'setTitle:';
     function isOpaque: Boolean; message 'isOpaque';
     function isEnabled: Boolean; message 'isEnabled';
     procedure setEnabled(flag: Boolean); message 'setEnabled:';
-    function sendActionOn(mask: clong): clong; message 'sendActionOn:';
+    function sendActionOn(mask: NSInteger): NSInteger; message 'sendActionOn:';
     function isContinuous: Boolean; message 'isContinuous';
     procedure setContinuous(flag: Boolean); message 'setContinuous:';
     function isEditable: Boolean; message 'isEditable';
@@ -242,10 +242,10 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
     procedure setWraps(flag: Boolean); message 'setWraps:';
     function font: NSFont; message 'font';
     procedure setFont(fontObj: NSFont); message 'setFont:';
-    function entryType: clong; message 'entryType';
-    procedure setEntryType(aType: clong); message 'setEntryType:';
+    function entryType: NSInteger; message 'entryType';
+    procedure setEntryType(aType: NSInteger); message 'setEntryType:';
     function isEntryAcceptable(aString: NSString): Boolean; message 'isEntryAcceptable:';
-    procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: culong; rightDigits: culong); message 'setFloatingPointFormat:left:right:';
+    procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: NSUInteger; rightDigits: NSUInteger); message 'setFloatingPointFormat:left:right:';
     function keyEquivalent: NSString; message 'keyEquivalent';
     procedure setFormatter(newFormatter: NSFormatter); message 'setFormatter:';
     function formatter: id; message 'formatter';
@@ -274,8 +274,8 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
     function controlSize: NSControlSize; message 'controlSize';
     function representedObject: id; message 'representedObject';
     procedure setRepresentedObject(anObject: id); message 'setRepresentedObject:';
-    function cellAttribute(aParameter: NSCellAttribute): clong; message 'cellAttribute:';
-    procedure setCellAttribute_to(aParameter: NSCellAttribute; value: clong); message 'setCellAttribute:to:';
+    function cellAttribute(aParameter: NSCellAttribute): NSInteger; message 'cellAttribute:';
+    procedure setCellAttribute_to(aParameter: NSCellAttribute; value: NSInteger); message 'setCellAttribute:to:';
     function imageRectForBounds(theRect: NSRect): NSRect; message 'imageRectForBounds:';
     function titleRectForBounds(theRect: NSRect): NSRect; message 'titleRectForBounds:';
     function drawingRectForBounds(theRect: NSRect): NSRect; message 'drawingRectForBounds:';
@@ -287,14 +287,14 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
     procedure drawInteriorWithFrame_inView(cellFrame: NSRect; controlView_: NSView); message 'drawInteriorWithFrame:inView:';
     procedure drawWithFrame_inView(cellFrame: NSRect; controlView_: NSView); message 'drawWithFrame:inView:';
     procedure highlight_withFrame_inView(flag: Boolean; cellFrame: NSRect; controlView_: NSView); message 'highlight:withFrame:inView:';
-    function mouseDownFlags: clong; message 'mouseDownFlags';
-    procedure getPeriodicDelay_interval(var delay: single; var interval: single); message 'getPeriodicDelay:interval:';
+    function mouseDownFlags: NSInteger; message 'mouseDownFlags';
+    procedure getPeriodicDelay_interval(delay: psingle; interval: psingle); message 'getPeriodicDelay:interval:';
     function startTrackingAt_inView(startPoint: NSPoint; controlView_: NSView): Boolean; message 'startTrackingAt:inView:';
     function continueTracking_at_inView(lastPoint: NSPoint; currentPoint: NSPoint; controlView_: NSView): Boolean; message 'continueTracking:at:inView:';
     procedure stopTracking_at_inView_mouseIsUp(lastPoint: NSPoint; stopPoint: NSPoint; controlView_: NSView; flag: Boolean); message 'stopTracking:at:inView:mouseIsUp:';
     function trackMouse_inRect_ofView_untilMouseUp(theEvent: NSEvent; cellFrame: NSRect; controlView_: NSView; flag: Boolean): Boolean; message 'trackMouse:inRect:ofView:untilMouseUp:';
     procedure editWithFrame_inView_editor_delegate_event(aRect: NSRect; controlView_: NSView; textObj: NSText; anObject: id; theEvent: NSEvent); message 'editWithFrame:inView:editor:delegate:event:';
-    procedure selectWithFrame_inView_editor_delegate_start_length(aRect: NSRect; controlView_: NSView; textObj: NSText; anObject: id; selStart: clong; selLength: clong); message 'selectWithFrame:inView:editor:delegate:start:length:';
+    procedure selectWithFrame_inView_editor_delegate_start_length(aRect: NSRect; controlView_: NSView; textObj: NSText; anObject: id; selStart: NSInteger; selLength: NSInteger); message 'selectWithFrame:inView:editor:delegate:start:length:';
     procedure endEditing(textObj: NSText); message 'endEditing:';
     procedure resetCursorRect_inView(cellFrame: NSRect; controlView_: NSView); message 'resetCursorRect:inView:';
     procedure setMenu(aMenu: NSMenu); message 'setMenu:';
@@ -309,8 +309,8 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
     function lineBreakMode: NSLineBreakMode; message 'lineBreakMode';
     procedure setAllowsUndo(allowsUndo_: Boolean); message 'setAllowsUndo:';
     function allowsUndo: Boolean; message 'allowsUndo';
-    function integerValue: clong; message 'integerValue';
-    procedure setIntegerValue(anInteger: clong); message 'setIntegerValue:';
+    function integerValue: NSInteger; message 'integerValue';
+    procedure setIntegerValue(anInteger: NSInteger); message 'setIntegerValue:';
     procedure takeIntegerValueFrom(sender: id); message 'takeIntegerValueFrom:';
     procedure setTruncatesLastVisibleLine(flag: Boolean); message 'setTruncatesLastVisibleLine:';
 
@@ -320,8 +320,8 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
     function acceptsFirstResponder: Boolean; message 'acceptsFirstResponder';
     procedure setShowsFirstResponder(showFR: Boolean); message 'setShowsFirstResponder:';
     function showsFirstResponder: Boolean; message 'showsFirstResponder';
-    procedure setMnemonicLocation(location: culong); message 'setMnemonicLocation:';
-    function mnemonicLocation: culong; message 'mnemonicLocation';
+    procedure setMnemonicLocation(location: NSUInteger); message 'setMnemonicLocation:';
+    function mnemonicLocation: NSUInteger; message 'mnemonicLocation';
     function mnemonic: NSString; message 'mnemonic';
     procedure setTitleWithMnemonic(stringWithAmpersand: NSString); message 'setTitleWithMnemonic:';
     procedure performClick(sender: id); message 'performClick:';
@@ -341,11 +341,11 @@ procedure NSDrawNinePartImage(frame: NSRect; var topLeftCorner: NSImage; var top
     { Category: NSCellMixedState }
     procedure setAllowsMixedState(flag: Boolean); message 'setAllowsMixedState:';
     function allowsMixedState: Boolean; message 'allowsMixedState';
-    function nextState: clong; message 'nextState';
+    function nextState: NSInteger; message 'nextState';
     procedure setNextState; message 'setNextState';
 
     { Category: NSCellHitTest }
-    function hitTestForEvent_inRect_ofView(event: NSEvent; cellFrame: NSRect; controlView_: NSView): culong; message 'hitTestForEvent:inRect:ofView:';
+    function hitTestForEvent_inRect_ofView(event: NSEvent; cellFrame: NSRect; controlView_: NSView): NSUInteger; message 'hitTestForEvent:inRect:ofView:';
 
     { Category: NSCellExpansion }
     function expansionFrameWithFrame_inView(cellFrame: NSRect; view: NSView): NSRect; message 'expansionFrameWithFrame:inView:';

packages/cocoaint/src/appkit/NSClipView.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSClipView.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCLIPVIEW_PAS_H}

packages/cocoaint/src/appkit/NSCollectionView.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSCollectionView.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOLLECTIONVIEW_PAS_H}
@@ -52,7 +52,7 @@ type
 { NSCollectionViewItem }
   NSCollectionViewItem = objcclass(NSObject, NSCopyingProtocol, NSCodingProtocol)
   private
-    __reserved: Pointer;
+        _reserved: array[0..1] of Pointer;
     __archive: NSMutableData;
     __ownerView: NSCollectionView;
     __representedObject: id;
@@ -65,7 +65,7 @@ type
       end;
     __targetViewFrameRect: NSRect;
     __appliedViewFrameRect: NSRect;
-    __containerReferenceCounter: culong;
+    __containerReferenceCounter: NSUInteger;
     
   public
     class function alloc: NSCollectionViewItem; message 'alloc';
@@ -82,17 +82,17 @@ type
 { NSCollectionView }
   NSCollectionView = objcclass(NSView)
   private
-    __reserved: Pointer;
+        _reserved: array[0..8] of Pointer;
     __backgroundLayers: NSMutableArray;
     __content: NSArray;
     __selectionIndexes: NSMutableIndexSet;
     __itemPrototype: NSCollectionViewItem;
     __minGridSize: NSSize;
     __maxGridSize: NSSize;
-    __minGridRows: culong;
-    __maxGridRows: culong;
-    __minGridColumns: culong;
-    __maxGridColumns: culong;
+    __minGridRows: NSUInteger;
+    __maxGridRows: NSUInteger;
+    __minGridColumns: NSUInteger;
+    __maxGridColumns: NSUInteger;
     __backgroundColors: NSArray;
     __animationContainerFlags: bitpacked record
         _ignoreFrameSizeChanges: 0..1;
@@ -107,14 +107,14 @@ type
     __targetFrameSize: NSSize;
     __targetGridSize: NSSize;
     __targetUnfilledViewSpace: NSSize;
-    __targetNumberOfGridRows: culong;
-    __targetNumberOfGridColumns: culong;
+    __targetNumberOfGridRows: NSUInteger;
+    __targetNumberOfGridColumns: NSUInteger;
     __targetItems: NSMutableArray;
     __appliedFrameSize: NSSize;
     __appliedGridSize: NSSize;
     __appliedUnfilledViewSpace: NSSize;
-    __appliedNumberOfGridRows: culong;
-    __appliedNumberOfGridColumns: culong;
+    __appliedNumberOfGridRows: NSUInteger;
+    __appliedNumberOfGridColumns: NSUInteger;
     __appliedItems: NSMutableArray;
     __appliedItemsAsSet: NSMutableSet;
     __appliedRemovedItemsAsSet: NSMutableSet;
@@ -138,10 +138,10 @@ type
     function newItemForRepresentedObject(object_: id): NSCollectionViewItem; message 'newItemForRepresentedObject:';
     procedure setItemPrototype(prototype: NSCollectionViewItem); message 'setItemPrototype:';
     function itemPrototype: NSCollectionViewItem; message 'itemPrototype';
-    procedure setMaxNumberOfRows(number: culong); message 'setMaxNumberOfRows:';
-    function maxNumberOfRows: culong; message 'maxNumberOfRows';
-    procedure setMaxNumberOfColumns(number: culong); message 'setMaxNumberOfColumns:';
-    function maxNumberOfColumns: culong; message 'maxNumberOfColumns';
+    procedure setMaxNumberOfRows(number: NSUInteger); message 'setMaxNumberOfRows:';
+    function maxNumberOfRows: NSUInteger; message 'maxNumberOfRows';
+    procedure setMaxNumberOfColumns(number: NSUInteger); message 'setMaxNumberOfColumns:';
+    function maxNumberOfColumns: NSUInteger; message 'maxNumberOfColumns';
     procedure setMinItemSize(size: NSSize); message 'setMinItemSize:';
     function minItemSize: NSSize; message 'minItemSize';
     procedure setMaxItemSize(size: NSSize); message 'setMaxItemSize:';

packages/cocoaint/src/appkit/NSColor.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSColor.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOLOR_PAS_H}
@@ -18,10 +18,6 @@ type
 const
   NSAppKitVersionNumberWithPatternColorLeakFix = 641.0;
 
-{ CFString constants }
-var
-  NSSystemColorsDidChangeNotification: CFStringRef; external name '_NSSystemColorsDidChangeNotification';
-
 {$endif}
 {$endif}
 
@@ -43,6 +39,10 @@ var
 {$ifndef NSCOLOR_PAS_T}
 {$define NSCOLOR_PAS_T}
 
+{ External string constants }
+var
+  NSSystemColorsDidChangeNotification: NSString; external name '_NSSystemColorsDidChangeNotification';
+
 {$endif}
 {$endif}
 
@@ -69,7 +69,7 @@ var
     class function colorWithDeviceRed_green_blue_alpha(red: CGFloat; green: CGFloat; blue: CGFloat; alpha: CGFloat): NSColor; message 'colorWithDeviceRed:green:blue:alpha:';
     class function colorWithDeviceCyan_magenta_yellow_black_alpha(cyan: CGFloat; magenta: CGFloat; yellow: CGFloat; black: CGFloat; alpha: CGFloat): NSColor; message 'colorWithDeviceCyan:magenta:yellow:black:alpha:';
     class function colorWithCatalogName_colorName(listName: NSString; colorName: NSString): NSColor; message 'colorWithCatalogName:colorName:';
-    class function colorWithColorSpace_components_count(space: NSColorSpace; var components: CGFloat; numberOfComponents_: clong): NSColor; message 'colorWithColorSpace:components:count:';
+    class function colorWithColorSpace_components_count(space: NSColorSpace; components: psingle; numberOfComponents_: NSInteger): NSColor; message 'colorWithColorSpace:components:count:';
     class function blackColor: NSColor; message 'blackColor';
     class function darkGrayColor: NSColor; message 'darkGrayColor';
     class function lightGrayColor: NSColor; message 'lightGrayColor';
@@ -137,21 +137,21 @@ var
     function redComponent: CGFloat; message 'redComponent';
     function greenComponent: CGFloat; message 'greenComponent';
     function blueComponent: CGFloat; message 'blueComponent';
-    procedure getRed_green_blue_alpha(var red: CGFloat; var green: CGFloat; var blue: CGFloat; var alpha: CGFloat); message 'getRed:green:blue:alpha:';
+    procedure getRed_green_blue_alpha(red: psingle; green: psingle; blue: psingle; alpha: psingle); message 'getRed:green:blue:alpha:';
     function hueComponent: CGFloat; message 'hueComponent';
     function saturationComponent: CGFloat; message 'saturationComponent';
     function brightnessComponent: CGFloat; message 'brightnessComponent';
-    procedure getHue_saturation_brightness_alpha(var hue: CGFloat; var saturation: CGFloat; var brightness: CGFloat; var alpha: CGFloat); message 'getHue:saturation:brightness:alpha:';
+    procedure getHue_saturation_brightness_alpha(hue: psingle; saturation: psingle; brightness: psingle; alpha: psingle); message 'getHue:saturation:brightness:alpha:';
     function whiteComponent: CGFloat; message 'whiteComponent';
-    procedure getWhite_alpha(var white: CGFloat; var alpha: CGFloat); message 'getWhite:alpha:';
+    procedure getWhite_alpha(white: psingle; alpha: psingle); message 'getWhite:alpha:';
     function cyanComponent: CGFloat; message 'cyanComponent';
     function magentaComponent: CGFloat; message 'magentaComponent';
     function yellowComponent: CGFloat; message 'yellowComponent';
     function blackComponent: CGFloat; message 'blackComponent';
-    procedure getCyan_magenta_yellow_black_alpha(var cyan: CGFloat; var magenta: CGFloat; var yellow: CGFloat; var black: CGFloat; var alpha: CGFloat); message 'getCyan:magenta:yellow:black:alpha:';
+    procedure getCyan_magenta_yellow_black_alpha(cyan: psingle; magenta: psingle; yellow: psingle; black: psingle; alpha: psingle); message 'getCyan:magenta:yellow:black:alpha:';
     function colorSpace: NSColorSpace; message 'colorSpace';
-    function numberOfComponents: clong; message 'numberOfComponents';
-    procedure getComponents(var components: CGFloat); message 'getComponents:';
+    function numberOfComponents: NSInteger; message 'numberOfComponents';
+    procedure getComponents(components: psingle); message 'getComponents:';
     function alphaComponent: CGFloat; message 'alphaComponent';
     class function colorFromPasteboard(pasteBoard: NSPasteboard): NSColor; message 'colorFromPasteboard:';
     procedure writeToPasteboard(pasteBoard: NSPasteboard); message 'writeToPasteboard:';
@@ -162,7 +162,7 @@ var
     class function ignoresAlpha: Boolean; message 'ignoresAlpha';
 
     { Category: NSQuartzCoreAdditions }
-    class function colorWithCIColor(var color: CIColor): NSColor; message 'colorWithCIColor:';
+    class function colorWithCIColor(color: CIColorPointer): NSColor; message 'colorWithCIColor:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSColorList.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSColorList.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOLORLIST_PAS_H}
@@ -14,10 +14,6 @@ type
 {$ifndef NSCOLORLIST_PAS_T}
 {$define NSCOLORLIST_PAS_T}
 
-{ CFString constants }
-var
-  NSColorListDidChangeNotification: CFStringRef; external name '_NSColorListDidChangeNotification';
-
 {$endif}
 {$endif}
 
@@ -39,6 +35,10 @@ var
 {$ifndef NSCOLORLIST_PAS_T}
 {$define NSCOLORLIST_PAS_T}
 
+{ External string constants }
+var
+  NSColorListDidChangeNotification: NSString; external name '_NSColorListDidChangeNotification';
+
 {$endif}
 {$endif}
 
@@ -85,7 +85,7 @@ var
     function initWithName_fromFile(name_: NSString; path: NSString): id; message 'initWithName:fromFile:';
     function name: NSString; message 'name';
     procedure setColor_forKey(color: NSColor; key: NSString); message 'setColor:forKey:';
-    procedure insertColor_key_atIndex(color: NSColor; key: NSString; loc: culong); message 'insertColor:key:atIndex:';
+    procedure insertColor_key_atIndex(color: NSColor; key: NSString; loc: NSUInteger); message 'insertColor:key:atIndex:';
     procedure removeColorWithKey(key: NSString); message 'removeColorWithKey:';
     function colorWithKey(key: NSString): NSColor; message 'colorWithKey:';
     function allKeys: NSArray; message 'allKeys';

packages/cocoaint/src/appkit/NSColorPanel.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSColorPanel.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOLORPANEL_PAS_H}
@@ -16,7 +16,7 @@ type
 
 { Types }
 type
-  NSColorPanelMode = clong;
+  NSColorPanelMode = NSInteger;
 
 { Constants }
 
@@ -42,10 +42,6 @@ const
   NSColorPanelCrayonModeMask = $00000080;
   NSColorPanelAllModesMask = $0000ffff;
 
-{ CFString constants }
-var
-  NSColorPanelColorDidChangeNotification: CFStringRef; external name '_NSColorPanelColorDidChangeNotification';
-
 {$endif}
 {$endif}
 
@@ -67,6 +63,10 @@ var
 {$ifndef NSCOLORPANEL_PAS_T}
 {$define NSCOLORPANEL_PAS_T}
 
+{ External string constants }
+var
+  NSColorPanelColorDidChangeNotification: NSString; external name '_NSColorPanelColorDidChangeNotification';
+
 {$endif}
 {$endif}
 
@@ -120,7 +120,7 @@ var
     class function sharedColorPanel: NSColorPanel; message 'sharedColorPanel';
     class function sharedColorPanelExists: Boolean; message 'sharedColorPanelExists';
     class function dragColor_withEvent_fromView(color_: NSColor; theEvent: NSEvent; sourceView: NSView): Boolean; message 'dragColor:withEvent:fromView:';
-    class procedure setPickerMask(mask: culong); message 'setPickerMask:';
+    class procedure setPickerMask(mask: NSUInteger); message 'setPickerMask:';
     class procedure setPickerMode(mode_: NSColorPanelMode); message 'setPickerMode:';
     procedure setAccessoryView(aView: NSView); message 'setAccessoryView:';
     function accessoryView: NSView; message 'accessoryView';

packages/cocoaint/src/appkit/NSColorPicker.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSColorPicker.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOLORPICKER_PAS_H}
@@ -57,7 +57,7 @@ type
   public
     class function alloc: NSColorPicker; message 'alloc';
 
-    function initWithPickerMask_colorPanel(mask: culong; owningColorPanel: NSColorPanel): id; message 'initWithPickerMask:colorPanel:';
+    function initWithPickerMask_colorPanel(mask: NSUInteger; owningColorPanel: NSColorPanel): id; message 'initWithPickerMask:colorPanel:';
     function colorPanel: NSColorPanel; message 'colorPanel';
     function provideNewButtonImage: NSImage; message 'provideNewButtonImage';
     procedure insertNewButtonImage_in(newButtonImage: NSImage; buttonCell: NSButtonCell); message 'insertNewButtonImage:in:';

packages/cocoaint/src/appkit/NSColorPicking.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSColorPicking.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}
@@ -41,7 +41,7 @@
   
 { NSColorPickingDefault Protocol }
   NSColorPickingDefaultProtocol = objcprotocol
-    function initWithPickerMask_colorPanel(mask: culong; owningColorPanel: NSColorPanel): id; message 'initWithPickerMask:colorPanel:';
+    function initWithPickerMask_colorPanel(mask: NSUInteger; owningColorPanel: NSColorPanel): id; message 'initWithPickerMask:colorPanel:';
     function provideNewButtonImage: NSImage; message 'provideNewButtonImage';
     procedure insertNewButtonImage_in(newButtonImage: NSImage; buttonCell: NSButtonCell); message 'insertNewButtonImage:in:';
     procedure viewSizeChanged(sender: id); message 'viewSizeChanged:';

packages/cocoaint/src/appkit/NSColorSpace.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSColorSpace.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOLORSPACE_PAS_H}
@@ -28,7 +28,7 @@ const
 
 { Types }
 type
-  NSColorSpaceModel = clong;
+  NSColorSpaceModel = NSInteger;
 
 {$endif}
 {$endif}
@@ -77,7 +77,7 @@ type
         {$endif}
       end;
     ___cgColorSpace: Pointer;
-    __reserved: Pointer;
+        _reserved: array[0..4] of Pointer;
     
   public
     class function alloc: NSColorSpace; message 'alloc';
@@ -88,7 +88,7 @@ type
     function colorSyncProfile: Pointer; message 'colorSyncProfile';
     function initWithCGColorSpace(CGColorSpace_: CGColorSpaceRef): id; message 'initWithCGColorSpace:';
     function CGColorSpace: CGColorSpaceRef; message 'CGColorSpace';
-    function numberOfColorComponents: clong; message 'numberOfColorComponents';
+    function numberOfColorComponents: NSInteger; message 'numberOfColorComponents';
     function colorSpaceModel: NSColorSpaceModel; message 'colorSpaceModel';
     function localizedName: NSString; message 'localizedName';
     class function genericRGBColorSpace: NSColorSpace; message 'genericRGBColorSpace';

packages/cocoaint/src/appkit/NSColorWell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSColorWell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOLORWELL_PAS_H}

packages/cocoaint/src/appkit/NSComboBox.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSComboBox.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOMBOBOX_PAS_H}
@@ -14,13 +14,6 @@ type
 {$ifndef NSCOMBOBOX_PAS_T}
 {$define NSCOMBOBOX_PAS_T}
 
-{ CFString constants }
-var
-  NSComboBoxWillPopUpNotification: CFStringRef; external name '_NSComboBoxWillPopUpNotification';
-  NSComboBoxWillDismissNotification: CFStringRef; external name '_NSComboBoxWillDismissNotification';
-  NSComboBoxSelectionDidChangeNotification: CFStringRef; external name '_NSComboBoxSelectionDidChangeNotification';
-  NSComboBoxSelectionIsChangingNotification: CFStringRef; external name '_NSComboBoxSelectionIsChangingNotification';
-
 {$endif}
 {$endif}
 
@@ -42,6 +35,13 @@ var
 {$ifndef NSCOMBOBOX_PAS_T}
 {$define NSCOMBOBOX_PAS_T}
 
+{ External string constants }
+var
+  NSComboBoxWillPopUpNotification: NSString; external name '_NSComboBoxWillPopUpNotification';
+  NSComboBoxWillDismissNotification: NSString; external name '_NSComboBoxWillDismissNotification';
+  NSComboBoxSelectionDidChangeNotification: NSString; external name '_NSComboBoxSelectionDidChangeNotification';
+  NSComboBoxSelectionIsChangingNotification: NSString; external name '_NSComboBoxSelectionIsChangingNotification';
+
 {$endif}
 {$endif}
 
@@ -68,34 +68,34 @@ var
     procedure setIntercellSpacing(aSize: NSSize); message 'setIntercellSpacing:';
     function itemHeight: CGFloat; message 'itemHeight';
     procedure setItemHeight(itemHeight_: CGFloat); message 'setItemHeight:';
-    function numberOfVisibleItems: clong; message 'numberOfVisibleItems';
-    procedure setNumberOfVisibleItems(visibleItems: clong); message 'setNumberOfVisibleItems:';
+    function numberOfVisibleItems: NSInteger; message 'numberOfVisibleItems';
+    procedure setNumberOfVisibleItems(visibleItems: NSInteger); message 'setNumberOfVisibleItems:';
     procedure setButtonBordered(flag: Boolean); message 'setButtonBordered:';
     function isButtonBordered: Boolean; message 'isButtonBordered';
     procedure reloadData; message 'reloadData';
     procedure noteNumberOfItemsChanged; message 'noteNumberOfItemsChanged';
     procedure setUsesDataSource(flag: Boolean); message 'setUsesDataSource:';
     function usesDataSource: Boolean; message 'usesDataSource';
-    procedure scrollItemAtIndexToTop(index: clong); message 'scrollItemAtIndexToTop:';
-    procedure scrollItemAtIndexToVisible(index: clong); message 'scrollItemAtIndexToVisible:';
-    procedure selectItemAtIndex(index: clong); message 'selectItemAtIndex:';
-    procedure deselectItemAtIndex(index: clong); message 'deselectItemAtIndex:';
-    function indexOfSelectedItem: clong; message 'indexOfSelectedItem';
-    function numberOfItems: clong; message 'numberOfItems';
+    procedure scrollItemAtIndexToTop(index: NSInteger); message 'scrollItemAtIndexToTop:';
+    procedure scrollItemAtIndexToVisible(index: NSInteger); message 'scrollItemAtIndexToVisible:';
+    procedure selectItemAtIndex(index: NSInteger); message 'selectItemAtIndex:';
+    procedure deselectItemAtIndex(index: NSInteger); message 'deselectItemAtIndex:';
+    function indexOfSelectedItem: NSInteger; message 'indexOfSelectedItem';
+    function numberOfItems: NSInteger; message 'numberOfItems';
     function completes: Boolean; message 'completes';
     procedure setCompletes(completes_: Boolean); message 'setCompletes:';
     function dataSource: id; message 'dataSource';
     procedure setDataSource(aSource: id); message 'setDataSource:';
     procedure addItemWithObjectValue(object_: id); message 'addItemWithObjectValue:';
     procedure addItemsWithObjectValues(objects: NSArray); message 'addItemsWithObjectValues:';
-    procedure insertItemWithObjectValue_atIndex(object_: id; index: clong); message 'insertItemWithObjectValue:atIndex:';
+    procedure insertItemWithObjectValue_atIndex(object_: id; index: NSInteger); message 'insertItemWithObjectValue:atIndex:';
     procedure removeItemWithObjectValue(object_: id); message 'removeItemWithObjectValue:';
-    procedure removeItemAtIndex(index: clong); message 'removeItemAtIndex:';
+    procedure removeItemAtIndex(index: NSInteger); message 'removeItemAtIndex:';
     procedure removeAllItems; message 'removeAllItems';
     procedure selectItemWithObjectValue(object_: id); message 'selectItemWithObjectValue:';
-    function itemObjectValueAtIndex(index: clong): id; message 'itemObjectValueAtIndex:';
+    function itemObjectValueAtIndex(index: NSInteger): id; message 'itemObjectValueAtIndex:';
     function objectValueOfSelectedItem: id; message 'objectValueOfSelectedItem';
-    function indexOfItemWithObjectValue(object_: id): clong; message 'indexOfItemWithObjectValue:';
+    function indexOfItemWithObjectValue(object_: id): NSInteger; message 'indexOfItemWithObjectValue:';
     function objectValues: NSArray; message 'objectValues';
   end; external;
 

packages/cocoaint/src/appkit/NSComboBoxCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSComboBoxCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCOMBOBOXCELL_PAS_H}

packages/cocoaint/src/appkit/NSControl.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSControl.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCONTROL_PAS_H}
@@ -14,12 +14,6 @@ type
 {$ifndef NSCONTROL_PAS_T}
 {$define NSCONTROL_PAS_T}
 
-{ CFString constants }
-var
-  NSControlTextDidBeginEditingNotification: CFStringRef; external name '_NSControlTextDidBeginEditingNotification';
-  NSControlTextDidEndEditingNotification: CFStringRef; external name '_NSControlTextDidEndEditingNotification';
-  NSControlTextDidChangeNotification: CFStringRef; external name '_NSControlTextDidChangeNotification';
-
 {$endif}
 {$endif}
 
@@ -41,6 +35,12 @@ var
 {$ifndef NSCONTROL_PAS_T}
 {$define NSCONTROL_PAS_T}
 
+{ External string constants }
+var
+  NSControlTextDidBeginEditingNotification: NSString; external name '_NSControlTextDidBeginEditingNotification';
+  NSControlTextDidEndEditingNotification: NSString; external name '_NSControlTextDidEndEditingNotification';
+  NSControlTextDidChangeNotification: NSString; external name '_NSControlTextDidChangeNotification';
+
 {$endif}
 {$endif}
 
@@ -56,7 +56,7 @@ var
 { NSControl }
   NSControl = objcclass(NSView)
   private
-    __tag: clong;
+    __tag: NSInteger;
     __cell: id;
     __conFlags: bitpacked record
         enabled: 0..1;
@@ -83,17 +83,17 @@ var
     procedure setTarget(anObject: id); message 'setTarget:';
     function action: SEL; message 'action';
     procedure setAction(aSelector: SEL); message 'setAction:';
-    function tag: clong; message 'tag';
-    procedure setTag(anInt: clong); message 'setTag:';
-    function selectedTag: clong; message 'selectedTag';
+    function tag: NSInteger; message 'tag';
+    procedure setTag(anInt: NSInteger); message 'setTag:';
+    function selectedTag: NSInteger; message 'selectedTag';
     procedure setIgnoresMultiClick(flag: Boolean); message 'setIgnoresMultiClick:';
     function ignoresMultiClick: Boolean; message 'ignoresMultiClick';
-    function sendActionOn(mask: clong): clong; message 'sendActionOn:';
+    function sendActionOn(mask: NSInteger): NSInteger; message 'sendActionOn:';
     function isContinuous: Boolean; message 'isContinuous';
     procedure setContinuous(flag: Boolean); message 'setContinuous:';
     function isEnabled: Boolean; message 'isEnabled';
     procedure setEnabled(flag: Boolean); message 'setEnabled:';
-    procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: culong; rightDigits: culong); message 'setFloatingPointFormat:left:right:';
+    procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: NSUInteger; rightDigits: NSUInteger); message 'setFloatingPointFormat:left:right:';
     function alignment: NSTextAlignment; message 'alignment';
     procedure setAlignment(mode: NSTextAlignment); message 'setAlignment:';
     function font: NSFont; message 'font';
@@ -128,8 +128,8 @@ var
     procedure mouseDown(theEvent: NSEvent); message 'mouseDown:';
     function baseWritingDirection: NSWritingDirection; message 'baseWritingDirection';
     procedure setBaseWritingDirection(writingDirection: NSWritingDirection); message 'setBaseWritingDirection:';
-    function integerValue: clong; message 'integerValue';
-    procedure setIntegerValue(anInteger: clong); message 'setIntegerValue:';
+    function integerValue: NSInteger; message 'integerValue';
+    procedure setIntegerValue(anInteger: NSInteger); message 'setIntegerValue:';
     procedure takeIntegerValueFrom(sender: id); message 'takeIntegerValueFrom:';
 
     { Category: NSKeyboardUI }

packages/cocoaint/src/appkit/NSController.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSController.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCONTROLLER_PAS_H}

packages/cocoaint/src/appkit/NSCursor.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSCursor.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCURSOR_PAS_H}

packages/cocoaint/src/appkit/NSCustomImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSCustomImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSCUSTOMIMAGEREP_PAS_H}

packages/cocoaint/src/appkit/NSDatePicker.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDatePicker.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSDATEPICKER_PAS_H}

packages/cocoaint/src/appkit/NSDatePickerCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDatePickerCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSDATEPICKERCELL_PAS_H}
@@ -35,9 +35,9 @@ const
 
 { Types }
 type
-  NSDatePickerStyle = culong;
-  NSDatePickerMode = culong;
-  NSDatePickerElementFlags = culong;
+  NSDatePickerStyle = NSUInteger;
+  NSDatePickerMode = NSUInteger;
+  NSDatePickerElementFlags = NSUInteger;
 
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSDictionaryController.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDictionaryController.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSDICTIONARYCONTROLLER_PAS_H}
@@ -56,7 +56,7 @@ type
     __contentDictionary: id;
     __initialKey: NSString;
     __initialValue: id;
-    __minimumInsertionKeyIndex: culong;
+    __minimumInsertionKeyIndex: NSUInteger;
     __localizedKeyStringsFileName: NSString;
     __localizedKeyForKeyDictionary: NSDictionary;
     __keyForLocalizedKeyDictionary: NSDictionary;

packages/cocoaint/src/appkit/NSDockTile.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDockTile.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSDOCKTILE_PAS_H}
@@ -61,7 +61,7 @@ type
         reserved: 0..((1 shl 31)-1);
       end;
     __dockTileSize: NSSize;
-    _reserved: id;
+        reserved: array[0..4] of id;
     
   public
     class function alloc: NSDockTile; message 'alloc';

packages/cocoaint/src/appkit/NSDocument.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDocument.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSDOCUMENT_PAS_H}
@@ -32,8 +32,8 @@ const
 
 { Types }
 type
-  NSDocumentChangeType = culong;
-  NSSaveOperationType = culong;
+  NSDocumentChangeType = NSUInteger;
+  NSSaveOperationType = NSUInteger;
 
 {$endif}
 {$endif}
@@ -99,9 +99,9 @@ type
     class function alloc: NSDocument; message 'alloc';
 
     function init: id; message 'init';
-    function initWithType_error(typeName: NSString; var outError: NSError): id; message 'initWithType:error:';
-    function initWithContentsOfURL_ofType_error(absoluteURL: NSURL; typeName: NSString; var outError: NSError): id; message 'initWithContentsOfURL:ofType:error:';
-    function initForURL_withContentsOfURL_ofType_error(absoluteDocumentURL: NSURL; absoluteDocumentContentsURL: NSURL; typeName: NSString; var outError: NSError): id; message 'initForURL:withContentsOfURL:ofType:error:';
+    function initWithType_error(typeName: NSString; outError: NSErrorPointer): id; message 'initWithType:error:';
+    function initWithContentsOfURL_ofType_error(absoluteURL: NSURL; typeName: NSString; outError: NSErrorPointer): id; message 'initWithContentsOfURL:ofType:error:';
+    function initForURL_withContentsOfURL_ofType_error(absoluteDocumentURL: NSURL; absoluteDocumentContentsURL: NSURL; typeName: NSString; outError: NSErrorPointer): id; message 'initForURL:withContentsOfURL:ofType:error:';
     procedure setFileType(typeName: NSString); message 'setFileType:';
     function fileType: NSString; message 'fileType';
     procedure setFileURL(absoluteURL: NSURL); message 'setFileURL:';
@@ -109,16 +109,16 @@ type
     procedure setFileModificationDate(modificationDate: NSDate); message 'setFileModificationDate:';
     function fileModificationDate: NSDate; message 'fileModificationDate';
     procedure revertDocumentToSaved(sender: id); message 'revertDocumentToSaved:';
-    function revertToContentsOfURL_ofType_error(absoluteURL: NSURL; typeName: NSString; var outError: NSError): Boolean; message 'revertToContentsOfURL:ofType:error:';
-    function readFromURL_ofType_error(absoluteURL: NSURL; typeName: NSString; var outError: NSError): Boolean; message 'readFromURL:ofType:error:';
-    function readFromFileWrapper_ofType_error(fileWrapper: NSFileWrapper; typeName: NSString; var outError: NSError): Boolean; message 'readFromFileWrapper:ofType:error:';
-    function readFromData_ofType_error(data: NSData; typeName: NSString; var outError: NSError): Boolean; message 'readFromData:ofType:error:';
-    function writeToURL_ofType_error(absoluteURL: NSURL; typeName: NSString; var outError: NSError): Boolean; message 'writeToURL:ofType:error:';
-    function fileWrapperOfType_error(typeName: NSString; var outError: NSError): NSFileWrapper; message 'fileWrapperOfType:error:';
-    function dataOfType_error(typeName: NSString; var outError: NSError): NSData; message 'dataOfType:error:';
-    function writeSafelyToURL_ofType_forSaveOperation_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; var outError: NSError): Boolean; message 'writeSafelyToURL:ofType:forSaveOperation:error:';
-    function writeToURL_ofType_forSaveOperation_originalContentsURL_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; absoluteOriginalContentsURL: NSURL; var outError: NSError): Boolean; message 'writeToURL:ofType:forSaveOperation:originalContentsURL:error:';
-    function fileAttributesToWriteToURL_ofType_forSaveOperation_originalContentsURL_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; absoluteOriginalContentsURL: NSURL; var outError: NSError): NSDictionary; message 'fileAttributesToWriteToURL:ofType:forSaveOperation:originalContentsURL:error:';
+    function revertToContentsOfURL_ofType_error(absoluteURL: NSURL; typeName: NSString; outError: NSErrorPointer): Boolean; message 'revertToContentsOfURL:ofType:error:';
+    function readFromURL_ofType_error(absoluteURL: NSURL; typeName: NSString; outError: NSErrorPointer): Boolean; message 'readFromURL:ofType:error:';
+    function readFromFileWrapper_ofType_error(fileWrapper: NSFileWrapper; typeName: NSString; outError: NSErrorPointer): Boolean; message 'readFromFileWrapper:ofType:error:';
+    function readFromData_ofType_error(data: NSData; typeName: NSString; outError: NSErrorPointer): Boolean; message 'readFromData:ofType:error:';
+    function writeToURL_ofType_error(absoluteURL: NSURL; typeName: NSString; outError: NSErrorPointer): Boolean; message 'writeToURL:ofType:error:';
+    function fileWrapperOfType_error(typeName: NSString; outError: NSErrorPointer): NSFileWrapper; message 'fileWrapperOfType:error:';
+    function dataOfType_error(typeName: NSString; outError: NSErrorPointer): NSData; message 'dataOfType:error:';
+    function writeSafelyToURL_ofType_forSaveOperation_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; outError: NSErrorPointer): Boolean; message 'writeSafelyToURL:ofType:forSaveOperation:error:';
+    function writeToURL_ofType_forSaveOperation_originalContentsURL_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; absoluteOriginalContentsURL: NSURL; outError: NSErrorPointer): Boolean; message 'writeToURL:ofType:forSaveOperation:originalContentsURL:error:';
+    function fileAttributesToWriteToURL_ofType_forSaveOperation_originalContentsURL_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; absoluteOriginalContentsURL: NSURL; outError: NSErrorPointer): NSDictionary; message 'fileAttributesToWriteToURL:ofType:forSaveOperation:originalContentsURL:error:';
     function keepBackupFile: Boolean; message 'keepBackupFile';
     procedure saveDocument(sender: id); message 'saveDocument:';
     procedure saveDocumentAs(sender: id); message 'saveDocumentAs:';
@@ -130,7 +130,7 @@ type
     function fileNameExtensionWasHiddenInLastRunSavePanel: Boolean; message 'fileNameExtensionWasHiddenInLastRunSavePanel';
     function fileTypeFromLastRunSavePanel: NSString; message 'fileTypeFromLastRunSavePanel';
     procedure saveToURL_ofType_forSaveOperation_delegate_didSaveSelector_contextInfo(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; delegate: id; didSaveSelector: SEL; contextInfo: Pointer); message 'saveToURL:ofType:forSaveOperation:delegate:didSaveSelector:contextInfo:';
-    function saveToURL_ofType_forSaveOperation_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; var outError: NSError): Boolean; message 'saveToURL:ofType:forSaveOperation:error:';
+    function saveToURL_ofType_forSaveOperation_error(absoluteURL: NSURL; typeName: NSString; saveOperation: NSSaveOperationType; outError: NSErrorPointer): Boolean; message 'saveToURL:ofType:forSaveOperation:error:';
     function hasUnautosavedChanges: Boolean; message 'hasUnautosavedChanges';
     procedure autosaveDocumentWithDelegate_didAutosaveSelector_contextInfo(delegate: id; didAutosaveSelector: SEL; contextInfo: Pointer); message 'autosaveDocumentWithDelegate:didAutosaveSelector:contextInfo:';
     function autosavingFileType: NSString; message 'autosavingFileType';
@@ -146,7 +146,7 @@ type
     function printInfo: NSPrintInfo; message 'printInfo';
     procedure printDocument(sender: id); message 'printDocument:';
     procedure printDocumentWithSettings_showPrintPanel_delegate_didPrintSelector_contextInfo(printSettings: NSDictionary; showPrintPanel: Boolean; delegate: id; didPrintSelector: SEL; contextInfo: Pointer); message 'printDocumentWithSettings:showPrintPanel:delegate:didPrintSelector:contextInfo:';
-    function printOperationWithSettings_error(printSettings: NSDictionary; var outError: NSError): NSPrintOperation; message 'printOperationWithSettings:error:';
+    function printOperationWithSettings_error(printSettings: NSDictionary; outError: NSErrorPointer): NSPrintOperation; message 'printOperationWithSettings:error:';
     procedure runModalPrintOperation_delegate_didRunSelector_contextInfo(printOperation: NSPrintOperation; delegate: id; didRunSelector: SEL; contextInfo: Pointer); message 'runModalPrintOperation:delegate:didRunSelector:contextInfo:';
     function isDocumentEdited: Boolean; message 'isDocumentEdited';
     procedure updateChangeCount(change: NSDocumentChangeType); message 'updateChangeCount:';
@@ -190,7 +190,7 @@ type
     function readFromURL_ofType(url: NSURL; type_: NSString): Boolean; message 'readFromURL:ofType:';
     function revertToSavedFromFile_ofType(fileName_: NSString; type_: NSString): Boolean; message 'revertToSavedFromFile:ofType:';
     function revertToSavedFromURL_ofType(url: NSURL; type_: NSString): Boolean; message 'revertToSavedFromURL:ofType:';
-    function runModalPageLayoutWithPrintInfo(printInfo_: NSPrintInfo): clong; message 'runModalPageLayoutWithPrintInfo:';
+    function runModalPageLayoutWithPrintInfo(printInfo_: NSPrintInfo): NSInteger; message 'runModalPageLayoutWithPrintInfo:';
     procedure saveToFile_saveOperation_delegate_didSaveSelector_contextInfo(fileName_: NSString; saveOperation: NSSaveOperationType; delegate: id; didSaveSelector: SEL; contextInfo: Pointer); message 'saveToFile:saveOperation:delegate:didSaveSelector:contextInfo:';
     procedure setFileName(fileName_: NSString); message 'setFileName:';
     function writeToFile_ofType(fileName_: NSString; type_: NSString): Boolean; message 'writeToFile:ofType:';

packages/cocoaint/src/appkit/NSDocumentController.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDocumentController.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSDOCUMENTCONTROLLER_PAS_H}
@@ -69,15 +69,15 @@ type
     procedure addDocument(document: NSDocument); message 'addDocument:';
     procedure removeDocument(document: NSDocument); message 'removeDocument:';
     procedure newDocument(sender: id); message 'newDocument:';
-    function openUntitledDocumentAndDisplay_error(displayDocument: Boolean; var outError: NSError): id; message 'openUntitledDocumentAndDisplay:error:';
-    function makeUntitledDocumentOfType_error(typeName: NSString; var outError: NSError): id; message 'makeUntitledDocumentOfType:error:';
+    function openUntitledDocumentAndDisplay_error(displayDocument: Boolean; outError: NSErrorPointer): id; message 'openUntitledDocumentAndDisplay:error:';
+    function makeUntitledDocumentOfType_error(typeName: NSString; outError: NSErrorPointer): id; message 'makeUntitledDocumentOfType:error:';
     procedure openDocument(sender: id); message 'openDocument:';
     function URLsFromRunningOpenPanel: NSArray; message 'URLsFromRunningOpenPanel';
-    function runModalOpenPanel_forTypes(openPanel: NSOpenPanel; types: NSArray): clong; message 'runModalOpenPanel:forTypes:';
-    function openDocumentWithContentsOfURL_display_error(absoluteURL: NSURL; displayDocument: Boolean; var outError: NSError): id; message 'openDocumentWithContentsOfURL:display:error:';
-    function makeDocumentWithContentsOfURL_ofType_error(absoluteURL: NSURL; typeName: NSString; var outError: NSError): id; message 'makeDocumentWithContentsOfURL:ofType:error:';
-    function reopenDocumentForURL_withContentsOfURL_error(absoluteDocumentURL: NSURL; absoluteDocumentContentsURL: NSURL; var outError: NSError): Boolean; message 'reopenDocumentForURL:withContentsOfURL:error:';
-    function makeDocumentForURL_withContentsOfURL_ofType_error(absoluteDocumentURL: NSURL; absoluteDocumentContentsURL: NSURL; typeName: NSString; var outError: NSError): id; message 'makeDocumentForURL:withContentsOfURL:ofType:error:';
+    function runModalOpenPanel_forTypes(openPanel: NSOpenPanel; types: NSArray): NSInteger; message 'runModalOpenPanel:forTypes:';
+    function openDocumentWithContentsOfURL_display_error(absoluteURL: NSURL; displayDocument: Boolean; outError: NSErrorPointer): id; message 'openDocumentWithContentsOfURL:display:error:';
+    function makeDocumentWithContentsOfURL_ofType_error(absoluteURL: NSURL; typeName: NSString; outError: NSErrorPointer): id; message 'makeDocumentWithContentsOfURL:ofType:error:';
+    function reopenDocumentForURL_withContentsOfURL_error(absoluteDocumentURL: NSURL; absoluteDocumentContentsURL: NSURL; outError: NSErrorPointer): Boolean; message 'reopenDocumentForURL:withContentsOfURL:error:';
+    function makeDocumentForURL_withContentsOfURL_ofType_error(absoluteDocumentURL: NSURL; absoluteDocumentContentsURL: NSURL; typeName: NSString; outError: NSErrorPointer): id; message 'makeDocumentForURL:withContentsOfURL:ofType:error:';
     procedure setAutosavingDelay(autosavingDelay_: NSTimeInterval); message 'setAutosavingDelay:';
     function autosavingDelay: NSTimeInterval; message 'autosavingDelay';
     procedure saveAllDocuments(sender: id); message 'saveAllDocuments:';
@@ -87,13 +87,13 @@ type
     procedure presentError_modalForWindow_delegate_didPresentSelector_contextInfo(error: NSError; window: NSWindow; delegate: id; didPresentSelector: SEL; contextInfo: Pointer); message 'presentError:modalForWindow:delegate:didPresentSelector:contextInfo:';
     function presentError(error: NSError): Boolean; message 'presentError:';
     function willPresentError(error: NSError): NSError; message 'willPresentError:';
-    function maximumRecentDocumentCount: culong; message 'maximumRecentDocumentCount';
+    function maximumRecentDocumentCount: NSUInteger; message 'maximumRecentDocumentCount';
     procedure clearRecentDocuments(sender: id); message 'clearRecentDocuments:';
     procedure noteNewRecentDocument(document: NSDocument); message 'noteNewRecentDocument:';
     procedure noteNewRecentDocumentURL(absoluteURL: NSURL); message 'noteNewRecentDocumentURL:';
     function recentDocumentURLs: NSArray; message 'recentDocumentURLs';
     function defaultType: NSString; message 'defaultType';
-    function typeForContentsOfURL_error(inAbsoluteURL: NSURL; var outError: NSError): NSString; message 'typeForContentsOfURL:error:';
+    function typeForContentsOfURL_error(inAbsoluteURL: NSURL; outError: NSErrorPointer): NSString; message 'typeForContentsOfURL:error:';
     function documentClassNames: NSArray; message 'documentClassNames';
     function documentClassForType(typeName: NSString): Pobjc_class; message 'documentClassForType:';
     function displayNameForType(typeName: NSString): NSString; message 'displayNameForType:';

packages/cocoaint/src/appkit/NSDocumentScripting.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDocumentScripting.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}

packages/cocoaint/src/appkit/NSDragging.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDragging.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}
@@ -8,7 +8,7 @@
 
 { Types }
 type
-  NSDragOperation = culong;
+  NSDragOperation = NSUInteger;
 
 { Constants }
 
@@ -64,7 +64,7 @@ const
     function draggedImage: NSImage; message 'draggedImage';
     function draggingPasteboard: NSPasteboard; message 'draggingPasteboard';
     function draggingSource: id; message 'draggingSource';
-    function draggingSequenceNumber: clong; message 'draggingSequenceNumber';
+    function draggingSequenceNumber: NSInteger; message 'draggingSequenceNumber';
     procedure slideDraggedImageTo(screenPoint: NSPoint); message 'slideDraggedImageTo:';
     function namesOfPromisedFilesDroppedAtDestination(dropDestination: NSURL): NSArray; message 'namesOfPromisedFilesDroppedAtDestination:';
   end; external name 'NSDraggingInfo';

packages/cocoaint/src/appkit/NSDrawer.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSDrawer.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSDRAWER_PAS_H}
@@ -24,14 +24,7 @@ const
 
 { Types }
 type
-  NSDrawerState = culong;
-
-{ CFString constants }
-var
-  NSDrawerWillOpenNotification: CFStringRef; external name '_NSDrawerWillOpenNotification';
-  NSDrawerDidOpenNotification: CFStringRef; external name '_NSDrawerDidOpenNotification';
-  NSDrawerWillCloseNotification: CFStringRef; external name '_NSDrawerWillCloseNotification';
-  NSDrawerDidCloseNotification: CFStringRef; external name '_NSDrawerDidCloseNotification';
+  NSDrawerState = NSUInteger;
 
 {$endif}
 {$endif}
@@ -54,6 +47,13 @@ var
 {$ifndef NSDRAWER_PAS_T}
 {$define NSDRAWER_PAS_T}
 
+{ External string constants }
+var
+  NSDrawerWillOpenNotification: NSString; external name '_NSDrawerWillOpenNotification';
+  NSDrawerDidOpenNotification: NSString; external name '_NSDrawerDidOpenNotification';
+  NSDrawerWillCloseNotification: NSString; external name '_NSDrawerWillCloseNotification';
+  NSDrawerDidCloseNotification: NSString; external name '_NSDrawerDidCloseNotification';
+
 {$endif}
 {$endif}
 
@@ -107,7 +107,7 @@ var
     procedure openOnEdge(edge_: NSRectEdge); message 'openOnEdge:';
     procedure close; message 'close';
     procedure toggle(sender: id); message 'toggle:';
-    function state: clong; message 'state';
+    function state: NSInteger; message 'state';
     function edge: NSRectEdge; message 'edge';
     procedure setContentSize(size: NSSize); message 'setContentSize:';
     function contentSize: NSSize; message 'contentSize';

packages/cocoaint/src/appkit/NSEPSImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSEPSImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSEPSIMAGEREP_PAS_H}

packages/cocoaint/src/appkit/NSErrors.inc

@@ -1,50 +1,11 @@
 { Parsed from Appkit.framework NSErrors.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}
 {$ifndef NSERRORS_PAS_T}
 {$define NSERRORS_PAS_T}
 
-{ CFString constants }
-var
-  NSTextLineTooLongException: CFStringRef; external name '_NSTextLineTooLongException';
-  NSTextNoSelectionException: CFStringRef; external name '_NSTextNoSelectionException';
-  NSWordTablesWriteException: CFStringRef; external name '_NSWordTablesWriteException';
-  NSWordTablesReadException: CFStringRef; external name '_NSWordTablesReadException';
-  NSTextReadException: CFStringRef; external name '_NSTextReadException';
-  NSTextWriteException: CFStringRef; external name '_NSTextWriteException';
-  NSPasteboardCommunicationException: CFStringRef; external name '_NSPasteboardCommunicationException';
-  NSPrintingCommunicationException: CFStringRef; external name '_NSPrintingCommunicationException';
-  NSAbortModalException: CFStringRef; external name '_NSAbortModalException';
-  NSAbortPrintingException: CFStringRef; external name '_NSAbortPrintingException';
-  NSIllegalSelectorException: CFStringRef; external name '_NSIllegalSelectorException';
-  NSAppKitVirtualMemoryException: CFStringRef; external name '_NSAppKitVirtualMemoryException';
-  NSBadRTFDirectiveException: CFStringRef; external name '_NSBadRTFDirectiveException';
-  NSBadRTFFontTableException: CFStringRef; external name '_NSBadRTFFontTableException';
-  NSBadRTFStyleSheetException: CFStringRef; external name '_NSBadRTFStyleSheetException';
-  NSTypedStreamVersionException: CFStringRef; external name '_NSTypedStreamVersionException';
-  NSTIFFException: CFStringRef; external name '_NSTIFFException';
-  NSPrintPackageException: CFStringRef; external name '_NSPrintPackageException';
-  NSBadRTFColorTableException: CFStringRef; external name '_NSBadRTFColorTableException';
-  NSDraggingException: CFStringRef; external name '_NSDraggingException';
-  NSColorListIOException: CFStringRef; external name '_NSColorListIOException';
-  NSColorListNotEditableException: CFStringRef; external name '_NSColorListNotEditableException';
-  NSBadBitmapParametersException: CFStringRef; external name '_NSBadBitmapParametersException';
-  NSWindowServerCommunicationException: CFStringRef; external name '_NSWindowServerCommunicationException';
-  NSFontUnavailableException: CFStringRef; external name '_NSFontUnavailableException';
-  NSPPDIncludeNotFoundException: CFStringRef; external name '_NSPPDIncludeNotFoundException';
-  NSPPDParseException: CFStringRef; external name '_NSPPDParseException';
-  NSPPDIncludeStackOverflowException: CFStringRef; external name '_NSPPDIncludeStackOverflowException';
-  NSPPDIncludeStackUnderflowException: CFStringRef; external name '_NSPPDIncludeStackUnderflowException';
-  NSRTFPropertyStackOverflowException: CFStringRef; external name '_NSRTFPropertyStackOverflowException';
-  NSAppKitIgnoredException: CFStringRef; external name '_NSAppKitIgnoredException';
-  NSBadComparisonException: CFStringRef; external name '_NSBadComparisonException';
-  NSImageCacheException: CFStringRef; external name '_NSImageCacheException';
-  NSNibLoadingException: CFStringRef; external name '_NSNibLoadingException';
-  NSBrowserIllegalDelegateException: CFStringRef; external name '_NSBrowserIllegalDelegateException';
-  NSAccessibilityException: CFStringRef; external name '_NSAccessibilityException';
-
 {$endif}
 {$endif}
 
@@ -66,5 +27,44 @@ var
 {$ifndef NSERRORS_PAS_T}
 {$define NSERRORS_PAS_T}
 
+{ External string constants }
+var
+  NSTextLineTooLongException: NSString; external name '_NSTextLineTooLongException';
+  NSTextNoSelectionException: NSString; external name '_NSTextNoSelectionException';
+  NSWordTablesWriteException: NSString; external name '_NSWordTablesWriteException';
+  NSWordTablesReadException: NSString; external name '_NSWordTablesReadException';
+  NSTextReadException: NSString; external name '_NSTextReadException';
+  NSTextWriteException: NSString; external name '_NSTextWriteException';
+  NSPasteboardCommunicationException: NSString; external name '_NSPasteboardCommunicationException';
+  NSPrintingCommunicationException: NSString; external name '_NSPrintingCommunicationException';
+  NSAbortModalException: NSString; external name '_NSAbortModalException';
+  NSAbortPrintingException: NSString; external name '_NSAbortPrintingException';
+  NSIllegalSelectorException: NSString; external name '_NSIllegalSelectorException';
+  NSAppKitVirtualMemoryException: NSString; external name '_NSAppKitVirtualMemoryException';
+  NSBadRTFDirectiveException: NSString; external name '_NSBadRTFDirectiveException';
+  NSBadRTFFontTableException: NSString; external name '_NSBadRTFFontTableException';
+  NSBadRTFStyleSheetException: NSString; external name '_NSBadRTFStyleSheetException';
+  NSTypedStreamVersionException: NSString; external name '_NSTypedStreamVersionException';
+  NSTIFFException: NSString; external name '_NSTIFFException';
+  NSPrintPackageException: NSString; external name '_NSPrintPackageException';
+  NSBadRTFColorTableException: NSString; external name '_NSBadRTFColorTableException';
+  NSDraggingException: NSString; external name '_NSDraggingException';
+  NSColorListIOException: NSString; external name '_NSColorListIOException';
+  NSColorListNotEditableException: NSString; external name '_NSColorListNotEditableException';
+  NSBadBitmapParametersException: NSString; external name '_NSBadBitmapParametersException';
+  NSWindowServerCommunicationException: NSString; external name '_NSWindowServerCommunicationException';
+  NSFontUnavailableException: NSString; external name '_NSFontUnavailableException';
+  NSPPDIncludeNotFoundException: NSString; external name '_NSPPDIncludeNotFoundException';
+  NSPPDParseException: NSString; external name '_NSPPDParseException';
+  NSPPDIncludeStackOverflowException: NSString; external name '_NSPPDIncludeStackOverflowException';
+  NSPPDIncludeStackUnderflowException: NSString; external name '_NSPPDIncludeStackUnderflowException';
+  NSRTFPropertyStackOverflowException: NSString; external name '_NSRTFPropertyStackOverflowException';
+  NSAppKitIgnoredException: NSString; external name '_NSAppKitIgnoredException';
+  NSBadComparisonException: NSString; external name '_NSBadComparisonException';
+  NSImageCacheException: NSString; external name '_NSImageCacheException';
+  NSNibLoadingException: NSString; external name '_NSNibLoadingException';
+  NSBrowserIllegalDelegateException: NSString; external name '_NSBrowserIllegalDelegateException';
+  NSAccessibilityException: NSString; external name '_NSAccessibilityException';
+
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSEvent.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSEvent.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSEVENT_PAS_H}
@@ -158,8 +158,8 @@ const
 
 { Types }
 type
-  NSEventType = culong;
-  NSPointingDeviceType = culong;
+  NSEventType = NSUInteger;
+  NSPointingDeviceType = NSUInteger;
 
 {$endif}
 {$endif}
@@ -200,9 +200,9 @@ type
     __type: NSEventType;
     __location: NSPoint;
     __modifierFlags: cuint;
-    __WSTimestamp: clong;
+    __WSTimestamp: NSInteger;
     __timestamp: NSTimeInterval;
-    __windowNumber: clong;
+    __windowNumber: NSInteger;
     __window: NSWindow;
     __context: NSGraphicsContext;
     _mouse: record
@@ -215,7 +215,7 @@ type
         subtype: cint;
         buttonNumber: cshort;
         reserved1: cshort;
-        reserved2: cint;
+            reserved2: array[0..2] of cint;
         {$endif}
       end;
     _key: record
@@ -224,15 +224,15 @@ type
         keyCode: cushort;
         isARepeat: Boolean;
         {$ifdef cpu64}
-        reserved: cint;
+            reserved: array[0..5] of cint;
         {$endif}
       end;
     _tracking: record
         eventNumber: cint;
-        trackingNumber: clong;
+        trackingNumber: NSInteger;
         userData: Pointer;
         {$ifdef cpu64}
-        reserved: cint;
+            reserved: array[0..5] of cint;
         {$endif}
       end;
     _scrollWheel: record
@@ -242,20 +242,20 @@ type
         {$ifdef cpu64}
         subtype: cshort;
         reserved1: cshort;
-        reserved2: cint;
+            reserved2: array[0..5] of cint;
         {$endif}
       end;
     _misc: record
         subtype: cint;
-        data1: clong;
-        data2: clong;
+        data1: NSInteger;
+        data2: NSInteger;
         {$ifdef cpu64}
-        reserved: cint;
+            reserved: array[0..5] of cint;
         {$endif}
       end;
     {$ifdef cpu64}
-    _tabletPointData: cint;
-    _tabletProximityData: cint;
+        tabletPointData: array[0..13] of cint;
+        tabletProximityData: array[0..13] of cint;
     {$endif}
     __data: record
       end;
@@ -269,14 +269,14 @@ type
     class function alloc: NSEvent; message 'alloc';
 
     function type_: NSEventType; message 'type';
-    function modifierFlags: culong; message 'modifierFlags';
+    function modifierFlags: NSUInteger; message 'modifierFlags';
     function timestamp: NSTimeInterval; message 'timestamp';
     function window: NSWindow; message 'window';
-    function windowNumber: clong; message 'windowNumber';
+    function windowNumber: NSInteger; message 'windowNumber';
     function context: NSGraphicsContext; message 'context';
-    function clickCount: clong; message 'clickCount';
-    function buttonNumber: clong; message 'buttonNumber';
-    function eventNumber: clong; message 'eventNumber';
+    function clickCount: NSInteger; message 'clickCount';
+    function buttonNumber: NSInteger; message 'buttonNumber';
+    function eventNumber: NSInteger; message 'eventNumber';
     function pressure: single; message 'pressure';
     function locationInWindow: NSPoint; message 'locationInWindow';
     function deltaX: CGFloat; message 'deltaX';
@@ -286,43 +286,43 @@ type
     function charactersIgnoringModifiers: NSString; message 'charactersIgnoringModifiers';
     function isARepeat: Boolean; message 'isARepeat';
     function keyCode: cushort; message 'keyCode';
-    function trackingNumber: clong; message 'trackingNumber';
+    function trackingNumber: NSInteger; message 'trackingNumber';
     function userData: Pointer; message 'userData';
     function trackingArea: NSTrackingArea; message 'trackingArea';
     function subtype: cshort; message 'subtype';
-    function data1: clong; message 'data1';
-    function data2: clong; message 'data2';
+    function data1: NSInteger; message 'data1';
+    function data2: NSInteger; message 'data2';
     function eventRef: Pointer; message 'eventRef';
     class function eventWithEventRef(eventRef_: Pointer): NSEvent; message 'eventWithEventRef:';
     function CGEvent: CGEventRef; message 'CGEvent';
     class function eventWithCGEvent(CGEvent_: CGEventRef): NSEvent; message 'eventWithCGEvent:';
     class procedure setMouseCoalescingEnabled(flag: Boolean); message 'setMouseCoalescingEnabled:';
     class function isMouseCoalescingEnabled: Boolean; message 'isMouseCoalescingEnabled';
-    function deviceID: culong; message 'deviceID';
-    function absoluteX: clong; message 'absoluteX';
-    function absoluteY: clong; message 'absoluteY';
-    function absoluteZ: clong; message 'absoluteZ';
-    function buttonMask: culong; message 'buttonMask';
+    function deviceID: NSUInteger; message 'deviceID';
+    function absoluteX: NSInteger; message 'absoluteX';
+    function absoluteY: NSInteger; message 'absoluteY';
+    function absoluteZ: NSInteger; message 'absoluteZ';
+    function buttonMask: NSUInteger; message 'buttonMask';
     function tilt: NSPoint; message 'tilt';
     function rotation: single; message 'rotation';
     function tangentialPressure: single; message 'tangentialPressure';
     function vendorDefined: id; message 'vendorDefined';
-    function vendorID: culong; message 'vendorID';
-    function tabletID: culong; message 'tabletID';
-    function pointingDeviceID: culong; message 'pointingDeviceID';
-    function systemTabletID: culong; message 'systemTabletID';
-    function vendorPointingDeviceType: culong; message 'vendorPointingDeviceType';
-    function pointingDeviceSerialNumber: culong; message 'pointingDeviceSerialNumber';
+    function vendorID: NSUInteger; message 'vendorID';
+    function tabletID: NSUInteger; message 'tabletID';
+    function pointingDeviceID: NSUInteger; message 'pointingDeviceID';
+    function systemTabletID: NSUInteger; message 'systemTabletID';
+    function vendorPointingDeviceType: NSUInteger; message 'vendorPointingDeviceType';
+    function pointingDeviceSerialNumber: NSUInteger; message 'pointingDeviceSerialNumber';
     function uniqueID: culonglong; message 'uniqueID';
-    function capabilityMask: culong; message 'capabilityMask';
+    function capabilityMask: NSUInteger; message 'capabilityMask';
     function pointingDeviceType: NSPointingDeviceType; message 'pointingDeviceType';
     function isEnteringProximity: Boolean; message 'isEnteringProximity';
     class procedure startPeriodicEventsAfterDelay_withPeriod(delay: NSTimeInterval; period: NSTimeInterval); message 'startPeriodicEventsAfterDelay:withPeriod:';
     class procedure stopPeriodicEvents; message 'stopPeriodicEvents';
-    class function mouseEventWithType_location_modifierFlags_timestamp_windowNumber_context_eventNumber_clickCount_pressure(type__: NSEventType; location: NSPoint; flags: culong; time: NSTimeInterval; wNum: clong; context_: NSGraphicsContext; eNum: clong; cNum: clong; pressure_: single): NSEvent; message 'mouseEventWithType:location:modifierFlags:timestamp:windowNumber:context:eventNumber:clickCount:pressure:';
-    class function keyEventWithType_location_modifierFlags_timestamp_windowNumber_context_characters_charactersIgnoringModifiers_isARepeat_keyCode(type__: NSEventType; location: NSPoint; flags: culong; time: NSTimeInterval; wNum: clong; context_: NSGraphicsContext; keys: NSString; ukeys: NSString; flag: Boolean; code: cushort): NSEvent; message 'keyEventWithType:location:modifierFlags:timestamp:windowNumber:context:characters:charactersIgnoringModifiers:isARepeat:keyCode:';
-    class function enterExitEventWithType_location_modifierFlags_timestamp_windowNumber_context_eventNumber_trackingNumber_userData(type__: NSEventType; location: NSPoint; flags: culong; time: NSTimeInterval; wNum: clong; context_: NSGraphicsContext; eNum: clong; tNum: clong; data: Pointer): NSEvent; message 'enterExitEventWithType:location:modifierFlags:timestamp:windowNumber:context:eventNumber:trackingNumber:userData:';
-    class function otherEventWithType_location_modifierFlags_timestamp_windowNumber_context_subtype_data1_data2(type__: NSEventType; location: NSPoint; flags: culong; time: NSTimeInterval; wNum: clong; context_: NSGraphicsContext; subtype_: cshort; d: clong; d1: clong): NSEvent; message 'otherEventWithType:location:modifierFlags:timestamp:windowNumber:context:subtype:data1:data2:';
+    class function mouseEventWithType_location_modifierFlags_timestamp_windowNumber_context_eventNumber_clickCount_pressure(type__: NSEventType; location: NSPoint; flags: NSUInteger; time: NSTimeInterval; wNum: NSInteger; context_: NSGraphicsContext; eNum: NSInteger; cNum: NSInteger; pressure_: single): NSEvent; message 'mouseEventWithType:location:modifierFlags:timestamp:windowNumber:context:eventNumber:clickCount:pressure:';
+    class function keyEventWithType_location_modifierFlags_timestamp_windowNumber_context_characters_charactersIgnoringModifiers_isARepeat_keyCode(type__: NSEventType; location: NSPoint; flags: NSUInteger; time: NSTimeInterval; wNum: NSInteger; context_: NSGraphicsContext; keys: NSString; ukeys: NSString; flag: Boolean; code: cushort): NSEvent; message 'keyEventWithType:location:modifierFlags:timestamp:windowNumber:context:characters:charactersIgnoringModifiers:isARepeat:keyCode:';
+    class function enterExitEventWithType_location_modifierFlags_timestamp_windowNumber_context_eventNumber_trackingNumber_userData(type__: NSEventType; location: NSPoint; flags: NSUInteger; time: NSTimeInterval; wNum: NSInteger; context_: NSGraphicsContext; eNum: NSInteger; tNum: NSInteger; data: Pointer): NSEvent; message 'enterExitEventWithType:location:modifierFlags:timestamp:windowNumber:context:eventNumber:trackingNumber:userData:';
+    class function otherEventWithType_location_modifierFlags_timestamp_windowNumber_context_subtype_data1_data2(type__: NSEventType; location: NSPoint; flags: NSUInteger; time: NSTimeInterval; wNum: NSInteger; context_: NSGraphicsContext; subtype_: cshort; d: NSInteger; d1: NSInteger): NSEvent; message 'otherEventWithType:location:modifierFlags:timestamp:windowNumber:context:subtype:data1:data2:';
     class function mouseLocation: NSPoint; message 'mouseLocation';
   end; external;
 

packages/cocoaint/src/appkit/NSFileWrapper.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSFileWrapper.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSFILEWRAPPER_PAS_H}

packages/cocoaint/src/appkit/NSFont.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSFont.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSFONT_PAS_H}
@@ -17,9 +17,9 @@ type
 { Types }
 type
   NSGlyph = cuint;
-  NSMultibyteGlyphPacking = culong;
-  NSFontRenderingMode = culong;
-  NSGlyphRelation = culong;
+  NSMultibyteGlyphPacking = NSUInteger;
+  NSFontRenderingMode = NSUInteger;
+  NSGlyphRelation = NSUInteger;
 
 { Constants }
 
@@ -52,7 +52,7 @@ const
 {$define NSFONT_PAS_F}
 
 { Functions }
-function NSConvertGlyphsToPackedGlyphs(var glBuf: NSGlyph; count: clong; packing: NSMultibyteGlyphPacking; var packedGlyphs: char): clong; cdecl; external name 'NSConvertGlyphsToPackedGlyphs';
+function NSConvertGlyphsToPackedGlyphs(glBufPointer: NSGlyph; count: NSInteger; packing: NSMultibyteGlyphPacking; packedGlyphsPointer: char): NSInteger; cdecl; external name 'NSConvertGlyphsToPackedGlyphs';
 
 {$endif}
 {$endif}
@@ -93,7 +93,7 @@ function NSConvertGlyphsToPackedGlyphs(var glBuf: NSGlyph; count: clong; packing
     class function alloc: NSFont; message 'alloc';
 
     class function fontWithName_size(fontName_: NSString; fontSize: CGFloat): NSFont; message 'fontWithName:size:';
-    class function fontWithName_matrix(fontName_: NSString; var fontMatrix: CGFloat): NSFont; message 'fontWithName:matrix:';
+    class function fontWithName_matrix(fontName_: NSString; fontMatrix: psingle): NSFont; message 'fontWithName:matrix:';
     class function fontWithDescriptor_size(fontDescriptor_: NSFontDescriptor; fontSize: CGFloat): NSFont; message 'fontWithDescriptor:size:';
     class function fontWithDescriptor_textTransform(fontDescriptor_: NSFontDescriptor; textTransform_: NSAffineTransform): NSFont; message 'fontWithDescriptor:textTransform:';
     class function userFontOfSize(fontSize: CGFloat): NSFont; message 'userFontOfSize:';
@@ -121,7 +121,7 @@ function NSConvertGlyphsToPackedGlyphs(var glBuf: NSGlyph; count: clong; packing
     function displayName: NSString; message 'displayName';
     function fontDescriptor: NSFontDescriptor; message 'fontDescriptor';
     function textTransform: NSAffineTransform; message 'textTransform';
-    function numberOfGlyphs: culong; message 'numberOfGlyphs';
+    function numberOfGlyphs: NSUInteger; message 'numberOfGlyphs';
     function mostCompatibleStringEncoding: NSStringEncoding; message 'mostCompatibleStringEncoding';
     function glyphWithName(aName: NSString): NSGlyph; message 'glyphWithName:';
     function coveredCharacterSet: NSCharacterSet; message 'coveredCharacterSet';
@@ -138,9 +138,9 @@ function NSConvertGlyphsToPackedGlyphs(var glBuf: NSGlyph; count: clong; packing
     function isFixedPitch: Boolean; message 'isFixedPitch';
     function boundingRectForGlyph(aGlyph: NSGlyph): NSRect; message 'boundingRectForGlyph:';
     function advancementForGlyph(ag: NSGlyph): NSSize; message 'advancementForGlyph:';
-    procedure getBoundingRects_forGlyphs_count(bounds: NSRectArray; var glyphs: NSGlyph; glyphCount: culong); message 'getBoundingRects:forGlyphs:count:';
-    procedure getAdvancements_forGlyphs_count(advancements: NSSizeArray; var glyphs: NSGlyph; glyphCount: culong); message 'getAdvancements:forGlyphs:count:';
-    procedure getAdvancements_forPackedGlyphs_length(advancements: NSSizeArray; packedGlyphs: Pointer; length: culong); message 'getAdvancements:forPackedGlyphs:length:';
+    procedure getBoundingRects_forGlyphs_count(bounds: NSRectArray; glyphs: NSGlyphPointer; glyphCount: NSUInteger); message 'getBoundingRects:forGlyphs:count:';
+    procedure getAdvancements_forGlyphs_count(advancements: NSSizeArray; glyphs: NSGlyphPointer; glyphCount: NSUInteger); message 'getAdvancements:forGlyphs:count:';
+    procedure getAdvancements_forPackedGlyphs_length(advancements: NSSizeArray; packedGlyphs: Pointer; length: NSUInteger); message 'getAdvancements:forPackedGlyphs:length:';
     procedure set_; message 'set';
     procedure setInContext(graphicsContext: NSGraphicsContext); message 'setInContext:';
     function printerFont: NSFont; message 'printerFont';
@@ -153,12 +153,12 @@ function NSConvertGlyphsToPackedGlyphs(var glBuf: NSGlyph; count: clong; packing
     function widthOfString(string_: NSString): CGFloat; message 'widthOfString:';
     function glyphIsEncoded(aGlyph: NSGlyph): Boolean; message 'glyphIsEncoded:';
     class procedure setPreferredFontNames(fontNameArray: NSArray); message 'setPreferredFontNames:';
-    function positionOfGlyph_precededByGlyph_isNominal(curGlyph: NSGlyph; prevGlyph: NSGlyph; var nominal: Boolean): NSPoint; message 'positionOfGlyph:precededByGlyph:isNominal:';
-    function positionsForCompositeSequence_numberOfGlyphs_pointArray(var someGlyphs: NSGlyph; numGlyphs: clong; points: NSPointArray): clong; message 'positionsForCompositeSequence:numberOfGlyphs:pointArray:';
-    function positionOfGlyph_struckOverGlyph_metricsExist(curGlyph: NSGlyph; prevGlyph: NSGlyph; var exist: Boolean): NSPoint; message 'positionOfGlyph:struckOverGlyph:metricsExist:';
-    function positionOfGlyph_struckOverRect_metricsExist(aGlyph: NSGlyph; aRect: NSRect; var exist: Boolean): NSPoint; message 'positionOfGlyph:struckOverRect:metricsExist:';
+    function positionOfGlyph_precededByGlyph_isNominal(curGlyph: NSGlyph; prevGlyph: NSGlyph; nominal: pboolean): NSPoint; message 'positionOfGlyph:precededByGlyph:isNominal:';
+    function positionsForCompositeSequence_numberOfGlyphs_pointArray(someGlyphs: NSGlyphPointer; numGlyphs: NSInteger; points: NSPointArray): NSInteger; message 'positionsForCompositeSequence:numberOfGlyphs:pointArray:';
+    function positionOfGlyph_struckOverGlyph_metricsExist(curGlyph: NSGlyph; prevGlyph: NSGlyph; exist: pboolean): NSPoint; message 'positionOfGlyph:struckOverGlyph:metricsExist:';
+    function positionOfGlyph_struckOverRect_metricsExist(aGlyph: NSGlyph; aRect: NSRect; exist: pboolean): NSPoint; message 'positionOfGlyph:struckOverRect:metricsExist:';
     function positionOfGlyph_forCharacter_struckOverRect(aGlyph: NSGlyph; aChar: unichar; aRect: NSRect): NSPoint; message 'positionOfGlyph:forCharacter:struckOverRect:';
-    function positionOfGlyph_withRelation_toBaseGlyph_totalAdvancement_metricsExist(thisGlyph: NSGlyph; rel: NSGlyphRelation; baseGlyph: NSGlyph; adv: NSSizePointer; var exist: Boolean): NSPoint; message 'positionOfGlyph:withRelation:toBaseGlyph:totalAdvancement:metricsExist:';
+    function positionOfGlyph_withRelation_toBaseGlyph_totalAdvancement_metricsExist(thisGlyph: NSGlyph; rel: NSGlyphRelation; baseGlyph: NSGlyph; adv: NSSizePointer; exist: pboolean): NSPoint; message 'positionOfGlyph:withRelation:toBaseGlyph:totalAdvancement:metricsExist:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSFontDescriptor.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSFontDescriptor.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSFONTDESCRIPTOR_PAS_H}

packages/cocoaint/src/appkit/NSFontManager.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSFontManager.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSFONTMANAGER_PAS_H}
@@ -16,8 +16,8 @@ type
 
 { Types }
 type
-  NSFontTraitMask = culong;
-  NSFontAction = culong;
+  NSFontTraitMask = NSUInteger;
+  NSFontAction = NSUInteger;
 
 { Constants }
 
@@ -100,7 +100,7 @@ const
     __delegate: id;
     __collections: id;
     __hiddenCollections: id;
-    __fmReserved4: culong;
+    __fmReserved4: NSUInteger;
     
   public
     class function alloc: NSFontManager; message 'alloc';
@@ -114,9 +114,9 @@ const
     procedure setFontMenu(newMenu: NSMenu); message 'setFontMenu:';
     function fontMenu(create_: Boolean): NSMenu; message 'fontMenu:';
     function fontPanel(create_: Boolean): NSFontPanel; message 'fontPanel:';
-    function fontWithFamily_traits_weight_size(family: NSString; traits: NSFontTraitMask; weight: clong; size: CGFloat): NSFont; message 'fontWithFamily:traits:weight:size:';
+    function fontWithFamily_traits_weight_size(family: NSString; traits: NSFontTraitMask; weight: NSInteger; size: CGFloat): NSFont; message 'fontWithFamily:traits:weight:size:';
     function traitsOfFont(fontObj: NSFont): NSFontTraitMask; message 'traitsOfFont:';
-    function weightOfFont(fontObj: NSFont): clong; message 'weightOfFont:';
+    function weightOfFont(fontObj: NSFont): NSInteger; message 'weightOfFont:';
     function availableFonts: NSArray; message 'availableFonts';
     function availableFontFamilies: NSArray; message 'availableFontFamilies';
     function availableMembersOfFontFamily(fam: NSString): NSArray; message 'availableMembersOfFontFamily:';
@@ -140,7 +140,7 @@ const
     function availableFontNamesMatchingFontDescriptor(descriptor: NSFontDescriptor): NSArray; message 'availableFontNamesMatchingFontDescriptor:';
     function collectionNames: NSArray; message 'collectionNames';
     function fontDescriptorsInCollection(collectionNames_: NSString): NSArray; message 'fontDescriptorsInCollection:';
-    function addCollection_options(collectionName: NSString; collectionOptions: clong): Boolean; message 'addCollection:options:';
+    function addCollection_options(collectionName: NSString; collectionOptions: NSInteger): Boolean; message 'addCollection:options:';
     function removeCollection(collectionName: NSString): Boolean; message 'removeCollection:';
     procedure addFontDescriptors_toCollection(descriptors: NSArray; collectionName: NSString); message 'addFontDescriptors:toCollection:';
     procedure removeFontDescriptor_fromCollection(descriptor: NSFontDescriptor; collection: NSString); message 'removeFontDescriptor:fromCollection:';

packages/cocoaint/src/appkit/NSFontPanel.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSFontPanel.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSFONTPANEL_PAS_H}
@@ -136,7 +136,7 @@ const
     __fontEffectsBox: id;
     __sizeStyle: cint;
     {$ifndef cpu64}
-    __fpUnused: id;
+        _fpUnused: array[0..71] of id;
     {$endif}
     
   public

packages/cocoaint/src/appkit/NSForm.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSForm.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}

packages/cocoaint/src/appkit/NSFormCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSFormCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSFORMCELL_PAS_H}

packages/cocoaint/src/appkit/NSGlyphGenerator.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSGlyphGenerator.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSGLYPHGENERATOR_PAS_H}
@@ -61,7 +61,7 @@ const
   public
     class function alloc: NSGlyphGenerator; message 'alloc';
 
-    procedure generateGlyphsForGlyphStorage_desiredNumberOfCharacters_glyphIndex_characterIndex(glyphStorage: id; nChars: culong; var glyphIndex: culong; var charIndex: culong); message 'generateGlyphsForGlyphStorage:desiredNumberOfCharacters:glyphIndex:characterIndex:';
+    procedure generateGlyphsForGlyphStorage_desiredNumberOfCharacters_glyphIndex_characterIndex(glyphStorage: id; nChars: NSUInteger; glyphIndex: NSUIntegerPointer; charIndex: NSUIntegerPointer); message 'generateGlyphsForGlyphStorage:desiredNumberOfCharacters:glyphIndex:characterIndex:';
     class function sharedGlyphGenerator: id; message 'sharedGlyphGenerator';
   end; external;
 
@@ -73,10 +73,10 @@ const
   
 { NSGlyphStorage Protocol }
   NSGlyphStorageProtocol = objcprotocol
-    procedure insertGlyphs_length_forStartingGlyphAtIndex_characterIndex(var glyphs: NSGlyph; length: culong; glyphIndex: culong; charIndex: culong); message 'insertGlyphs:length:forStartingGlyphAtIndex:characterIndex:';
-    procedure setIntAttribute_value_forGlyphAtIndex(attributeTag: clong; val: clong; glyphIndex: culong); message 'setIntAttribute:value:forGlyphAtIndex:';
+    procedure insertGlyphs_length_forStartingGlyphAtIndex_characterIndex(glyphs: NSGlyphPointer; length: NSUInteger; glyphIndex: NSUInteger; charIndex: NSUInteger); message 'insertGlyphs:length:forStartingGlyphAtIndex:characterIndex:';
+    procedure setIntAttribute_value_forGlyphAtIndex(attributeTag: NSInteger; val: NSInteger; glyphIndex: NSUInteger); message 'setIntAttribute:value:forGlyphAtIndex:';
     function attributedString: NSAttributedString; message 'attributedString';
-    function layoutOptions: culong; message 'layoutOptions';
+    function layoutOptions: NSUInteger; message 'layoutOptions';
   end; external name 'NSGlyphStorage';
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSGlyphInfo.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSGlyphInfo.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSGLYPHINFO_PAS_H}
@@ -16,7 +16,7 @@ type
 
 { Types }
 type
-  NSCharacterCollection = culong;
+  NSCharacterCollection = NSUInteger;
 
 {$endif}
 {$endif}
@@ -61,9 +61,9 @@ type
 
     class function glyphInfoWithGlyphName_forFont_baseString(glyphName_: NSString; font: NSFont; theString: NSString): NSGlyphInfo; message 'glyphInfoWithGlyphName:forFont:baseString:';
     class function glyphInfoWithGlyph_forFont_baseString(glyph: NSGlyph; font: NSFont; theString: NSString): NSGlyphInfo; message 'glyphInfoWithGlyph:forFont:baseString:';
-    class function glyphInfoWithCharacterIdentifier_collection_baseString(cid: culong; characterCollection_: NSCharacterCollection; theString: NSString): NSGlyphInfo; message 'glyphInfoWithCharacterIdentifier:collection:baseString:';
+    class function glyphInfoWithCharacterIdentifier_collection_baseString(cid: NSUInteger; characterCollection_: NSCharacterCollection; theString: NSString): NSGlyphInfo; message 'glyphInfoWithCharacterIdentifier:collection:baseString:';
     function glyphName: NSString; message 'glyphName';
-    function characterIdentifier: culong; message 'characterIdentifier';
+    function characterIdentifier: NSUInteger; message 'characterIdentifier';
     function characterCollection: NSCharacterCollection; message 'characterCollection';
   end; external;
 

packages/cocoaint/src/appkit/NSGradient.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSGradient.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSGRADIENT_PAS_H}
@@ -16,7 +16,7 @@ type
 
 { Types }
 type
-  NSGradientDrawingOptions = culong;
+  NSGradientDrawingOptions = NSUInteger;
 
 { Constants }
 
@@ -73,8 +73,8 @@ const
 
     function initWithStartingColor_endingColor(startingColor: NSColor; endingColor: NSColor): id; message 'initWithStartingColor:endingColor:';
     function initWithColors(colorArray: NSArray): id; message 'initWithColors:';
-    function initWithColorsAndLocations(firstColor: NSColor): id; message 'initWithColorsAndLocations:';
-    function initWithColors_atLocations_colorSpace(colorArray: NSArray; var locations: CGFloat; colorSpace_: NSColorSpace): id; message 'initWithColors:atLocations:colorSpace:';
+    function initWithColorsAndLocations(firstColor: NSColor): id; varargs; message 'initWithColorsAndLocations:';
+    function initWithColors_atLocations_colorSpace(colorArray: NSArray; locations: psingle; colorSpace_: NSColorSpace): id; message 'initWithColors:atLocations:colorSpace:';
     procedure drawFromPoint_toPoint_options(startingPoint: NSPoint; endingPoint: NSPoint; options: NSGradientDrawingOptions); message 'drawFromPoint:toPoint:options:';
     procedure drawInRect_angle(rect: NSRect; angle: CGFloat); message 'drawInRect:angle:';
     procedure drawInBezierPath_angle(path: NSBezierPath; angle: CGFloat); message 'drawInBezierPath:angle:';
@@ -82,8 +82,8 @@ const
     procedure drawInRect_relativeCenterPosition(rect: NSRect; relativeCenterPosition: NSPoint); message 'drawInRect:relativeCenterPosition:';
     procedure drawInBezierPath_relativeCenterPosition(path: NSBezierPath; relativeCenterPosition: NSPoint); message 'drawInBezierPath:relativeCenterPosition:';
     function colorSpace: NSColorSpace; message 'colorSpace';
-    function numberOfColorStops: clong; message 'numberOfColorStops';
-    procedure getColor_location_atIndex(var color: NSColor; var location: CGFloat; index: clong); message 'getColor:location:atIndex:';
+    function numberOfColorStops: NSInteger; message 'numberOfColorStops';
+    procedure getColor_location_atIndex(color: NSColorPointer; location: psingle; index: NSInteger); message 'getColor:location:atIndex:';
     function interpolatedColorAtLocation(location: CGFloat): NSColor; message 'interpolatedColorAtLocation:';
   end; external;
 

packages/cocoaint/src/appkit/NSGraphics.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSGraphics.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}
@@ -50,32 +50,13 @@ const
 
 { Types }
 type
-  NSCompositingOperation = culong;
-  NSBackingStoreType = culong;
-  NSWindowOrderingMode = clong;
-  NSFocusRingPlacement = culong;
-  NSFocusRingType = culong;
+  NSCompositingOperation = NSUInteger;
+  NSBackingStoreType = NSUInteger;
+  NSWindowOrderingMode = NSInteger;
+  NSFocusRingPlacement = NSUInteger;
+  NSFocusRingType = NSUInteger;
   NSWindowDepth = cint;
-  NSAnimationEffect = culong;
-
-{ CFString constants }
-var
-  NSCalibratedWhiteColorSpace: CFStringRef; external name '_NSCalibratedWhiteColorSpace';
-  NSCalibratedBlackColorSpace: CFStringRef; external name '_NSCalibratedBlackColorSpace';
-  NSCalibratedRGBColorSpace: CFStringRef; external name '_NSCalibratedRGBColorSpace';
-  NSDeviceWhiteColorSpace: CFStringRef; external name '_NSDeviceWhiteColorSpace';
-  NSDeviceBlackColorSpace: CFStringRef; external name '_NSDeviceBlackColorSpace';
-  NSDeviceRGBColorSpace: CFStringRef; external name '_NSDeviceRGBColorSpace';
-  NSDeviceCMYKColorSpace: CFStringRef; external name '_NSDeviceCMYKColorSpace';
-  NSNamedColorSpace: CFStringRef; external name '_NSNamedColorSpace';
-  NSPatternColorSpace: CFStringRef; external name '_NSPatternColorSpace';
-  NSCustomColorSpace: CFStringRef; external name '_NSCustomColorSpace';
-  NSDeviceResolution: CFStringRef; external name '_NSDeviceResolution';
-  NSDeviceColorSpaceName: CFStringRef; external name '_NSDeviceColorSpaceName';
-  NSDeviceBitsPerSample: CFStringRef; external name '_NSDeviceBitsPerSample';
-  NSDeviceIsScreen: CFStringRef; external name '_NSDeviceIsScreen';
-  NSDeviceIsPrinter: CFStringRef; external name '_NSDeviceIsPrinter';
-  NSDeviceSize: CFStringRef; external name '_NSDeviceSize';
+  NSAnimationEffect = NSUInteger;
 
 {$endif}
 {$endif}
@@ -92,38 +73,38 @@ var
 {$define NSGRAPHICS_PAS_F}
 
 { Functions }
-function NSBitsPerSampleFromDepth(depth: NSWindowDepth): clong; cdecl; external name 'NSBitsPerSampleFromDepth';
-function NSBitsPerPixelFromDepth(depth: NSWindowDepth): clong; cdecl; external name 'NSBitsPerPixelFromDepth';
-function NSNumberOfColorComponents(var colorSpaceName: NSString): clong; cdecl; external name 'NSNumberOfColorComponents';
+function NSBitsPerSampleFromDepth(depth: NSWindowDepth): NSInteger; cdecl; external name 'NSBitsPerSampleFromDepth';
+function NSBitsPerPixelFromDepth(depth: NSWindowDepth): NSInteger; cdecl; external name 'NSBitsPerPixelFromDepth';
+function NSNumberOfColorComponents(colorSpaceNamePointer: NSString): NSInteger; cdecl; external name 'NSNumberOfColorComponents';
 procedure NSRectFill(aRect: NSRect); cdecl; external name 'NSRectFill';
-procedure NSRectFillList(var rects: NSRect; count: clong); cdecl; external name 'NSRectFillList';
-procedure NSRectFillListWithGrays(var rects: NSRect; var grays: CGFloat; num: clong); cdecl; external name 'NSRectFillListWithGrays';
-procedure NSRectFillListWithColors(var rects: NSRect; colors: Pointer {NSColor}; num: clong); cdecl; external name 'NSRectFillListWithColors';
+procedure NSRectFillList(rectsPointer: NSRect; count: NSInteger); cdecl; external name 'NSRectFillList';
+procedure NSRectFillListWithGrays(rectsPointer: NSRect; graysPointer: CGFloat; num: NSInteger); cdecl; external name 'NSRectFillListWithGrays';
+procedure NSRectFillListWithColors(rectsPointer: NSRect; colors: Pointer {NSColor}; num: NSInteger); cdecl; external name 'NSRectFillListWithColors';
 procedure NSRectFillUsingOperation(aRect: NSRect; op: NSCompositingOperation); cdecl; external name 'NSRectFillUsingOperation';
-procedure NSRectFillListUsingOperation(var rects: NSRect; count: clong; op: NSCompositingOperation); cdecl; external name 'NSRectFillListUsingOperation';
-procedure NSRectFillListWithColorsUsingOperation(var rects: NSRect; colors: Pointer {NSColor}; num: clong; op: NSCompositingOperation); cdecl; external name 'NSRectFillListWithColorsUsingOperation';
+procedure NSRectFillListUsingOperation(rectsPointer: NSRect; count: NSInteger; op: NSCompositingOperation); cdecl; external name 'NSRectFillListUsingOperation';
+procedure NSRectFillListWithColorsUsingOperation(rectsPointer: NSRect; colors: Pointer {NSColor}; num: NSInteger; op: NSCompositingOperation); cdecl; external name 'NSRectFillListWithColorsUsingOperation';
 procedure NSFrameRect(aRect: NSRect); cdecl; external name 'NSFrameRect';
 procedure NSFrameRectWithWidth(aRect: NSRect; frameWidth: CGFloat); cdecl; external name 'NSFrameRectWithWidth';
 procedure NSFrameRectWithWidthUsingOperation(aRect: NSRect; frameWidth: CGFloat; op: NSCompositingOperation); cdecl; external name 'NSFrameRectWithWidthUsingOperation';
 procedure NSRectClip(aRect: NSRect); cdecl; external name 'NSRectClip';
-procedure NSRectClipList(var rects: NSRect; count: clong); cdecl; external name 'NSRectClipList';
-function NSDrawTiledRects(boundsRect: NSRect; clipRect: NSRect; var sides: NSRectEdge; var grays: CGFloat; count: clong): NSRect; cdecl; external name 'NSDrawTiledRects';
+procedure NSRectClipList(rectsPointer: NSRect; count: NSInteger); cdecl; external name 'NSRectClipList';
+function NSDrawTiledRects(boundsRect: NSRect; clipRect: NSRect; sidesPointer: NSRectEdge; graysPointer: CGFloat; count: NSInteger): NSRect; cdecl; external name 'NSDrawTiledRects';
 procedure NSDrawGrayBezel(aRect: NSRect; clipRect: NSRect); cdecl; external name 'NSDrawGrayBezel';
 procedure NSDrawGroove(aRect: NSRect; clipRect: NSRect); cdecl; external name 'NSDrawGroove';
 procedure NSDrawWhiteBezel(aRect: NSRect; clipRect: NSRect); cdecl; external name 'NSDrawWhiteBezel';
 procedure NSDrawButton(aRect: NSRect; clipRect: NSRect); cdecl; external name 'NSDrawButton';
 procedure NSEraseRect(aRect: NSRect); cdecl; external name 'NSEraseRect';
 function NSReadPixel(passedPoint: NSPoint): NSColor; cdecl; external name 'NSReadPixel';
-procedure NSDrawBitmap(rect: NSRect; width: clong; height: clong; bps: clong; spp: clong; bpp: clong; bpr: clong; isPlanar: Boolean; hasAlpha: Boolean; var colorSpaceName: NSString; char_: cuint); cdecl; external name 'NSDrawBitmap';
-procedure NSCopyBits(srcGState: clong; srcRect: NSRect; destPoint: NSPoint); cdecl; external name 'NSCopyBits';
+procedure NSDrawBitmap(rect: NSRect; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; bpp: NSInteger; bpr: NSInteger; isPlanar: Boolean; hasAlpha: Boolean; colorSpaceNamePointer: NSString; char_: cuint); cdecl; external name 'NSDrawBitmap';
+procedure NSCopyBits(srcGState: NSInteger; srcRect: NSRect; destPoint: NSPoint); cdecl; external name 'NSCopyBits';
 procedure NSHighlightRect(aRect: NSRect); cdecl; external name 'NSHighlightRect';
 procedure NSBeep; cdecl; external name 'NSBeep';
-procedure NSCountWindows(var count: clong); cdecl; external name 'NSCountWindows';
-procedure NSWindowList(size: clong; list: Pointer {array of clong}); cdecl; external name 'NSWindowList';
-procedure NSCountWindowsForContext(context: clong; var count: clong); cdecl; external name 'NSCountWindowsForContext';
-procedure NSWindowListForContext(context: clong; size: clong; list: Pointer {array of clong}); cdecl; external name 'NSWindowListForContext';
-function NSGetWindowServerMemory(context: clong; var virtualMemory: clong; var windowBackingMemory: clong; windowDumpString: Pointer {NSString}): clong; cdecl; external name 'NSGetWindowServerMemory';
-function NSDrawColorTiledRects(boundsRect: NSRect; clipRect: NSRect; var sides: NSRectEdge; colors: Pointer {NSColor}; count: clong): NSRect; cdecl; external name 'NSDrawColorTiledRects';
+procedure NSCountWindows(countPointer: NSInteger); cdecl; external name 'NSCountWindows';
+procedure NSWindowList(size: NSInteger; list: Pointer {array of NSInteger}); cdecl; external name 'NSWindowList';
+procedure NSCountWindowsForContext(context: NSInteger; countPointer: NSInteger); cdecl; external name 'NSCountWindowsForContext';
+procedure NSWindowListForContext(context: NSInteger; size: NSInteger; list: Pointer {array of NSInteger}); cdecl; external name 'NSWindowListForContext';
+function NSGetWindowServerMemory(context: NSInteger; virtualMemoryPointer: NSInteger; windowBackingMemoryPointer: NSInteger; windowDumpString: Pointer {NSString}): NSInteger; cdecl; external name 'NSGetWindowServerMemory';
+function NSDrawColorTiledRects(boundsRect: NSRect; clipRect: NSRect; sidesPointer: NSRectEdge; colors: Pointer {NSColor}; count: NSInteger): NSRect; cdecl; external name 'NSDrawColorTiledRects';
 procedure NSDrawDarkBezel(aRect: NSRect; clipRect: NSRect); cdecl; external name 'NSDrawDarkBezel';
 procedure NSDrawLightBezel(aRect: NSRect; clipRect: NSRect); cdecl; external name 'NSDrawLightBezel';
 procedure NSDottedFrameRect(aRect: NSRect); cdecl; external name 'NSDottedFrameRect';
@@ -131,7 +112,7 @@ procedure NSDrawWindowBackground(aRect: NSRect); cdecl; external name 'NSDrawWin
 procedure NSSetFocusRingStyle(placement: NSFocusRingPlacement); cdecl; external name 'NSSetFocusRingStyle';
 procedure NSDisableScreenUpdates; cdecl; external name 'NSDisableScreenUpdates';
 procedure NSEnableScreenUpdates; cdecl; external name 'NSEnableScreenUpdates';
-procedure NSShowAnimationEffect(animationEffect: NSAnimationEffect; centerLocation: NSPoint; size: NSSize; animationDelegate: id; didEndSelector: SEL; var contextInfo: Pointer); cdecl; external name 'NSShowAnimationEffect';
+procedure NSShowAnimationEffect(animationEffect: NSAnimationEffect; centerLocation: NSPoint; size: NSSize; animationDelegate: id; didEndSelector: SEL; contextInfoPointer: Pointer); cdecl; external name 'NSShowAnimationEffect';
 
 {$endif}
 {$endif}
@@ -140,6 +121,25 @@ procedure NSShowAnimationEffect(animationEffect: NSAnimationEffect; centerLocati
 {$ifndef NSGRAPHICS_PAS_T}
 {$define NSGRAPHICS_PAS_T}
 
+{ External string constants }
+var
+  NSCalibratedWhiteColorSpace: NSString; external name '_NSCalibratedWhiteColorSpace';
+  NSCalibratedBlackColorSpace: NSString; external name '_NSCalibratedBlackColorSpace';
+  NSCalibratedRGBColorSpace: NSString; external name '_NSCalibratedRGBColorSpace';
+  NSDeviceWhiteColorSpace: NSString; external name '_NSDeviceWhiteColorSpace';
+  NSDeviceBlackColorSpace: NSString; external name '_NSDeviceBlackColorSpace';
+  NSDeviceRGBColorSpace: NSString; external name '_NSDeviceRGBColorSpace';
+  NSDeviceCMYKColorSpace: NSString; external name '_NSDeviceCMYKColorSpace';
+  NSNamedColorSpace: NSString; external name '_NSNamedColorSpace';
+  NSPatternColorSpace: NSString; external name '_NSPatternColorSpace';
+  NSCustomColorSpace: NSString; external name '_NSCustomColorSpace';
+  NSDeviceResolution: NSString; external name '_NSDeviceResolution';
+  NSDeviceColorSpaceName: NSString; external name '_NSDeviceColorSpaceName';
+  NSDeviceBitsPerSample: NSString; external name '_NSDeviceBitsPerSample';
+  NSDeviceIsScreen: NSString; external name '_NSDeviceIsScreen';
+  NSDeviceIsPrinter: NSString; external name '_NSDeviceIsPrinter';
+  NSDeviceSize: NSString; external name '_NSDeviceSize';
+
 { External symbols }
 var
   NSWhite: CGFloat; external name '_NSWhite';

packages/cocoaint/src/appkit/NSGraphicsContext.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSGraphicsContext.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:46 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSGRAPHICSCONTEXT_PAS_H}
@@ -14,13 +14,6 @@ type
 {$ifndef NSGRAPHICSCONTEXT_PAS_T}
 {$define NSGRAPHICSCONTEXT_PAS_T}
 
-{ CFString constants }
-var
-  NSGraphicsContextDestinationAttributeName: CFStringRef; external name '_NSGraphicsContextDestinationAttributeName';
-  NSGraphicsContextRepresentationFormatAttributeName: CFStringRef; external name '_NSGraphicsContextRepresentationFormatAttributeName';
-  NSGraphicsContextPSFormat: CFStringRef; external name '_NSGraphicsContextPSFormat';
-  NSGraphicsContextPDFFormat: CFStringRef; external name '_NSGraphicsContextPDFFormat';
-
 { Constants }
 
 const
@@ -38,8 +31,8 @@ const
 
 { Types }
 type
-  NSImageInterpolation = culong;
-  NSColorRenderingIntent = clong;
+  NSImageInterpolation = NSUInteger;
+  NSColorRenderingIntent = NSInteger;
 
 {$endif}
 {$endif}
@@ -62,6 +55,13 @@ type
 {$ifndef NSGRAPHICSCONTEXT_PAS_T}
 {$define NSGRAPHICSCONTEXT_PAS_T}
 
+{ External string constants }
+var
+  NSGraphicsContextDestinationAttributeName: NSString; external name '_NSGraphicsContextDestinationAttributeName';
+  NSGraphicsContextRepresentationFormatAttributeName: NSString; external name '_NSGraphicsContextRepresentationFormatAttributeName';
+  NSGraphicsContextPSFormat: NSString; external name '_NSGraphicsContextPSFormat';
+  NSGraphicsContextPDFFormat: NSString; external name '_NSGraphicsContextPDFFormat';
+
 {$endif}
 {$endif}
 
@@ -89,7 +89,7 @@ type
     class function currentContextDrawingToScreen: Boolean; message 'currentContextDrawingToScreen';
     class procedure saveGraphicsState; message 'saveGraphicsState';
     class procedure restoreGraphicsState; message 'restoreGraphicsState';
-    class procedure setGraphicsState(gState: clong); message 'setGraphicsState:';
+    class procedure setGraphicsState(gState: NSInteger); message 'setGraphicsState:';
     function attributes: NSDictionary; message 'attributes';
     function isDrawingToScreen: Boolean; message 'isDrawingToScreen';
     procedure flushGraphics; message 'flushGraphics';
@@ -99,7 +99,7 @@ type
     function isFlipped: Boolean; message 'isFlipped';
 
     { Category: NSQuartzCoreAdditions }
-    function CIContext: CIContext_; message 'CIContext';
+    function CIContext: CIContext; message 'CIContext';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSHelpManager.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSHelpManager.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSHELPMANAGER_PAS_H}
@@ -14,11 +14,6 @@ type
 {$ifndef NSHELPMANAGER_PAS_T}
 {$define NSHELPMANAGER_PAS_T}
 
-{ CFString constants }
-var
-  NSContextHelpModeDidActivateNotification: CFStringRef; external name '_NSContextHelpModeDidActivateNotification';
-  NSContextHelpModeDidDeactivateNotification: CFStringRef; external name '_NSContextHelpModeDidDeactivateNotification';
-
 {$endif}
 {$endif}
 
@@ -40,6 +35,11 @@ var
 {$ifndef NSHELPMANAGER_PAS_T}
 {$define NSHELPMANAGER_PAS_T}
 
+{ External string constants }
+var
+  NSContextHelpModeDidActivateNotification: NSString; external name '_NSContextHelpModeDidActivateNotification';
+  NSContextHelpModeDidDeactivateNotification: NSString; external name '_NSContextHelpModeDidDeactivateNotification';
+
 {$endif}
 {$endif}
 

packages/cocoaint/src/appkit/NSImage.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSImage.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSIMAGE_PAS_H}
@@ -25,8 +25,8 @@ const
 
 { Types }
 type
-  NSImageLoadStatus = culong;
-  NSImageCacheMode = culong;
+  NSImageLoadStatus = NSUInteger;
+  NSImageCacheMode = NSUInteger;
 
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSImageCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSImageCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSIMAGECELL_PAS_H}
@@ -36,8 +36,8 @@ const
 
 { Types }
 type
-  NSImageAlignment = culong;
-  NSImageFrameStyle = culong;
+  NSImageAlignment = NSUInteger;
+  NSImageFrameStyle = NSUInteger;
 
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSIMAGEREP_PAS_H}
@@ -19,10 +19,6 @@ type
 const
   NSImageRepMatchesDevice = 0;
 
-{ CFString constants }
-var
-  NSImageRepRegistryDidChangeNotification: CFStringRef; external name '_NSImageRepRegistryDidChangeNotification';
-
 {$endif}
 {$endif}
 
@@ -44,6 +40,10 @@ var
 {$ifndef NSIMAGEREP_PAS_T}
 {$define NSIMAGEREP_PAS_T}
 
+{ External string constants }
+var
+  NSImageRepRegistryDidChangeNotification: NSString; external name '_NSImageRepRegistryDidChangeNotification';
+
 {$endif}
 {$endif}
 
@@ -89,12 +89,12 @@ var
     function isOpaque: Boolean; message 'isOpaque';
     procedure setColorSpaceName(string_: NSString); message 'setColorSpaceName:';
     function colorSpaceName: NSString; message 'colorSpaceName';
-    procedure setBitsPerSample(anInt: clong); message 'setBitsPerSample:';
-    function bitsPerSample: clong; message 'bitsPerSample';
-    procedure setPixelsWide(anInt: clong); message 'setPixelsWide:';
-    function pixelsWide: clong; message 'pixelsWide';
-    procedure setPixelsHigh(anInt: clong); message 'setPixelsHigh:';
-    function pixelsHigh: clong; message 'pixelsHigh';
+    procedure setBitsPerSample(anInt: NSInteger); message 'setBitsPerSample:';
+    function bitsPerSample: NSInteger; message 'bitsPerSample';
+    procedure setPixelsWide(anInt: NSInteger); message 'setPixelsWide:';
+    function pixelsWide: NSInteger; message 'pixelsWide';
+    procedure setPixelsHigh(anInt: NSInteger); message 'setPixelsHigh:';
+    function pixelsHigh: NSInteger; message 'pixelsHigh';
     class procedure registerImageRepClass(imageRepClass: Pobjc_class); message 'registerImageRepClass:';
     class procedure unregisterImageRepClass(imageRepClass: Pobjc_class); message 'unregisterImageRepClass:';
     class function registeredImageRepClasses: NSArray; message 'registeredImageRepClasses';

packages/cocoaint/src/appkit/NSImageView.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSImageView.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSIMAGEVIEW_PAS_H}

packages/cocoaint/src/appkit/NSInputManager.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSInputManager.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSINPUTMANAGER_PAS_H}
@@ -99,12 +99,12 @@ type
     procedure setMarkedText_selectedRange(aString: id; selRange: NSRange); message 'setMarkedText:selectedRange:';
     procedure unmarkText; message 'unmarkText';
     function hasMarkedText: Boolean; message 'hasMarkedText';
-    function conversationIdentifier: clong; message 'conversationIdentifier';
+    function conversationIdentifier: NSInteger; message 'conversationIdentifier';
     function attributedSubstringFromRange(theRange: NSRange): NSAttributedString; message 'attributedSubstringFromRange:';
     function markedRange: NSRange; message 'markedRange';
     function selectedRange: NSRange; message 'selectedRange';
     function firstRectForCharacterRange(theRange: NSRange): NSRect; message 'firstRectForCharacterRange:';
-    function characterIndexForPoint(thePoint: NSPoint): culong; message 'characterIndexForPoint:';
+    function characterIndexForPoint(thePoint: NSPoint): NSUInteger; message 'characterIndexForPoint:';
     function validAttributesForMarkedText: NSArray; message 'validAttributesForMarkedText';
   end; external name 'NSTextInput';
 {$endif}

packages/cocoaint/src/appkit/NSInputServer.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSInputServer.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSINPUTSERVER_PAS_H}
@@ -80,15 +80,15 @@ type
     procedure inputClientResignActive(sender: id); message 'inputClientResignActive:';
     procedure inputClientEnabled(sender: id); message 'inputClientEnabled:';
     procedure inputClientDisabled(sender: id); message 'inputClientDisabled:';
-    procedure activeConversationWillChange_fromOldConversation(sender: id; oldConversation: clong); message 'activeConversationWillChange:fromOldConversation:';
-    procedure activeConversationChanged_toNewConversation(sender: id; newConversation: clong); message 'activeConversationChanged:toNewConversation:';
+    procedure activeConversationWillChange_fromOldConversation(sender: id; oldConversation: NSInteger); message 'activeConversationWillChange:fromOldConversation:';
+    procedure activeConversationChanged_toNewConversation(sender: id; newConversation: NSInteger); message 'activeConversationChanged:toNewConversation:';
   end; external name 'NSInputServiceProvider';
   
 { NSInputServerMouseTracker Protocol }
   NSInputServerMouseTrackerProtocol = objcprotocol
-    function mouseDownOnCharacterIndex_atCoordinate_withModifier_client(theIndex: culong; thePoint: NSPoint; theFlags: culong; sender: id): Boolean; message 'mouseDownOnCharacterIndex:atCoordinate:withModifier:client:';
-    function mouseDraggedOnCharacterIndex_atCoordinate_withModifier_client(theIndex: culong; thePoint: NSPoint; theFlags: culong; sender: id): Boolean; message 'mouseDraggedOnCharacterIndex:atCoordinate:withModifier:client:';
-    procedure mouseUpOnCharacterIndex_atCoordinate_withModifier_client(theIndex: culong; thePoint: NSPoint; theFlags: culong; sender: id); message 'mouseUpOnCharacterIndex:atCoordinate:withModifier:client:';
+    function mouseDownOnCharacterIndex_atCoordinate_withModifier_client(theIndex: NSUInteger; thePoint: NSPoint; theFlags: NSUInteger; sender: id): Boolean; message 'mouseDownOnCharacterIndex:atCoordinate:withModifier:client:';
+    function mouseDraggedOnCharacterIndex_atCoordinate_withModifier_client(theIndex: NSUInteger; thePoint: NSPoint; theFlags: NSUInteger; sender: id): Boolean; message 'mouseDraggedOnCharacterIndex:atCoordinate:withModifier:client:';
+    procedure mouseUpOnCharacterIndex_atCoordinate_withModifier_client(theIndex: NSUInteger; thePoint: NSPoint; theFlags: NSUInteger; sender: id); message 'mouseUpOnCharacterIndex:atCoordinate:withModifier:client:';
   end; external name 'NSInputServerMouseTracker';
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSInterfaceStyle.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSInterfaceStyle.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}
@@ -15,11 +15,7 @@ const
 
 { Types }
 type
-  NSInterfaceStyle = culong;
-
-{ CFString constants }
-var
-  NSInterfaceStyleDefault: CFStringRef; external name '_NSInterfaceStyleDefault';
+  NSInterfaceStyle = NSUInteger;
 
 {$endif}
 {$endif}
@@ -36,7 +32,7 @@ var
 {$define NSINTERFACESTYLE_PAS_F}
 
 { Functions }
-function NSInterfaceStyleForKey(var key: NSString; var responder: NSResponder): NSInterfaceStyle; cdecl; external name 'NSInterfaceStyleForKey';
+function NSInterfaceStyleForKey(keyPointer: NSString; responderPointer: NSResponder): NSInterfaceStyle; cdecl; external name 'NSInterfaceStyleForKey';
 
 {$endif}
 {$endif}
@@ -45,5 +41,9 @@ function NSInterfaceStyleForKey(var key: NSString; var responder: NSResponder):
 {$ifndef NSINTERFACESTYLE_PAS_T}
 {$define NSINTERFACESTYLE_PAS_T}
 
+{ External string constants }
+var
+  NSInterfaceStyleDefault: NSString; external name '_NSInterfaceStyleDefault';
+
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSKeyValueBinding.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSKeyValueBinding.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 
 {$ifdef TYPES}

packages/cocoaint/src/appkit/NSLayoutManager.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSLayoutManager.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSLAYOUTMANAGER_PAS_H}
@@ -37,8 +37,8 @@ const
 
 { Types }
 type
-  NSGlyphInscription = culong;
-  NSTypesetterBehavior = clong;
+  NSGlyphInscription = NSUInteger;
+  NSTypesetterBehavior = NSInteger;
 
 {$endif}
 {$endif}
@@ -129,16 +129,16 @@ type
     __deferredDisplayCharRange: NSRange;
     __firstTextView: NSTextView;
     __cachedRectArray: NSRect; {garbage collector: __strong }
-    __cachedRectArrayCapacity: culong;
+    __cachedRectArrayCapacity: NSUInteger;
     __glyphBuffer: char; {garbage collector: __strong }
-    __glyphBufferSize: culong;
+    __glyphBufferSize: NSUInteger;
     __cachedLocationNominalGlyphRange: NSRange;
-    __cachedLocationGlyphIndex: culong;
+    __cachedLocationGlyphIndex: NSUInteger;
     __cachedLocation: NSPoint;
     __cachedFontCharRange: NSRange;
     __cachedFont: NSFont;
-    __firstUnlaidGlyphIndex: culong;
-    __firstUnlaidCharIndex: culong;
+    __firstUnlaidGlyphIndex: NSUInteger;
+    __firstUnlaidCharIndex: NSUInteger;
     __rulerAccView: NSBox;
     __rulerAccViewAlignmentButtons: id;
     __rulerAccViewSpacing: id;
@@ -167,8 +167,8 @@ type
     procedure setDelegate(delegate_: id); message 'setDelegate:';
     function textContainers: NSArray; message 'textContainers';
     procedure addTextContainer(container: NSTextContainer); message 'addTextContainer:';
-    procedure insertTextContainer_atIndex(container: NSTextContainer; index: culong); message 'insertTextContainer:atIndex:';
-    procedure removeTextContainerAtIndex(index: culong); message 'removeTextContainerAtIndex:';
+    procedure insertTextContainer_atIndex(container: NSTextContainer; index: NSUInteger); message 'insertTextContainer:atIndex:';
+    procedure removeTextContainerAtIndex(index: NSUInteger); message 'removeTextContainerAtIndex:';
     procedure textContainerChangedGeometry(container: NSTextContainer); message 'textContainerChangedGeometry:';
     procedure textContainerChangedTextView(container: NSTextContainer); message 'textContainerChangedTextView:';
     procedure setBackgroundLayoutEnabled(flag: Boolean); message 'setBackgroundLayoutEnabled:';
@@ -185,90 +185,90 @@ type
     function defaultAttachmentScaling: NSImageScaling; message 'defaultAttachmentScaling';
     procedure setTypesetterBehavior(theBehavior: NSTypesetterBehavior); message 'setTypesetterBehavior:';
     function typesetterBehavior: NSTypesetterBehavior; message 'typesetterBehavior';
-    function layoutOptions: culong; message 'layoutOptions';
+    function layoutOptions: NSUInteger; message 'layoutOptions';
     procedure setAllowsNonContiguousLayout(flag: Boolean); message 'setAllowsNonContiguousLayout:';
     function allowsNonContiguousLayout: Boolean; message 'allowsNonContiguousLayout';
     function hasNonContiguousLayout: Boolean; message 'hasNonContiguousLayout';
-    procedure invalidateGlyphsForCharacterRange_changeInLength_actualCharacterRange(charRange: NSRange; delta: clong; actualCharRange: NSRangePointer); message 'invalidateGlyphsForCharacterRange:changeInLength:actualCharacterRange:';
+    procedure invalidateGlyphsForCharacterRange_changeInLength_actualCharacterRange(charRange: NSRange; delta: NSInteger; actualCharRange: NSRangePointer); message 'invalidateGlyphsForCharacterRange:changeInLength:actualCharacterRange:';
     procedure invalidateLayoutForCharacterRange_actualCharacterRange(charRange: NSRange; actualCharRange: NSRangePointer); message 'invalidateLayoutForCharacterRange:actualCharacterRange:';
     procedure invalidateLayoutForCharacterRange_isSoft_actualCharacterRange(charRange: NSRange; flag: Boolean; actualCharRange: NSRangePointer); message 'invalidateLayoutForCharacterRange:isSoft:actualCharacterRange:';
     procedure invalidateDisplayForCharacterRange(charRange: NSRange); message 'invalidateDisplayForCharacterRange:';
     procedure invalidateDisplayForGlyphRange(glyphRange: NSRange); message 'invalidateDisplayForGlyphRange:';
-    procedure textStorage_edited_range_changeInLength_invalidatedRange(str: NSTextStorage; editedMask: culong; newCharRange: NSRange; delta: clong; invalidatedCharRange: NSRange); message 'textStorage:edited:range:changeInLength:invalidatedRange:';
+    procedure textStorage_edited_range_changeInLength_invalidatedRange(str: NSTextStorage; editedMask: NSUInteger; newCharRange: NSRange; delta: NSInteger; invalidatedCharRange: NSRange); message 'textStorage:edited:range:changeInLength:invalidatedRange:';
     procedure ensureGlyphsForCharacterRange(charRange: NSRange); message 'ensureGlyphsForCharacterRange:';
     procedure ensureGlyphsForGlyphRange(glyphRange: NSRange); message 'ensureGlyphsForGlyphRange:';
     procedure ensureLayoutForCharacterRange(charRange: NSRange); message 'ensureLayoutForCharacterRange:';
     procedure ensureLayoutForGlyphRange(glyphRange: NSRange); message 'ensureLayoutForGlyphRange:';
     procedure ensureLayoutForTextContainer(container: NSTextContainer); message 'ensureLayoutForTextContainer:';
     procedure ensureLayoutForBoundingRect_inTextContainer(bounds: NSRect; container: NSTextContainer); message 'ensureLayoutForBoundingRect:inTextContainer:';
-    procedure insertGlyphs_length_forStartingGlyphAtIndex_characterIndex(var glyphs: NSGlyph; length: culong; glyphIndex: culong; charIndex: culong); message 'insertGlyphs:length:forStartingGlyphAtIndex:characterIndex:';
-    procedure insertGlyph_atGlyphIndex_characterIndex(glyph: NSGlyph; glyphIndex: culong; charIndex: culong); message 'insertGlyph:atGlyphIndex:characterIndex:';
-    procedure replaceGlyphAtIndex_withGlyph(glyphIndex: culong; newGlyph: NSGlyph); message 'replaceGlyphAtIndex:withGlyph:';
+    procedure insertGlyphs_length_forStartingGlyphAtIndex_characterIndex(glyphs: NSGlyphPointer; length: NSUInteger; glyphIndex: NSUInteger; charIndex: NSUInteger); message 'insertGlyphs:length:forStartingGlyphAtIndex:characterIndex:';
+    procedure insertGlyph_atGlyphIndex_characterIndex(glyph: NSGlyph; glyphIndex: NSUInteger; charIndex: NSUInteger); message 'insertGlyph:atGlyphIndex:characterIndex:';
+    procedure replaceGlyphAtIndex_withGlyph(glyphIndex: NSUInteger; newGlyph: NSGlyph); message 'replaceGlyphAtIndex:withGlyph:';
     procedure deleteGlyphsInRange(glyphRange: NSRange); message 'deleteGlyphsInRange:';
-    procedure setCharacterIndex_forGlyphAtIndex(charIndex: culong; glyphIndex: culong); message 'setCharacterIndex:forGlyphAtIndex:';
-    procedure setIntAttribute_value_forGlyphAtIndex(attributeTag: clong; val: clong; glyphIndex: culong); message 'setIntAttribute:value:forGlyphAtIndex:';
+    procedure setCharacterIndex_forGlyphAtIndex(charIndex: NSUInteger; glyphIndex: NSUInteger); message 'setCharacterIndex:forGlyphAtIndex:';
+    procedure setIntAttribute_value_forGlyphAtIndex(attributeTag: NSInteger; val: NSInteger; glyphIndex: NSUInteger); message 'setIntAttribute:value:forGlyphAtIndex:';
     procedure invalidateGlyphsOnLayoutInvalidationForGlyphRange(glyphRange: NSRange); message 'invalidateGlyphsOnLayoutInvalidationForGlyphRange:';
-    function numberOfGlyphs: culong; message 'numberOfGlyphs';
-    function glyphAtIndex_isValidIndex(glyphIndex: culong; var isValidIndex: Boolean): NSGlyph; message 'glyphAtIndex:isValidIndex:';
-    function glyphAtIndex(glyphIndex: culong): NSGlyph; message 'glyphAtIndex:';
-    function isValidGlyphIndex(glyphIndex: culong): Boolean; message 'isValidGlyphIndex:';
-    function characterIndexForGlyphAtIndex(glyphIndex: culong): culong; message 'characterIndexForGlyphAtIndex:';
-    function glyphIndexForCharacterAtIndex(charIndex: culong): culong; message 'glyphIndexForCharacterAtIndex:';
-    function intAttribute_forGlyphAtIndex(attributeTag: clong; glyphIndex: culong): clong; message 'intAttribute:forGlyphAtIndex:';
-    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits(glyphRange: NSRange; var glyphBuffer: NSGlyph; var charIndexBuffer: culong; var inscribeBuffer: NSGlyphInscription; var elasticBuffer: Boolean): culong; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:';
-    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits_bidiLevels(glyphRange: NSRange; var glyphBuffer: NSGlyph; var charIndexBuffer: culong; var inscribeBuffer: NSGlyphInscription; var elasticBuffer: Boolean; bidiLevelBuffer: Pointer): culong; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:bidiLevels:';
-    function getGlyphs_range(var glyphArray: NSGlyph; glyphRange: NSRange): culong; message 'getGlyphs:range:';
+    function numberOfGlyphs: NSUInteger; message 'numberOfGlyphs';
+    function glyphAtIndex_isValidIndex(glyphIndex: NSUInteger; isValidIndex: pboolean): NSGlyph; message 'glyphAtIndex:isValidIndex:';
+    function glyphAtIndex(glyphIndex: NSUInteger): NSGlyph; message 'glyphAtIndex:';
+    function isValidGlyphIndex(glyphIndex: NSUInteger): Boolean; message 'isValidGlyphIndex:';
+    function characterIndexForGlyphAtIndex(glyphIndex: NSUInteger): NSUInteger; message 'characterIndexForGlyphAtIndex:';
+    function glyphIndexForCharacterAtIndex(charIndex: NSUInteger): NSUInteger; message 'glyphIndexForCharacterAtIndex:';
+    function intAttribute_forGlyphAtIndex(attributeTag: NSInteger; glyphIndex: NSUInteger): NSInteger; message 'intAttribute:forGlyphAtIndex:';
+    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits(glyphRange: NSRange; glyphBuffer: NSGlyphPointer; charIndexBuffer: NSUIntegerPointer; inscribeBuffer: NSGlyphInscriptionPointer; elasticBuffer: pboolean): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:';
+    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits_bidiLevels(glyphRange: NSRange; glyphBuffer: NSGlyphPointer; charIndexBuffer: NSUIntegerPointer; inscribeBuffer: NSGlyphInscriptionPointer; elasticBuffer: pboolean; bidiLevelBuffer: Pointer): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:bidiLevels:';
+    function getGlyphs_range(glyphArray: NSGlyphPointer; glyphRange: NSRange): NSUInteger; message 'getGlyphs:range:';
     procedure setTextContainer_forGlyphRange(container: NSTextContainer; glyphRange: NSRange); message 'setTextContainer:forGlyphRange:';
     procedure setLineFragmentRect_forGlyphRange_usedRect(fragmentRect: NSRect; glyphRange: NSRange; usedRect: NSRect); message 'setLineFragmentRect:forGlyphRange:usedRect:';
     procedure setExtraLineFragmentRect_usedRect_textContainer(fragmentRect: NSRect; usedRect: NSRect; container: NSTextContainer); message 'setExtraLineFragmentRect:usedRect:textContainer:';
     procedure setLocation_forStartOfGlyphRange(location: NSPoint; glyphRange: NSRange); message 'setLocation:forStartOfGlyphRange:';
-    procedure setLocations_startingGlyphIndexes_count_forGlyphRange(locations: NSPointArray; var glyphIndexes: culong; count: culong; glyphRange: NSRange); message 'setLocations:startingGlyphIndexes:count:forGlyphRange:';
-    procedure setNotShownAttribute_forGlyphAtIndex(flag: Boolean; glyphIndex: culong); message 'setNotShownAttribute:forGlyphAtIndex:';
-    procedure setDrawsOutsideLineFragment_forGlyphAtIndex(flag: Boolean; glyphIndex: culong); message 'setDrawsOutsideLineFragment:forGlyphAtIndex:';
+    procedure setLocations_startingGlyphIndexes_count_forGlyphRange(locations: NSPointArray; glyphIndexes: NSUIntegerPointer; count: NSUInteger; glyphRange: NSRange); message 'setLocations:startingGlyphIndexes:count:forGlyphRange:';
+    procedure setNotShownAttribute_forGlyphAtIndex(flag: Boolean; glyphIndex: NSUInteger); message 'setNotShownAttribute:forGlyphAtIndex:';
+    procedure setDrawsOutsideLineFragment_forGlyphAtIndex(flag: Boolean; glyphIndex: NSUInteger); message 'setDrawsOutsideLineFragment:forGlyphAtIndex:';
     procedure setAttachmentSize_forGlyphRange(attachmentSize: NSSize; glyphRange: NSRange); message 'setAttachmentSize:forGlyphRange:';
-    procedure getFirstUnlaidCharacterIndex_glyphIndex(var charIndex: culong; var glyphIndex: culong); message 'getFirstUnlaidCharacterIndex:glyphIndex:';
-    function firstUnlaidCharacterIndex: culong; message 'firstUnlaidCharacterIndex';
-    function firstUnlaidGlyphIndex: culong; message 'firstUnlaidGlyphIndex';
-    function textContainerForGlyphAtIndex_effectiveRange(glyphIndex: culong; effectiveGlyphRange: NSRangePointer): NSTextContainer; message 'textContainerForGlyphAtIndex:effectiveRange:';
+    procedure getFirstUnlaidCharacterIndex_glyphIndex(charIndex: NSUIntegerPointer; glyphIndex: NSUIntegerPointer); message 'getFirstUnlaidCharacterIndex:glyphIndex:';
+    function firstUnlaidCharacterIndex: NSUInteger; message 'firstUnlaidCharacterIndex';
+    function firstUnlaidGlyphIndex: NSUInteger; message 'firstUnlaidGlyphIndex';
+    function textContainerForGlyphAtIndex_effectiveRange(glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer): NSTextContainer; message 'textContainerForGlyphAtIndex:effectiveRange:';
     function usedRectForTextContainer(container: NSTextContainer): NSRect; message 'usedRectForTextContainer:';
-    function lineFragmentRectForGlyphAtIndex_effectiveRange(glyphIndex: culong; effectiveGlyphRange: NSRangePointer): NSRect; message 'lineFragmentRectForGlyphAtIndex:effectiveRange:';
-    function lineFragmentUsedRectForGlyphAtIndex_effectiveRange(glyphIndex: culong; effectiveGlyphRange: NSRangePointer): NSRect; message 'lineFragmentUsedRectForGlyphAtIndex:effectiveRange:';
-    function lineFragmentRectForGlyphAtIndex_effectiveRange_withoutAdditionalLayout(glyphIndex: culong; effectiveGlyphRange: NSRangePointer; flag: Boolean): NSRect; message 'lineFragmentRectForGlyphAtIndex:effectiveRange:withoutAdditionalLayout:';
-    function lineFragmentUsedRectForGlyphAtIndex_effectiveRange_withoutAdditionalLayout(glyphIndex: culong; effectiveGlyphRange: NSRangePointer; flag: Boolean): NSRect; message 'lineFragmentUsedRectForGlyphAtIndex:effectiveRange:withoutAdditionalLayout:';
-    function textContainerForGlyphAtIndex_effectiveRange_withoutAdditionalLayout(glyphIndex: culong; effectiveGlyphRange: NSRangePointer; flag: Boolean): NSTextContainer; message 'textContainerForGlyphAtIndex:effectiveRange:withoutAdditionalLayout:';
+    function lineFragmentRectForGlyphAtIndex_effectiveRange(glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer): NSRect; message 'lineFragmentRectForGlyphAtIndex:effectiveRange:';
+    function lineFragmentUsedRectForGlyphAtIndex_effectiveRange(glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer): NSRect; message 'lineFragmentUsedRectForGlyphAtIndex:effectiveRange:';
+    function lineFragmentRectForGlyphAtIndex_effectiveRange_withoutAdditionalLayout(glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer; flag: Boolean): NSRect; message 'lineFragmentRectForGlyphAtIndex:effectiveRange:withoutAdditionalLayout:';
+    function lineFragmentUsedRectForGlyphAtIndex_effectiveRange_withoutAdditionalLayout(glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer; flag: Boolean): NSRect; message 'lineFragmentUsedRectForGlyphAtIndex:effectiveRange:withoutAdditionalLayout:';
+    function textContainerForGlyphAtIndex_effectiveRange_withoutAdditionalLayout(glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer; flag: Boolean): NSTextContainer; message 'textContainerForGlyphAtIndex:effectiveRange:withoutAdditionalLayout:';
     function extraLineFragmentRect: NSRect; message 'extraLineFragmentRect';
     function extraLineFragmentUsedRect: NSRect; message 'extraLineFragmentUsedRect';
     function extraLineFragmentTextContainer: NSTextContainer; message 'extraLineFragmentTextContainer';
-    function locationForGlyphAtIndex(glyphIndex: culong): NSPoint; message 'locationForGlyphAtIndex:';
-    function notShownAttributeForGlyphAtIndex(glyphIndex: culong): Boolean; message 'notShownAttributeForGlyphAtIndex:';
-    function drawsOutsideLineFragmentForGlyphAtIndex(glyphIndex: culong): Boolean; message 'drawsOutsideLineFragmentForGlyphAtIndex:';
-    function attachmentSizeForGlyphAtIndex(glyphIndex: culong): NSSize; message 'attachmentSizeForGlyphAtIndex:';
+    function locationForGlyphAtIndex(glyphIndex: NSUInteger): NSPoint; message 'locationForGlyphAtIndex:';
+    function notShownAttributeForGlyphAtIndex(glyphIndex: NSUInteger): Boolean; message 'notShownAttributeForGlyphAtIndex:';
+    function drawsOutsideLineFragmentForGlyphAtIndex(glyphIndex: NSUInteger): Boolean; message 'drawsOutsideLineFragmentForGlyphAtIndex:';
+    function attachmentSizeForGlyphAtIndex(glyphIndex: NSUInteger): NSSize; message 'attachmentSizeForGlyphAtIndex:';
     procedure setLayoutRect_forTextBlock_glyphRange(rect: NSRect; block: NSTextBlock; glyphRange: NSRange); message 'setLayoutRect:forTextBlock:glyphRange:';
     procedure setBoundsRect_forTextBlock_glyphRange(rect: NSRect; block: NSTextBlock; glyphRange: NSRange); message 'setBoundsRect:forTextBlock:glyphRange:';
     function layoutRectForTextBlock_glyphRange(block: NSTextBlock; glyphRange: NSRange): NSRect; message 'layoutRectForTextBlock:glyphRange:';
     function boundsRectForTextBlock_glyphRange(block: NSTextBlock; glyphRange: NSRange): NSRect; message 'boundsRectForTextBlock:glyphRange:';
-    function layoutRectForTextBlock_atIndex_effectiveRange(block: NSTextBlock; glyphIndex: culong; effectiveGlyphRange: NSRangePointer): NSRect; message 'layoutRectForTextBlock:atIndex:effectiveRange:';
-    function boundsRectForTextBlock_atIndex_effectiveRange(block: NSTextBlock; glyphIndex: culong; effectiveGlyphRange: NSRangePointer): NSRect; message 'boundsRectForTextBlock:atIndex:effectiveRange:';
+    function layoutRectForTextBlock_atIndex_effectiveRange(block: NSTextBlock; glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer): NSRect; message 'layoutRectForTextBlock:atIndex:effectiveRange:';
+    function boundsRectForTextBlock_atIndex_effectiveRange(block: NSTextBlock; glyphIndex: NSUInteger; effectiveGlyphRange: NSRangePointer): NSRect; message 'boundsRectForTextBlock:atIndex:effectiveRange:';
     function glyphRangeForCharacterRange_actualCharacterRange(charRange: NSRange; actualCharRange: NSRangePointer): NSRange; message 'glyphRangeForCharacterRange:actualCharacterRange:';
     function characterRangeForGlyphRange_actualGlyphRange(glyphRange: NSRange; actualGlyphRange: NSRangePointer): NSRange; message 'characterRangeForGlyphRange:actualGlyphRange:';
     function glyphRangeForTextContainer(container: NSTextContainer): NSRange; message 'glyphRangeForTextContainer:';
-    function rangeOfNominallySpacedGlyphsContainingIndex(glyphIndex: culong): NSRange; message 'rangeOfNominallySpacedGlyphsContainingIndex:';
-    function rectArrayForCharacterRange_withinSelectedCharacterRange_inTextContainer_rectCount(charRange: NSRange; selCharRange: NSRange; container: NSTextContainer; var rectCount: culong): NSRectArray; message 'rectArrayForCharacterRange:withinSelectedCharacterRange:inTextContainer:rectCount:';
-    function rectArrayForGlyphRange_withinSelectedGlyphRange_inTextContainer_rectCount(glyphRange: NSRange; selGlyphRange: NSRange; container: NSTextContainer; var rectCount: culong): NSRectArray; message 'rectArrayForGlyphRange:withinSelectedGlyphRange:inTextContainer:rectCount:';
+    function rangeOfNominallySpacedGlyphsContainingIndex(glyphIndex: NSUInteger): NSRange; message 'rangeOfNominallySpacedGlyphsContainingIndex:';
+    function rectArrayForCharacterRange_withinSelectedCharacterRange_inTextContainer_rectCount(charRange: NSRange; selCharRange: NSRange; container: NSTextContainer; rectCount: NSUIntegerPointer): NSRectArray; message 'rectArrayForCharacterRange:withinSelectedCharacterRange:inTextContainer:rectCount:';
+    function rectArrayForGlyphRange_withinSelectedGlyphRange_inTextContainer_rectCount(glyphRange: NSRange; selGlyphRange: NSRange; container: NSTextContainer; rectCount: NSUIntegerPointer): NSRectArray; message 'rectArrayForGlyphRange:withinSelectedGlyphRange:inTextContainer:rectCount:';
     function boundingRectForGlyphRange_inTextContainer(glyphRange: NSRange; container: NSTextContainer): NSRect; message 'boundingRectForGlyphRange:inTextContainer:';
     function glyphRangeForBoundingRect_inTextContainer(bounds: NSRect; container: NSTextContainer): NSRange; message 'glyphRangeForBoundingRect:inTextContainer:';
     function glyphRangeForBoundingRectWithoutAdditionalLayout_inTextContainer(bounds: NSRect; container: NSTextContainer): NSRange; message 'glyphRangeForBoundingRectWithoutAdditionalLayout:inTextContainer:';
-    function glyphIndexForPoint_inTextContainer_fractionOfDistanceThroughGlyph(point: NSPoint; container: NSTextContainer; var partialFraction: CGFloat): culong; message 'glyphIndexForPoint:inTextContainer:fractionOfDistanceThroughGlyph:';
-    function glyphIndexForPoint_inTextContainer(point: NSPoint; container: NSTextContainer): culong; message 'glyphIndexForPoint:inTextContainer:';
+    function glyphIndexForPoint_inTextContainer_fractionOfDistanceThroughGlyph(point: NSPoint; container: NSTextContainer; partialFraction: psingle): NSUInteger; message 'glyphIndexForPoint:inTextContainer:fractionOfDistanceThroughGlyph:';
+    function glyphIndexForPoint_inTextContainer(point: NSPoint; container: NSTextContainer): NSUInteger; message 'glyphIndexForPoint:inTextContainer:';
     function fractionOfDistanceThroughGlyphForPoint_inTextContainer(point: NSPoint; container: NSTextContainer): CGFloat; message 'fractionOfDistanceThroughGlyphForPoint:inTextContainer:';
-    function getLineFragmentInsertionPointsForCharacterAtIndex_alternatePositions_inDisplayOrder_positions_characterIndexes(charIndex: culong; aFlag: Boolean; dFlag: Boolean; var positions: CGFloat; var charIndexes: culong): culong; message 'getLineFragmentInsertionPointsForCharacterAtIndex:alternatePositions:inDisplayOrder:positions:characterIndexes:';
-    function temporaryAttributesAtCharacterIndex_effectiveRange(charIndex: culong; effectiveCharRange: NSRangePointer): NSDictionary; message 'temporaryAttributesAtCharacterIndex:effectiveRange:';
+    function getLineFragmentInsertionPointsForCharacterAtIndex_alternatePositions_inDisplayOrder_positions_characterIndexes(charIndex: NSUInteger; aFlag: Boolean; dFlag: Boolean; positions: psingle; charIndexes: NSUIntegerPointer): NSUInteger; message 'getLineFragmentInsertionPointsForCharacterAtIndex:alternatePositions:inDisplayOrder:positions:characterIndexes:';
+    function temporaryAttributesAtCharacterIndex_effectiveRange(charIndex: NSUInteger; effectiveCharRange: NSRangePointer): NSDictionary; message 'temporaryAttributesAtCharacterIndex:effectiveRange:';
     procedure setTemporaryAttributes_forCharacterRange(attrs: NSDictionary; charRange: NSRange); message 'setTemporaryAttributes:forCharacterRange:';
     procedure addTemporaryAttributes_forCharacterRange(attrs: NSDictionary; charRange: NSRange); message 'addTemporaryAttributes:forCharacterRange:';
     procedure removeTemporaryAttribute_forCharacterRange(attrName: NSString; charRange: NSRange); message 'removeTemporaryAttribute:forCharacterRange:';
-    function temporaryAttribute_atCharacterIndex_effectiveRange(attrName: NSString; location: culong; range: NSRangePointer): id; message 'temporaryAttribute:atCharacterIndex:effectiveRange:';
-    function temporaryAttribute_atCharacterIndex_longestEffectiveRange_inRange(attrName: NSString; location: culong; range: NSRangePointer; rangeLimit: NSRange): id; message 'temporaryAttribute:atCharacterIndex:longestEffectiveRange:inRange:';
-    function temporaryAttributesAtCharacterIndex_longestEffectiveRange_inRange(location: culong; range: NSRangePointer; rangeLimit: NSRange): NSDictionary; message 'temporaryAttributesAtCharacterIndex:longestEffectiveRange:inRange:';
+    function temporaryAttribute_atCharacterIndex_effectiveRange(attrName: NSString; location: NSUInteger; range: NSRangePointer): id; message 'temporaryAttribute:atCharacterIndex:effectiveRange:';
+    function temporaryAttribute_atCharacterIndex_longestEffectiveRange_inRange(attrName: NSString; location: NSUInteger; range: NSRangePointer; rangeLimit: NSRange): id; message 'temporaryAttribute:atCharacterIndex:longestEffectiveRange:inRange:';
+    function temporaryAttributesAtCharacterIndex_longestEffectiveRange_inRange(location: NSUInteger; range: NSRangePointer; rangeLimit: NSRange): NSDictionary; message 'temporaryAttributesAtCharacterIndex:longestEffectiveRange:inRange:';
     procedure addTemporaryAttribute_value_forCharacterRange(attrName: NSString; value: id; charRange: NSRange); message 'addTemporaryAttribute:value:forCharacterRange:';
     function substituteFontForFont(originalFont: NSFont): NSFont; message 'substituteFontForFont:';
     function defaultLineHeightForFont(theFont: NSFont): CGFloat; message 'defaultLineHeightForFont:';
@@ -284,12 +284,12 @@ type
     function textViewForBeginningOfSelection: NSTextView; message 'textViewForBeginningOfSelection';
     procedure drawBackgroundForGlyphRange_atPoint(glyphsToShow: NSRange; origin: NSPoint); message 'drawBackgroundForGlyphRange:atPoint:';
     procedure drawGlyphsForGlyphRange_atPoint(glyphsToShow: NSRange; origin: NSPoint); message 'drawGlyphsForGlyphRange:atPoint:';
-    procedure showPackedGlyphs_length_glyphRange_atPoint_font_color_printingAdjustment(glyphs: Pointer; glyphLen: culong; glyphRange: NSRange; point: NSPoint; font: NSFont; color: NSColor; printingAdjustment: NSSize); message 'showPackedGlyphs:length:glyphRange:atPoint:font:color:printingAdjustment:';
-    procedure showAttachmentCell_inRect_characterIndex(cell: NSCell; rect: NSRect; attachmentIndex: culong); message 'showAttachmentCell:inRect:characterIndex:';
-    procedure drawUnderlineForGlyphRange_underlineType_baselineOffset_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; underlineVal: clong; baselineOffset: CGFloat; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'drawUnderlineForGlyphRange:underlineType:baselineOffset:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
-    procedure underlineGlyphRange_underlineType_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; underlineVal: clong; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'underlineGlyphRange:underlineType:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
-    procedure drawStrikethroughForGlyphRange_strikethroughType_baselineOffset_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; strikethroughVal: clong; baselineOffset: CGFloat; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'drawStrikethroughForGlyphRange:strikethroughType:baselineOffset:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
-    procedure strikethroughGlyphRange_strikethroughType_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; strikethroughVal: clong; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'strikethroughGlyphRange:strikethroughType:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
+    procedure showPackedGlyphs_length_glyphRange_atPoint_font_color_printingAdjustment(glyphs: Pointer; glyphLen: NSUInteger; glyphRange: NSRange; point: NSPoint; font: NSFont; color: NSColor; printingAdjustment: NSSize); message 'showPackedGlyphs:length:glyphRange:atPoint:font:color:printingAdjustment:';
+    procedure showAttachmentCell_inRect_characterIndex(cell: NSCell; rect: NSRect; attachmentIndex: NSUInteger); message 'showAttachmentCell:inRect:characterIndex:';
+    procedure drawUnderlineForGlyphRange_underlineType_baselineOffset_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; underlineVal: NSInteger; baselineOffset: CGFloat; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'drawUnderlineForGlyphRange:underlineType:baselineOffset:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
+    procedure underlineGlyphRange_underlineType_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; underlineVal: NSInteger; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'underlineGlyphRange:underlineType:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
+    procedure drawStrikethroughForGlyphRange_strikethroughType_baselineOffset_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; strikethroughVal: NSInteger; baselineOffset: CGFloat; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'drawStrikethroughForGlyphRange:strikethroughType:baselineOffset:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
+    procedure strikethroughGlyphRange_strikethroughType_lineFragmentRect_lineFragmentGlyphRange_containerOrigin(glyphRange: NSRange; strikethroughVal: NSInteger; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'strikethroughGlyphRange:strikethroughType:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSLevelIndicator.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSLevelIndicator.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSLEVELINDICATOR_PAS_H}
@@ -63,12 +63,12 @@ type
     procedure setCriticalValue(criticalValue_: double); message 'setCriticalValue:';
     function tickMarkPosition: NSTickMarkPosition; message 'tickMarkPosition';
     procedure setTickMarkPosition(position: NSTickMarkPosition); message 'setTickMarkPosition:';
-    function numberOfTickMarks: clong; message 'numberOfTickMarks';
-    procedure setNumberOfTickMarks(count: clong); message 'setNumberOfTickMarks:';
-    function numberOfMajorTickMarks: clong; message 'numberOfMajorTickMarks';
-    procedure setNumberOfMajorTickMarks(count: clong); message 'setNumberOfMajorTickMarks:';
-    function tickMarkValueAtIndex(index: clong): double; message 'tickMarkValueAtIndex:';
-    function rectOfTickMarkAtIndex(index: clong): NSRect; message 'rectOfTickMarkAtIndex:';
+    function numberOfTickMarks: NSInteger; message 'numberOfTickMarks';
+    procedure setNumberOfTickMarks(count: NSInteger); message 'setNumberOfTickMarks:';
+    function numberOfMajorTickMarks: NSInteger; message 'numberOfMajorTickMarks';
+    procedure setNumberOfMajorTickMarks(count: NSInteger); message 'setNumberOfMajorTickMarks:';
+    function tickMarkValueAtIndex(index: NSInteger): double; message 'tickMarkValueAtIndex:';
+    function rectOfTickMarkAtIndex(index: NSInteger): NSRect; message 'rectOfTickMarkAtIndex:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSLevelIndicatorCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSLevelIndicatorCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSLEVELINDICATORCELL_PAS_H}
@@ -24,7 +24,7 @@ const
 
 { Types }
 type
-  NSLevelIndicatorStyle = culong;
+  NSLevelIndicatorStyle = NSUInteger;
 
 {$endif}
 {$endif}
@@ -97,12 +97,12 @@ type
     procedure setCriticalValue(criticalValue_: double); message 'setCriticalValue:';
     procedure setTickMarkPosition(position: NSTickMarkPosition); message 'setTickMarkPosition:';
     function tickMarkPosition: NSTickMarkPosition; message 'tickMarkPosition';
-    procedure setNumberOfTickMarks(count: clong); message 'setNumberOfTickMarks:';
-    function numberOfTickMarks: clong; message 'numberOfTickMarks';
-    procedure setNumberOfMajorTickMarks(count: clong); message 'setNumberOfMajorTickMarks:';
-    function numberOfMajorTickMarks: clong; message 'numberOfMajorTickMarks';
-    function rectOfTickMarkAtIndex(index: clong): NSRect; message 'rectOfTickMarkAtIndex:';
-    function tickMarkValueAtIndex(index: clong): double; message 'tickMarkValueAtIndex:';
+    procedure setNumberOfTickMarks(count: NSInteger); message 'setNumberOfTickMarks:';
+    function numberOfTickMarks: NSInteger; message 'numberOfTickMarks';
+    procedure setNumberOfMajorTickMarks(count: NSInteger); message 'setNumberOfMajorTickMarks:';
+    function numberOfMajorTickMarks: NSInteger; message 'numberOfMajorTickMarks';
+    function rectOfTickMarkAtIndex(index: NSInteger): NSRect; message 'rectOfTickMarkAtIndex:';
+    function tickMarkValueAtIndex(index: NSInteger): double; message 'tickMarkValueAtIndex:';
     procedure setImage(image_: NSImage); message 'setImage:';
   end; external;
 

packages/cocoaint/src/appkit/NSMatrix.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSMatrix.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSMATRIX_PAS_H}
@@ -28,7 +28,7 @@ const
 
 { Types }
 type
-  NSMatrixMode = culong;
+  NSMatrixMode = NSUInteger;
 
 {$endif}
 {$endif}
@@ -39,63 +39,63 @@ type
 
 { Records }
 type
-  __MFlags = record
+  __MFlags = bitpacked record
 {$ifdef fpc_big_endian}
-    highlightMode: cuint;
-    radioMode: cuint;
-    listMode: cuint;
-    allowEmptySel: cuint;
-    autoscroll: cuint;
-    selectionByRect: cuint;
-    drawsCellBackground: cuint;
-    drawsBackground: cuint;
-    autosizeCells: cuint;
-    drawingAncestor: cuint;
-    tabKeyTraversesCells: cuint;
-    tabKeyTraversesCellsExplicitlySet: cuint;
-    allowsIncrementalSearching: cuint;
-    currentlySelectingCell: cuint;
-    onlySetKeyCell: cuint;
-    changingSelectionWithKeyboard: cuint;
-    dontScroll: cuint;
-    refusesFirstResponder: cuint;
-    useSimpleTrackingMode: cuint;
-    checkForSimpleTrackingMode: cuint;
-    liveResizeImageCacheingEnabled: cuint;
-    hasCachedSubclassIsSafeForLiveResize: cuint;
-    subclassIsSafeForLiveResize: cuint;
-    tmpAllowNonVisibleCellsToBecomeFirstResponder: cuint;
-    needsRedrawBeforeFirstLiveResizeCache: cuint;
-    browserOptimizationsEnabled: cuint;
-    reservedMatrix: cuint;
+    highlightMode: 0..1;
+    radioMode: 0..1;
+    listMode: 0..1;
+    allowEmptySel: 0..1;
+    autoscroll: 0..1;
+    selectionByRect: 0..1;
+    drawsCellBackground: 0..1;
+    drawsBackground: 0..1;
+    autosizeCells: 0..1;
+    drawingAncestor: 0..1;
+    tabKeyTraversesCells: 0..1;
+    tabKeyTraversesCellsExplicitlySet: 0..1;
+    allowsIncrementalSearching: 0..1;
+    currentlySelectingCell: 0..1;
+    onlySetKeyCell: 0..1;
+    changingSelectionWithKeyboard: 0..1;
+    dontScroll: 0..1;
+    refusesFirstResponder: 0..1;
+    useSimpleTrackingMode: 0..1;
+    checkForSimpleTrackingMode: 0..1;
+    liveResizeImageCacheingEnabled: 0..1;
+    hasCachedSubclassIsSafeForLiveResize: 0..1;
+    subclassIsSafeForLiveResize: 0..1;
+    tmpAllowNonVisibleCellsToBecomeFirstResponder: 0..1;
+    needsRedrawBeforeFirstLiveResizeCache: 0..1;
+    browserOptimizationsEnabled: 0..1;
+    reservedMatrix: 0..((1 shl 6)-1);
 {$else}
-    reservedMatrix: cuint;
-    browserOptimizationsEnabled: cuint;
-    needsRedrawBeforeFirstLiveResizeCache: cuint;
-    tmpAllowNonVisibleCellsToBecomeFirstResponder: cuint;
-    subclassIsSafeForLiveResize: cuint;
-    hasCachedSubclassIsSafeForLiveResize: cuint;
-    liveResizeImageCacheingEnabled: cuint;
-    checkForSimpleTrackingMode: cuint;
-    useSimpleTrackingMode: cuint;
-    refusesFirstResponder: cuint;
-    dontScroll: cuint;
-    changingSelectionWithKeyboard: cuint;
-    onlySetKeyCell: cuint;
-    currentlySelectingCell: cuint;
-    allowsIncrementalSearching: cuint;
-    tabKeyTraversesCellsExplicitlySet: cuint;
-    tabKeyTraversesCells: cuint;
-    drawingAncestor: cuint;
-    autosizeCells: cuint;
-    drawsBackground: cuint;
-    drawsCellBackground: cuint;
-    selectionByRect: cuint;
-    autoscroll: cuint;
-    allowEmptySel: cuint;
-    listMode: cuint;
-    radioMode: cuint;
-    highlightMode: cuint;
+    reservedMatrix: 0..((1 shl 6)-1);
+    browserOptimizationsEnabled: 0..1;
+    needsRedrawBeforeFirstLiveResizeCache: 0..1;
+    tmpAllowNonVisibleCellsToBecomeFirstResponder: 0..1;
+    subclassIsSafeForLiveResize: 0..1;
+    hasCachedSubclassIsSafeForLiveResize: 0..1;
+    liveResizeImageCacheingEnabled: 0..1;
+    checkForSimpleTrackingMode: 0..1;
+    useSimpleTrackingMode: 0..1;
+    refusesFirstResponder: 0..1;
+    dontScroll: 0..1;
+    changingSelectionWithKeyboard: 0..1;
+    onlySetKeyCell: 0..1;
+    currentlySelectingCell: 0..1;
+    allowsIncrementalSearching: 0..1;
+    tabKeyTraversesCellsExplicitlySet: 0..1;
+    tabKeyTraversesCells: 0..1;
+    drawingAncestor: 0..1;
+    autosizeCells: 0..1;
+    drawsBackground: 0..1;
+    drawsCellBackground: 0..1;
+    selectionByRect: 0..1;
+    autoscroll: 0..1;
+    allowEmptySel: 0..1;
+    listMode: 0..1;
+    radioMode: 0..1;
+    highlightMode: 0..1;
 {$endif}
   end;
 _MFlags = __MFlags;
@@ -136,10 +136,10 @@ _MFlags = __MFlags;
     __errorAction: SEL;
     __delegate: id;
     __selectedCell: id;
-    __selectedRow: clong;
-    __selectedCol: clong;
-    __numRows: clong;
-    __numCols: clong;
+    __selectedRow: NSInteger;
+    __selectedCol: NSInteger;
+    __numRows: NSInteger;
+    __numCols: NSInteger;
     __cellSize: NSSize;
     __intercell: NSSize;
     __font: id;
@@ -154,13 +154,13 @@ _MFlags = __MFlags;
     class function alloc: NSMatrix; message 'alloc';
 
     function initWithFrame(frameRect: NSRect): id; message 'initWithFrame:';
-    function initWithFrame_mode_prototype_numberOfRows_numberOfColumns(frameRect: NSRect; aMode: NSMatrixMode; aCell: NSCell; rowsHigh: clong; colsWide: clong): id; message 'initWithFrame:mode:prototype:numberOfRows:numberOfColumns:';
-    function initWithFrame_mode_cellClass_numberOfRows_numberOfColumns(frameRect: NSRect; aMode: NSMatrixMode; factoryId: Pobjc_class; rowsHigh: clong; colsWide: clong): id; message 'initWithFrame:mode:cellClass:numberOfRows:numberOfColumns:';
+    function initWithFrame_mode_prototype_numberOfRows_numberOfColumns(frameRect: NSRect; aMode: NSMatrixMode; aCell: NSCell; rowsHigh: NSInteger; colsWide: NSInteger): id; message 'initWithFrame:mode:prototype:numberOfRows:numberOfColumns:';
+    function initWithFrame_mode_cellClass_numberOfRows_numberOfColumns(frameRect: NSRect; aMode: NSMatrixMode; factoryId: Pobjc_class; rowsHigh: NSInteger; colsWide: NSInteger): id; message 'initWithFrame:mode:cellClass:numberOfRows:numberOfColumns:';
     procedure setCellClass(factoryId: Pobjc_class); message 'setCellClass:';
     function cellClass: Pobjc_class; message 'cellClass';
     function prototype: id; message 'prototype';
     procedure setPrototype(aCell: NSCell); message 'setPrototype:';
-    function makeCellAtRow_column(row: clong; col: clong): NSCell; message 'makeCellAtRow:column:';
+    function makeCellAtRow_column(row: NSInteger; col: NSInteger): NSCell; message 'makeCellAtRow:column:';
     function mode: NSMatrixMode; message 'mode';
     procedure setMode(aMode: NSMatrixMode); message 'setMode:';
     procedure setAllowsEmptySelection(flag: Boolean); message 'setAllowsEmptySelection:';
@@ -171,16 +171,16 @@ _MFlags = __MFlags;
     procedure sortUsingFunction_context(compare: NSMatrixCompare; context: Pointer); message 'sortUsingFunction:context:';
     function selectedCell: id; message 'selectedCell';
     function selectedCells: NSArray; message 'selectedCells';
-    function selectedRow: clong; message 'selectedRow';
-    function selectedColumn: clong; message 'selectedColumn';
+    function selectedRow: NSInteger; message 'selectedRow';
+    function selectedColumn: NSInteger; message 'selectedColumn';
     procedure setSelectionByRect(flag: Boolean); message 'setSelectionByRect:';
     function isSelectionByRect: Boolean; message 'isSelectionByRect';
-    procedure setSelectionFrom_to_anchor_highlight(startPos: clong; endPos: clong; anchorPos: clong; lit: Boolean); message 'setSelectionFrom:to:anchor:highlight:';
+    procedure setSelectionFrom_to_anchor_highlight(startPos: NSInteger; endPos: NSInteger; anchorPos: NSInteger; lit: Boolean); message 'setSelectionFrom:to:anchor:highlight:';
     procedure deselectSelectedCell; message 'deselectSelectedCell';
     procedure deselectAllCells; message 'deselectAllCells';
-    procedure selectCellAtRow_column(row: clong; col: clong); message 'selectCellAtRow:column:';
+    procedure selectCellAtRow_column(row: NSInteger; col: NSInteger); message 'selectCellAtRow:column:';
     procedure selectAll(sender: id); message 'selectAll:';
-    function selectCellWithTag(anInt: clong): Boolean; message 'selectCellWithTag:';
+    function selectCellWithTag(anInt: NSInteger): Boolean; message 'selectCellWithTag:';
     function cellSize: NSSize; message 'cellSize';
     procedure setCellSize(aSize: NSSize); message 'setCellSize:';
     function intercellSpacing: NSSize; message 'intercellSpacing';
@@ -194,39 +194,39 @@ _MFlags = __MFlags;
     function drawsCellBackground: Boolean; message 'drawsCellBackground';
     procedure setDrawsBackground(flag: Boolean); message 'setDrawsBackground:';
     function drawsBackground: Boolean; message 'drawsBackground';
-    procedure setState_atRow_column(value: clong; row: clong; col: clong); message 'setState:atRow:column:';
-    procedure getNumberOfRows_columns(var rowCount: clong; var colCount: clong); message 'getNumberOfRows:columns:';
-    function numberOfRows: clong; message 'numberOfRows';
-    function numberOfColumns: clong; message 'numberOfColumns';
-    function cellAtRow_column(row: clong; col: clong): id; message 'cellAtRow:column:';
-    function cellFrameAtRow_column(row: clong; col: clong): NSRect; message 'cellFrameAtRow:column:';
-    function getRow_column_ofCell(var row: clong; var col: clong; aCell: NSCell): Boolean; message 'getRow:column:ofCell:';
-    function getRow_column_forPoint(var row: clong; var col: clong; aPoint: NSPoint): Boolean; message 'getRow:column:forPoint:';
-    procedure renewRows_columns(newRows: clong; newCols: clong); message 'renewRows:columns:';
-    procedure putCell_atRow_column(newCell: NSCell; row: clong; col: clong); message 'putCell:atRow:column:';
+    procedure setState_atRow_column(value: NSInteger; row: NSInteger; col: NSInteger); message 'setState:atRow:column:';
+    procedure getNumberOfRows_columns(rowCount: NSIntegerPointer; colCount: NSIntegerPointer); message 'getNumberOfRows:columns:';
+    function numberOfRows: NSInteger; message 'numberOfRows';
+    function numberOfColumns: NSInteger; message 'numberOfColumns';
+    function cellAtRow_column(row: NSInteger; col: NSInteger): id; message 'cellAtRow:column:';
+    function cellFrameAtRow_column(row: NSInteger; col: NSInteger): NSRect; message 'cellFrameAtRow:column:';
+    function getRow_column_ofCell(row: NSIntegerPointer; col: NSIntegerPointer; aCell: NSCell): Boolean; message 'getRow:column:ofCell:';
+    function getRow_column_forPoint(row: NSIntegerPointer; col: NSIntegerPointer; aPoint: NSPoint): Boolean; message 'getRow:column:forPoint:';
+    procedure renewRows_columns(newRows: NSInteger; newCols: NSInteger); message 'renewRows:columns:';
+    procedure putCell_atRow_column(newCell: NSCell; row: NSInteger; col: NSInteger); message 'putCell:atRow:column:';
     procedure addRow; message 'addRow';
     procedure addRowWithCells(newCells: NSArray); message 'addRowWithCells:';
-    procedure insertRow(row: clong); message 'insertRow:';
-    procedure insertRow_withCells(row: clong; newCells: NSArray); message 'insertRow:withCells:';
-    procedure removeRow(row: clong); message 'removeRow:';
+    procedure insertRow(row: NSInteger); message 'insertRow:';
+    procedure insertRow_withCells(row: NSInteger; newCells: NSArray); message 'insertRow:withCells:';
+    procedure removeRow(row: NSInteger); message 'removeRow:';
     procedure addColumn; message 'addColumn';
     procedure addColumnWithCells(newCells: NSArray); message 'addColumnWithCells:';
-    procedure insertColumn(column: clong); message 'insertColumn:';
-    procedure insertColumn_withCells(column: clong; newCells: NSArray); message 'insertColumn:withCells:';
-    procedure removeColumn(col: clong); message 'removeColumn:';
-    function cellWithTag(anInt: clong): id; message 'cellWithTag:';
+    procedure insertColumn(column: NSInteger); message 'insertColumn:';
+    procedure insertColumn_withCells(column: NSInteger; newCells: NSArray); message 'insertColumn:withCells:';
+    procedure removeColumn(col: NSInteger); message 'removeColumn:';
+    function cellWithTag(anInt: NSInteger): id; message 'cellWithTag:';
     function doubleAction: SEL; message 'doubleAction';
     procedure setDoubleAction(aSelector: SEL); message 'setDoubleAction:';
     procedure setAutosizesCells(flag: Boolean); message 'setAutosizesCells:';
     function autosizesCells: Boolean; message 'autosizesCells';
     procedure sizeToCells; message 'sizeToCells';
     procedure setValidateSize(flag: Boolean); message 'setValidateSize:';
-    procedure drawCellAtRow_column(row: clong; col: clong); message 'drawCellAtRow:column:';
-    procedure highlightCell_atRow_column(flag: Boolean; row: clong; col: clong); message 'highlightCell:atRow:column:';
+    procedure drawCellAtRow_column(row: NSInteger; col: NSInteger); message 'drawCellAtRow:column:';
+    procedure highlightCell_atRow_column(flag: Boolean; row: NSInteger; col: NSInteger); message 'highlightCell:atRow:column:';
     procedure setAutoscroll(flag: Boolean); message 'setAutoscroll:';
     function isAutoscroll: Boolean; message 'isAutoscroll';
-    procedure scrollCellToVisibleAtRow_column(row: clong; col: clong); message 'scrollCellToVisibleAtRow:column:';
-    function mouseDownFlags: clong; message 'mouseDownFlags';
+    procedure scrollCellToVisibleAtRow_column(row: NSInteger; col: NSInteger); message 'scrollCellToVisibleAtRow:column:';
+    function mouseDownFlags: NSInteger; message 'mouseDownFlags';
     procedure mouseDown(theEvent: NSEvent); message 'mouseDown:';
     function performKeyEquivalent(theEvent: NSEvent): Boolean; message 'performKeyEquivalent:';
     function sendAction: Boolean; message 'sendAction';
@@ -239,7 +239,7 @@ _MFlags = __MFlags;
     procedure textDidEndEditing(notification: NSNotification); message 'textDidEndEditing:';
     procedure textDidChange(notification: NSNotification); message 'textDidChange:';
     procedure selectText(sender: id); message 'selectText:';
-    function selectTextAtRow_column(row: clong; col: clong): id; message 'selectTextAtRow:column:';
+    function selectTextAtRow_column(row: NSInteger; col: NSInteger): id; message 'selectTextAtRow:column:';
     function acceptsFirstMouse(theEvent: NSEvent): Boolean; message 'acceptsFirstMouse:';
     procedure resetCursorRects; message 'resetCursorRects';
     procedure setToolTip_forCell(toolTipString: NSString; cell_: NSCell); message 'setToolTip:forCell:';

packages/cocoaint/src/appkit/NSMenu.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSMenu.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSMENU_PAS_H}
@@ -14,14 +14,6 @@ type
 {$ifndef NSMENU_PAS_T}
 {$define NSMENU_PAS_T}
 
-{ CFString constants }
-var
-  NSMenuWillSendActionNotification: CFStringRef; external name '_NSMenuWillSendActionNotification';
-  NSMenuDidSendActionNotification: CFStringRef; external name '_NSMenuDidSendActionNotification';
-  NSMenuDidAddItemNotification: CFStringRef; external name '_NSMenuDidAddItemNotification';
-  NSMenuDidRemoveItemNotification: CFStringRef; external name '_NSMenuDidRemoveItemNotification';
-  NSMenuDidChangeItemNotification: CFStringRef; external name '_NSMenuDidChangeItemNotification';
-
 {$endif}
 {$endif}
 
@@ -43,6 +35,14 @@ var
 {$ifndef NSMENU_PAS_T}
 {$define NSMENU_PAS_T}
 
+{ External string constants }
+var
+  NSMenuWillSendActionNotification: NSString; external name '_NSMenuWillSendActionNotification';
+  NSMenuDidSendActionNotification: NSString; external name '_NSMenuDidSendActionNotification';
+  NSMenuDidAddItemNotification: NSString; external name '_NSMenuDidAddItemNotification';
+  NSMenuDidRemoveItemNotification: NSString; external name '_NSMenuDidRemoveItemNotification';
+  NSMenuDidChangeItemNotification: NSString; external name '_NSMenuDidChangeItemNotification';
+
 {$endif}
 {$endif}
 
@@ -84,7 +84,7 @@ var
   public
     class function alloc: NSMenu; message 'alloc';
 
-    class procedure setMenuZone(var aZone: NSZone); message 'setMenuZone:';
+    class procedure setMenuZone(aZone: NSZonePointer); message 'setMenuZone:';
     class function menuZone: NSZone; message 'menuZone';
     class procedure popUpContextMenu_withEvent_forView(menu: NSMenu; event: NSEvent; view: NSView); message 'popUpContextMenu:withEvent:forView:';
     class procedure popUpContextMenu_withEvent_forView_withFont(menu: NSMenu; event: NSEvent; view: NSView; font: NSFont); message 'popUpContextMenu:withEvent:forView:withFont:';
@@ -95,24 +95,24 @@ var
     function title: NSString; message 'title';
     procedure setSupermenu(supermenu_: NSMenu); message 'setSupermenu:';
     function supermenu: NSMenu; message 'supermenu';
-    procedure insertItem_atIndex(newItem: NSMenuItem; index: clong); message 'insertItem:atIndex:';
+    procedure insertItem_atIndex(newItem: NSMenuItem; index: NSInteger); message 'insertItem:atIndex:';
     procedure addItem(newItem: NSMenuItem); message 'addItem:';
-    function insertItemWithTitle_action_keyEquivalent_atIndex(aString: NSString; aSelector: SEL; charCode: NSString; index: clong): NSMenuItem; message 'insertItemWithTitle:action:keyEquivalent:atIndex:';
+    function insertItemWithTitle_action_keyEquivalent_atIndex(aString: NSString; aSelector: SEL; charCode: NSString; index: NSInteger): NSMenuItem; message 'insertItemWithTitle:action:keyEquivalent:atIndex:';
     function addItemWithTitle_action_keyEquivalent(aString: NSString; aSelector: SEL; charCode: NSString): NSMenuItem; message 'addItemWithTitle:action:keyEquivalent:';
-    procedure removeItemAtIndex(index: clong); message 'removeItemAtIndex:';
+    procedure removeItemAtIndex(index: NSInteger); message 'removeItemAtIndex:';
     procedure removeItem(item: NSMenuItem); message 'removeItem:';
     procedure setSubmenu_forItem(aMenu: NSMenu; anItem: NSMenuItem); message 'setSubmenu:forItem:';
     function itemArray: NSArray; message 'itemArray';
-    function numberOfItems: clong; message 'numberOfItems';
-    function indexOfItem(index: NSMenuItem): clong; message 'indexOfItem:';
-    function indexOfItemWithTitle(aTitle: NSString): clong; message 'indexOfItemWithTitle:';
-    function indexOfItemWithTag(aTag: clong): clong; message 'indexOfItemWithTag:';
-    function indexOfItemWithRepresentedObject(object_: id): clong; message 'indexOfItemWithRepresentedObject:';
-    function indexOfItemWithSubmenu(submenu: NSMenu): clong; message 'indexOfItemWithSubmenu:';
-    function indexOfItemWithTarget_andAction(target: id; actionSelector: SEL): clong; message 'indexOfItemWithTarget:andAction:';
-    function itemAtIndex(index: clong): NSMenuItem; message 'itemAtIndex:';
+    function numberOfItems: NSInteger; message 'numberOfItems';
+    function indexOfItem(index: NSMenuItem): NSInteger; message 'indexOfItem:';
+    function indexOfItemWithTitle(aTitle: NSString): NSInteger; message 'indexOfItemWithTitle:';
+    function indexOfItemWithTag(aTag: NSInteger): NSInteger; message 'indexOfItemWithTag:';
+    function indexOfItemWithRepresentedObject(object_: id): NSInteger; message 'indexOfItemWithRepresentedObject:';
+    function indexOfItemWithSubmenu(submenu: NSMenu): NSInteger; message 'indexOfItemWithSubmenu:';
+    function indexOfItemWithTarget_andAction(target: id; actionSelector: SEL): NSInteger; message 'indexOfItemWithTarget:andAction:';
+    function itemAtIndex(index: NSInteger): NSMenuItem; message 'itemAtIndex:';
     function itemWithTitle(aTitle: NSString): NSMenuItem; message 'itemWithTitle:';
-    function itemWithTag(tag: clong): NSMenuItem; message 'itemWithTag:';
+    function itemWithTag(tag: NSInteger): NSMenuItem; message 'itemWithTag:';
     procedure setAutoenablesItems(flag: Boolean); message 'setAutoenablesItems:';
     function autoenablesItems: Boolean; message 'autoenablesItems';
     function performKeyEquivalent(theEvent: NSEvent): Boolean; message 'performKeyEquivalent:';
@@ -132,7 +132,7 @@ var
     function isAttached: Boolean; message 'isAttached';
     procedure sizeToFit; message 'sizeToFit';
     function locationForSubmenu(aSubmenu: NSMenu): NSPoint; message 'locationForSubmenu:';
-    procedure performActionForItemAtIndex(index: clong); message 'performActionForItemAtIndex:';
+    procedure performActionForItemAtIndex(index: NSInteger); message 'performActionForItemAtIndex:';
     procedure setDelegate(anObject: id); message 'setDelegate:';
     function delegate: id; message 'delegate';
     function menuBarHeight: CGFloat; message 'menuBarHeight';

packages/cocoaint/src/appkit/NSMenuItem.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSMenuItem.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSMENUITEM_PAS_H}
@@ -53,16 +53,16 @@ type
     __menu: NSMenu;
     __title: NSString;
     __keyEquivalent: NSString;
-    __keyEquivalentModifierMask: culong;
-    __mnemonicLocation: clong;
-    __state: clong;
+    __keyEquivalentModifierMask: NSUInteger;
+    __mnemonicLocation: NSInteger;
+    __state: NSInteger;
     __image: NSImage;
     __onStateImage: NSImage;
     __offStateImage: NSImage;
     __mixedStateImage: NSImage;
     __target: id;
     __action: SEL;
-    __tag: clong;
+    __tag: NSInteger;
     __extraData: id;
     __miFlags: bitpacked record
         disabled: 0..1;
@@ -95,17 +95,17 @@ type
     function isSeparatorItem: Boolean; message 'isSeparatorItem';
     procedure setKeyEquivalent(aKeyEquivalent: NSString); message 'setKeyEquivalent:';
     function keyEquivalent: NSString; message 'keyEquivalent';
-    procedure setKeyEquivalentModifierMask(mask: culong); message 'setKeyEquivalentModifierMask:';
-    function keyEquivalentModifierMask: culong; message 'keyEquivalentModifierMask';
+    procedure setKeyEquivalentModifierMask(mask: NSUInteger); message 'setKeyEquivalentModifierMask:';
+    function keyEquivalentModifierMask: NSUInteger; message 'keyEquivalentModifierMask';
     function userKeyEquivalent: NSString; message 'userKeyEquivalent';
-    procedure setMnemonicLocation(location: culong); message 'setMnemonicLocation:';
-    function mnemonicLocation: culong; message 'mnemonicLocation';
+    procedure setMnemonicLocation(location: NSUInteger); message 'setMnemonicLocation:';
+    function mnemonicLocation: NSUInteger; message 'mnemonicLocation';
     function mnemonic: NSString; message 'mnemonic';
     procedure setTitleWithMnemonic(stringWithAmpersand: NSString); message 'setTitleWithMnemonic:';
     procedure setImage(menuImage: NSImage); message 'setImage:';
     function image: NSImage; message 'image';
-    procedure setState(state_: clong); message 'setState:';
-    function state: clong; message 'state';
+    procedure setState(state_: NSInteger); message 'setState:';
+    function state: NSInteger; message 'state';
     procedure setOnStateImage(image_: NSImage); message 'setOnStateImage:';
     function onStateImage: NSImage; message 'onStateImage';
     procedure setOffStateImage(image_: NSImage); message 'setOffStateImage:';
@@ -116,14 +116,14 @@ type
     function isEnabled: Boolean; message 'isEnabled';
     procedure setAlternate(isAlternate_: Boolean); message 'setAlternate:';
     function isAlternate: Boolean; message 'isAlternate';
-    procedure setIndentationLevel(indentationLevel_: clong); message 'setIndentationLevel:';
-    function indentationLevel: clong; message 'indentationLevel';
+    procedure setIndentationLevel(indentationLevel_: NSInteger); message 'setIndentationLevel:';
+    function indentationLevel: NSInteger; message 'indentationLevel';
     procedure setTarget(anObject: id); message 'setTarget:';
     function target: id; message 'target';
     procedure setAction(aSelector: SEL); message 'setAction:';
     function action: SEL; message 'action';
-    procedure setTag(anInt: clong); message 'setTag:';
-    function tag: clong; message 'tag';
+    procedure setTag(anInt: NSInteger); message 'setTag:';
+    function tag: NSInteger; message 'tag';
     procedure setRepresentedObject(anObject: id); message 'setRepresentedObject:';
     function representedObject: id; message 'representedObject';
     procedure setView(view_: NSView); message 'setView:';

packages/cocoaint/src/appkit/NSMenuItemCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSMenuItemCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSMENUITEMCELL_PAS_H}
@@ -89,7 +89,7 @@ type
     procedure drawTitleWithFrame_inView(cellFrame: NSRect; controlView_: NSView); message 'drawTitleWithFrame:inView:';
     procedure drawKeyEquivalentWithFrame_inView(cellFrame: NSRect; controlView_: NSView); message 'drawKeyEquivalentWithFrame:inView:';
     procedure drawBorderAndBackgroundWithFrame_inView(cellFrame: NSRect; controlView_: NSView); message 'drawBorderAndBackgroundWithFrame:inView:';
-    function tag: clong; message 'tag';
+    function tag: NSInteger; message 'tag';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSMenuView.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSMenuView.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSMENUVIEW_PAS_H}
@@ -100,19 +100,19 @@ type
     procedure setFont(font_: NSFont); message 'setFont:';
     function font: NSFont; message 'font';
     function innerRect: NSRect; message 'innerRect';
-    function rectOfItemAtIndex(index: clong): NSRect; message 'rectOfItemAtIndex:';
-    function indexOfItemAtPoint(point: NSPoint): clong; message 'indexOfItemAtPoint:';
-    procedure setNeedsDisplayForItemAtIndex(index: clong); message 'setNeedsDisplayForItemAtIndex:';
-    procedure setHighlightedItemIndex(index: clong); message 'setHighlightedItemIndex:';
-    function highlightedItemIndex: clong; message 'highlightedItemIndex';
+    function rectOfItemAtIndex(index: NSInteger): NSRect; message 'rectOfItemAtIndex:';
+    function indexOfItemAtPoint(point: NSPoint): NSInteger; message 'indexOfItemAtPoint:';
+    procedure setNeedsDisplayForItemAtIndex(index: NSInteger); message 'setNeedsDisplayForItemAtIndex:';
+    procedure setHighlightedItemIndex(index: NSInteger); message 'setHighlightedItemIndex:';
+    function highlightedItemIndex: NSInteger; message 'highlightedItemIndex';
     function stateImageOffset: CGFloat; message 'stateImageOffset';
     function stateImageWidth: CGFloat; message 'stateImageWidth';
     function imageAndTitleOffset: CGFloat; message 'imageAndTitleOffset';
     function imageAndTitleWidth: CGFloat; message 'imageAndTitleWidth';
     function keyEquivalentOffset: CGFloat; message 'keyEquivalentOffset';
     function keyEquivalentWidth: CGFloat; message 'keyEquivalentWidth';
-    procedure setMenuItemCell_forItemAtIndex(cell: NSMenuItemCell; index: clong); message 'setMenuItemCell:forItemAtIndex:';
-    function menuItemCellForItemAtIndex(index: clong): NSMenuItemCell; message 'menuItemCellForItemAtIndex:';
+    procedure setMenuItemCell_forItemAtIndex(cell: NSMenuItemCell; index: NSInteger); message 'setMenuItemCell:forItemAtIndex:';
+    function menuItemCellForItemAtIndex(index: NSInteger): NSMenuItemCell; message 'menuItemCellForItemAtIndex:';
     function attachedMenuView: NSMenuView; message 'attachedMenuView';
     procedure setNeedsSizing(flag: Boolean); message 'setNeedsSizing:';
     function needsSizing: Boolean; message 'needsSizing';
@@ -121,10 +121,10 @@ type
     function isAttached: Boolean; message 'isAttached';
     function isTornOff: Boolean; message 'isTornOff';
     function locationForSubmenu(aSubmenu: NSMenu): NSPoint; message 'locationForSubmenu:';
-    procedure setWindowFrameForAttachingToRect_onScreen_preferredEdge_popUpSelectedItem(screenRect: NSRect; screen: NSScreen; edge: NSRectEdge; selectedItemIndex: clong); message 'setWindowFrameForAttachingToRect:onScreen:preferredEdge:popUpSelectedItem:';
+    procedure setWindowFrameForAttachingToRect_onScreen_preferredEdge_popUpSelectedItem(screenRect: NSRect; screen: NSScreen; edge: NSRectEdge; selectedItemIndex: NSInteger); message 'setWindowFrameForAttachingToRect:onScreen:preferredEdge:popUpSelectedItem:';
     procedure detachSubmenu; message 'detachSubmenu';
-    procedure attachSubmenuForItemAtIndex(index: clong); message 'attachSubmenuForItemAtIndex:';
-    procedure performActionWithHighlightingForItemAtIndex(index: clong); message 'performActionWithHighlightingForItemAtIndex:';
+    procedure attachSubmenuForItemAtIndex(index: NSInteger); message 'attachSubmenuForItemAtIndex:';
+    procedure performActionWithHighlightingForItemAtIndex(index: NSInteger); message 'performActionWithHighlightingForItemAtIndex:';
     function trackWithEvent(event: NSEvent): Boolean; message 'trackWithEvent:';
     function horizontalEdgePadding: CGFloat; message 'horizontalEdgePadding';
     procedure setHorizontalEdgePadding(pad: CGFloat); message 'setHorizontalEdgePadding:';

packages/cocoaint/src/appkit/NSMovie.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSMovie.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSMOVIE_PAS_H}

packages/cocoaint/src/appkit/NSMovieView.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSMovieView.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSMOVIEVIEW_PAS_H}
@@ -23,7 +23,7 @@ const
 
 { Types }
 type
-  NSQTMovieLoopMode = culong;
+  NSQTMovieLoopMode = NSUInteger;
 
 {$endif}
 {$endif}
@@ -34,13 +34,13 @@ type
 
 { Records }
 type
-  __MVFlags = record
-    editable: cuint;
-    loopMode: NSQTMovieLoopMode;
-    playsEveryFrame: cuint;
-    playsSelectionOnly: cuint;
-    controllerVisible: cuint;
-    reserved: cuint;
+  __MVFlags = bitpacked record
+    editable: 0..1;
+    loopMode: 0..((1 shl 3)-1);
+    playsEveryFrame: 0..1;
+    playsSelectionOnly: 0..1;
+    controllerVisible: 0..1;
+    reserved: 0..((1 shl 25)-1);
   end;
 _MVFlags = __MVFlags;
 

packages/cocoaint/src/appkit/NSNib.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSNib.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSNIB_PAS_H}
@@ -14,11 +14,6 @@ type
 {$ifndef NSNIB_PAS_T}
 {$define NSNIB_PAS_T}
 
-{ CFString constants }
-var
-  NSNibOwner: CFStringRef; external name '_NSNibOwner';
-  NSNibTopLevelObjects: CFStringRef; external name '_NSNibTopLevelObjects';
-
 {$endif}
 {$endif}
 
@@ -40,6 +35,11 @@ var
 {$ifndef NSNIB_PAS_T}
 {$define NSNIB_PAS_T}
 
+{ External string constants }
+var
+  NSNibOwner: NSString; external name '_NSNibOwner';
+  NSNibTopLevelObjects: NSString; external name '_NSNibTopLevelObjects';
+
 {$endif}
 {$endif}
 
@@ -72,7 +72,7 @@ var
     function initWithContentsOfURL(nibFileURL: NSURL): id; message 'initWithContentsOfURL:';
     function initWithNibNamed_bundle(nibName: NSString; bundle: NSBundle): id; message 'initWithNibNamed:bundle:';
     function instantiateNibWithExternalNameTable(externalNameTable: NSDictionary): Boolean; message 'instantiateNibWithExternalNameTable:';
-    function instantiateNibWithOwner_topLevelObjects(owner: id; var topLevelObjects: NSArray): Boolean; message 'instantiateNibWithOwner:topLevelObjects:';
+    function instantiateNibWithOwner_topLevelObjects(owner: id; topLevelObjects: NSArrayPointer): Boolean; message 'instantiateNibWithOwner:topLevelObjects:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSNibLoading.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSNibLoading.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 
 {$ifdef TYPES}

packages/cocoaint/src/appkit/NSObjectController.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSObjectController.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSOBJECTCONTROLLER_PAS_H}
@@ -95,12 +95,12 @@ type
 
     { Category: NSManagedController }
     function managedObjectContext: NSManagedObjectContext; message 'managedObjectContext';
-    procedure setManagedObjectContext(var managedObjectContext_: NSManagedObjectContext); message 'setManagedObjectContext:';
+    procedure setManagedObjectContext(managedObjectContext_: NSManagedObjectContextPointer); message 'setManagedObjectContext:';
     function entityName: NSString; message 'entityName';
     procedure setEntityName(entityName_: NSString); message 'setEntityName:';
     function fetchPredicate: NSPredicate; message 'fetchPredicate';
     procedure setFetchPredicate(predicate: NSPredicate); message 'setFetchPredicate:';
-    function fetchWithRequest_merge_error(var fetchRequest: NSFetchRequest; merge: Boolean; var error: NSError): Boolean; message 'fetchWithRequest:merge:error:';
+    function fetchWithRequest_merge_error(fetchRequest: NSFetchRequestPointer; merge: Boolean; error: NSErrorPointer): Boolean; message 'fetchWithRequest:merge:error:';
     procedure fetch(sender: id); message 'fetch:';
     procedure setUsesLazyFetching(enabled: Boolean); message 'setUsesLazyFetching:';
     function usesLazyFetching: Boolean; message 'usesLazyFetching';

packages/cocoaint/src/appkit/NSOpenGL.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSOpenGL.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSOPENGL_PAS_H}
@@ -115,18 +115,18 @@ type
   private
     __pixelFormatAuxiliary: NSOpenGLPixelFormatAuxiliary;
     __pixelAttributes: NSData;
-    __reserved1: clong;
-    __reserved2: clong;
-    __reserved3: clong;
+    __reserved1: NSInteger;
+    __reserved2: NSInteger;
+    __reserved3: NSInteger;
     
   public
     class function alloc: NSOpenGLPixelFormat; message 'alloc';
 
-    function initWithAttributes(var attribs: NSOpenGLPixelFormatAttribute): id; message 'initWithAttributes:';
+    function initWithAttributes(attribs: NSOpenGLPixelFormatAttributePointer): id; message 'initWithAttributes:';
     function initWithData(attribs: NSData): id; message 'initWithData:';
     function attributes: NSData; message 'attributes';
     procedure setAttributes(attribs: NSData); message 'setAttributes:';
-    procedure getValues_forAttribute_forVirtualScreen(var vals: GLint; attrib: NSOpenGLPixelFormatAttribute; screen: GLint); message 'getValues:forAttribute:forVirtualScreen:';
+    procedure getValues_forAttribute_forVirtualScreen(vals: GLintPointer; attrib: NSOpenGLPixelFormatAttribute; screen: GLint); message 'getValues:forAttribute:forVirtualScreen:';
     function numberOfVirtualScreens: GLint; message 'numberOfVirtualScreens';
     function CGLPixelFormatObj: Pointer; message 'CGLPixelFormatObj';
   end; external;
@@ -170,8 +170,8 @@ type
     class procedure clearCurrentContext; message 'clearCurrentContext';
     class function currentContext: NSOpenGLContext; message 'currentContext';
     procedure copyAttributesFromContext_withMask(context: NSOpenGLContext; mask: GLbitfield); message 'copyAttributesFromContext:withMask:';
-    procedure setValues_forParameter(var vals: GLint; param: NSOpenGLContextParameter); message 'setValues:forParameter:';
-    procedure getValues_forParameter(var vals: GLint; param: NSOpenGLContextParameter); message 'getValues:forParameter:';
+    procedure setValues_forParameter(vals: GLintPointer; param: NSOpenGLContextParameter); message 'setValues:forParameter:';
+    procedure getValues_forParameter(vals: GLintPointer; param: NSOpenGLContextParameter); message 'getValues:forParameter:';
     procedure setCurrentVirtualScreen(screen: GLint); message 'setCurrentVirtualScreen:';
     function currentVirtualScreen: GLint; message 'currentVirtualScreen';
     procedure createTexture_fromView_internalFormat(target: GLenum; view_: NSView; format: GLenum); message 'createTexture:fromView:internalFormat:';

packages/cocoaint/src/appkit/NSOpenGLView.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSOpenGLView.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSOPENGLVIEW_PAS_H}
@@ -52,9 +52,9 @@ type
   private
     __openGLContext: NSOpenGLContext;
     __pixelFormat: NSOpenGLPixelFormat;
-    __reserved1: clong;
-    __reserved2: clong;
-    __reserved3: clong;
+    __reserved1: NSInteger;
+    __reserved2: NSInteger;
+    __reserved3: NSInteger;
     
   public
     class function alloc: NSOpenGLView; message 'alloc';

packages/cocoaint/src/appkit/NSOpenPanel.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSOpenPanel.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSOPENPANEL_PAS_H}
@@ -50,7 +50,7 @@ type
 { NSOpenPanel }
   NSOpenPanel = objcclass(NSSavePanel)
   private
-    __reservedOpenPanel: char;
+        _reservedOpenPanel: array[0..3] of char;
     __privateOpenPanel: Pointer;
     
   public
@@ -71,8 +71,8 @@ type
     { Category: NSOpenPanelRuntime }
     procedure beginSheetForDirectory_file_types_modalForWindow_modalDelegate_didEndSelector_contextInfo(path: NSString; name: NSString; fileTypes: NSArray; docWindow: NSWindow; delegate_: id; didEndSelector: SEL; contextInfo: Pointer); message 'beginSheetForDirectory:file:types:modalForWindow:modalDelegate:didEndSelector:contextInfo:';
     procedure beginForDirectory_file_types_modelessDelegate_didEndSelector_contextInfo(path: NSString; name: NSString; fileTypes: NSArray; delegate_: id; didEndSelector: SEL; contextInfo: Pointer); message 'beginForDirectory:file:types:modelessDelegate:didEndSelector:contextInfo:';
-    function runModalForDirectory_file_types(path: NSString; name: NSString; fileTypes: NSArray): clong; message 'runModalForDirectory:file:types:';
-    function runModalForTypes(fileTypes: NSArray): clong; message 'runModalForTypes:';
+    function runModalForDirectory_file_types(path: NSString; name: NSString; fileTypes: NSArray): NSInteger; message 'runModalForDirectory:file:types:';
+    function runModalForTypes(fileTypes: NSArray): NSInteger; message 'runModalForTypes:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSOutlineView.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSOutlineView.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSOUTLINEVIEW_PAS_H}
@@ -14,17 +14,6 @@ type
 {$ifndef NSOUTLINEVIEW_PAS_T}
 {$define NSOUTLINEVIEW_PAS_T}
 
-{ CFString constants }
-var
-  NSOutlineViewSelectionDidChangeNotification: CFStringRef; external name '_NSOutlineViewSelectionDidChangeNotification';
-  NSOutlineViewColumnDidMoveNotification: CFStringRef; external name '_NSOutlineViewColumnDidMoveNotification';
-  NSOutlineViewColumnDidResizeNotification: CFStringRef; external name '_NSOutlineViewColumnDidResizeNotification';
-  NSOutlineViewSelectionIsChangingNotification: CFStringRef; external name '_NSOutlineViewSelectionIsChangingNotification';
-  NSOutlineViewItemWillExpandNotification: CFStringRef; external name '_NSOutlineViewItemWillExpandNotification';
-  NSOutlineViewItemDidExpandNotification: CFStringRef; external name '_NSOutlineViewItemDidExpandNotification';
-  NSOutlineViewItemWillCollapseNotification: CFStringRef; external name '_NSOutlineViewItemWillCollapseNotification';
-  NSOutlineViewItemDidCollapseNotification: CFStringRef; external name '_NSOutlineViewItemDidCollapseNotification';
-
 {$endif}
 {$endif}
 
@@ -34,51 +23,51 @@ var
 
 { Records }
 type
-  __OvFlags = record
+  __OvFlags = bitpacked record
 {$ifdef fpc_big_endian}
-    delegateWillDisplayCell: cuint;
-    delegateShouldEditTableColumn: cuint;
-    delegateShouldSelectItem: cuint;
-    delegateShouldSelectTableColumn: cuint;
-    delegateSelectionShouldChangeInOutlineView: cuint;
-    delegateShouldCollapseItem: cuint;
-    delegateShouldExpandItem: cuint;
-    autoresizesOutlineColumn: cuint;
-    autoSaveExpandItems: cuint;
-    enableExpandNotifications: cuint;
-    delegateWillDisplayOutlineCell: cuint;
-    removeChildInProgress: cuint;
-    selectionAdjustmentDisabled: cuint;
-    autoExpandFlashState: cuint;
-    compatCollapseForceClearsExpandState: cuint;
-    delegateHeightOfRowByItem: cuint;
-    delayRowEntryFreeDisabled: cuint;
-    numberOfRowsDataExpandEntered: cuint;
-    validDataSourceMethods: cuint;
-    reloadingData: cuint;
-    _reserved: cuint;
+    delegateWillDisplayCell: 0..1;
+    delegateShouldEditTableColumn: 0..1;
+    delegateShouldSelectItem: 0..1;
+    delegateShouldSelectTableColumn: 0..1;
+    delegateSelectionShouldChangeInOutlineView: 0..1;
+    delegateShouldCollapseItem: 0..1;
+    delegateShouldExpandItem: 0..1;
+    autoresizesOutlineColumn: 0..1;
+    autoSaveExpandItems: 0..1;
+    enableExpandNotifications: 0..1;
+    delegateWillDisplayOutlineCell: 0..1;
+    removeChildInProgress: 0..1;
+    selectionAdjustmentDisabled: 0..1;
+    autoExpandFlashState: 0..1;
+    compatCollapseForceClearsExpandState: 0..1;
+    delegateHeightOfRowByItem: 0..1;
+    delayRowEntryFreeDisabled: 0..1;
+    numberOfRowsDataExpandEntered: 0..1;
+    validDataSourceMethods: 0..1;
+    reloadingData: 0..1;
+    _reserved: 0..((1 shl 12)-1);
 {$else}
-    _reserved: cuint;
-    reloadingData: cuint;
-    validDataSourceMethods: cuint;
-    numberOfRowsDataExpandEntered: cuint;
-    delayRowEntryFreeDisabled: cuint;
-    delegateHeightOfRowByItem: cuint;
-    compatCollapseForceClearsExpandState: cuint;
-    autoExpandFlashState: cuint;
-    selectionAdjustmentDisabled: cuint;
-    removeChildInProgress: cuint;
-    delegateWillDisplayOutlineCell: cuint;
-    enableExpandNotifications: cuint;
-    autoSaveExpandItems: cuint;
-    autoresizesOutlineColumn: cuint;
-    delegateShouldExpandItem: cuint;
-    delegateShouldCollapseItem: cuint;
-    delegateSelectionShouldChangeInOutlineView: cuint;
-    delegateShouldSelectTableColumn: cuint;
-    delegateShouldSelectItem: cuint;
-    delegateShouldEditTableColumn: cuint;
-    delegateWillDisplayCell: cuint;
+    _reserved: 0..((1 shl 12)-1);
+    reloadingData: 0..1;
+    validDataSourceMethods: 0..1;
+    numberOfRowsDataExpandEntered: 0..1;
+    delayRowEntryFreeDisabled: 0..1;
+    delegateHeightOfRowByItem: 0..1;
+    compatCollapseForceClearsExpandState: 0..1;
+    autoExpandFlashState: 0..1;
+    selectionAdjustmentDisabled: 0..1;
+    removeChildInProgress: 0..1;
+    delegateWillDisplayOutlineCell: 0..1;
+    enableExpandNotifications: 0..1;
+    autoSaveExpandItems: 0..1;
+    autoresizesOutlineColumn: 0..1;
+    delegateShouldExpandItem: 0..1;
+    delegateShouldCollapseItem: 0..1;
+    delegateSelectionShouldChangeInOutlineView: 0..1;
+    delegateShouldSelectTableColumn: 0..1;
+    delegateShouldSelectItem: 0..1;
+    delegateShouldEditTableColumn: 0..1;
+    delegateWillDisplayCell: 0..1;
 {$endif}
   end;
 _OVFlags = __OvFlags;
@@ -98,6 +87,17 @@ _OVFlags = __OvFlags;
 {$ifndef NSOUTLINEVIEW_PAS_T}
 {$define NSOUTLINEVIEW_PAS_T}
 
+{ External string constants }
+var
+  NSOutlineViewSelectionDidChangeNotification: NSString; external name '_NSOutlineViewSelectionDidChangeNotification';
+  NSOutlineViewColumnDidMoveNotification: NSString; external name '_NSOutlineViewColumnDidMoveNotification';
+  NSOutlineViewColumnDidResizeNotification: NSString; external name '_NSOutlineViewColumnDidResizeNotification';
+  NSOutlineViewSelectionIsChangingNotification: NSString; external name '_NSOutlineViewSelectionIsChangingNotification';
+  NSOutlineViewItemWillExpandNotification: NSString; external name '_NSOutlineViewItemWillExpandNotification';
+  NSOutlineViewItemDidExpandNotification: NSString; external name '_NSOutlineViewItemDidExpandNotification';
+  NSOutlineViewItemWillCollapseNotification: NSString; external name '_NSOutlineViewItemWillCollapseNotification';
+  NSOutlineViewItemDidCollapseNotification: NSString; external name '_NSOutlineViewItemDidCollapseNotification';
+
 {$endif}
 {$endif}
 
@@ -113,16 +113,16 @@ _OVFlags = __OvFlags;
 { NSOutlineView }
   NSOutlineView = objcclass(NSTableView)
   private
-    __numberOfRows: clong;
+    __numberOfRows: NSInteger;
     __rowEntryTree: __NSOVRowEntry;
     __itemToEntryMap: CFMutableDictionaryRef;
-    __unused2: clong;
-    __unused3: clong;
-    __unused1: clong;
+    __unused2: NSInteger;
+    __unused3: NSInteger;
+    __unused1: NSInteger;
     __outlineTableColumn: NSTableColumn;
     __initedRows: Boolean;
     __indentationMarkerInCell: Boolean;
-    __indentationPerLevel: clong;
+    __indentationPerLevel: NSInteger;
     __outlineCell: NSButtonCell;
     __trackingOutlineFrame: NSRect;
     __tracker: NSMouseTracker;
@@ -135,7 +135,7 @@ _OVFlags = __OvFlags;
     __expandSetToExpandItemsInto: id;
     __indentArraySize: clong;
     __trackingOutlineCell: NSButtonCell;
-    __trackingRow: clong;
+    __trackingRow: NSInteger;
     __ovReserved: id;
     
   public
@@ -151,10 +151,10 @@ _OVFlags = __OvFlags;
     procedure reloadItem_reloadChildren(item: id; reloadChildren: Boolean); message 'reloadItem:reloadChildren:';
     procedure reloadItem(item: id); message 'reloadItem:';
     function parentForItem(item: id): id; message 'parentForItem:';
-    function itemAtRow(row: clong): id; message 'itemAtRow:';
-    function rowForItem(item: id): clong; message 'rowForItem:';
-    function levelForItem(item: id): clong; message 'levelForItem:';
-    function levelForRow(row: clong): clong; message 'levelForRow:';
+    function itemAtRow(row: NSInteger): id; message 'itemAtRow:';
+    function rowForItem(item: id): NSInteger; message 'rowForItem:';
+    function levelForItem(item: id): NSInteger; message 'levelForItem:';
+    function levelForRow(row: NSInteger): NSInteger; message 'levelForRow:';
     function isItemExpanded(item: id): Boolean; message 'isItemExpanded:';
     procedure setIndentationPerLevel(indentationPerLevel_: CGFloat); message 'setIndentationPerLevel:';
     function indentationPerLevel: CGFloat; message 'indentationPerLevel';
@@ -162,8 +162,8 @@ _OVFlags = __OvFlags;
     function indentationMarkerFollowsCell: Boolean; message 'indentationMarkerFollowsCell';
     procedure setAutoresizesOutlineColumn(resize: Boolean); message 'setAutoresizesOutlineColumn:';
     function autoresizesOutlineColumn: Boolean; message 'autoresizesOutlineColumn';
-    function frameOfOutlineCellAtRow(row: clong): NSRect; message 'frameOfOutlineCellAtRow:';
-    procedure setDropItem_dropChildIndex(item: id; index: clong); message 'setDropItem:dropChildIndex:';
+    function frameOfOutlineCellAtRow(row: NSInteger): NSRect; message 'frameOfOutlineCellAtRow:';
+    procedure setDropItem_dropChildIndex(item: id; index: NSInteger); message 'setDropItem:dropChildIndex:';
     function shouldCollapseAutoExpandedItemsForDeposited(deposited: Boolean): Boolean; message 'shouldCollapseAutoExpandedItemsForDeposited:';
     function autosaveExpandedItems: Boolean; message 'autosaveExpandedItems';
     procedure setAutosaveExpandedItems(save: Boolean); message 'setAutosaveExpandedItems:';

packages/cocoaint/src/appkit/NSPDFImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSPDFImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPDFIMAGEREP_PAS_H}
@@ -62,9 +62,9 @@ type
     function initWithData(pdfData: NSData): id; message 'initWithData:';
     function PDFRepresentation: NSData; message 'PDFRepresentation';
     function bounds: NSRect; message 'bounds';
-    procedure setCurrentPage(page: clong); message 'setCurrentPage:';
-    function currentPage: clong; message 'currentPage';
-    function pageCount: clong; message 'pageCount';
+    procedure setCurrentPage(page: NSInteger); message 'setCurrentPage:';
+    function currentPage: NSInteger; message 'currentPage';
+    function pageCount: NSInteger; message 'pageCount';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSPICTImageRep.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSPICTImageRep.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPICTIMAGEREP_PAS_H}
@@ -57,7 +57,7 @@ type
     __reserved2: cuint;
     {$else}
     __imageRep: id;
-    __pictOffset: culong;
+    __pictOffset: NSUInteger;
     __reserved1: cuint;
     __reserved2: cuint;
     {$endif}

packages/cocoaint/src/appkit/NSPageLayout.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSPageLayout.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPAGELAYOUT_PAS_H}
@@ -58,9 +58,9 @@ type
     __presentedPrintInfo: NSPrintInfo;
     __windowController: NSWindowController;
     {$ifdef cpu64}
-    __reserved: id;
+        _reserved: array[0..3] of id;
     {$else}
-    __compatibilityPadding: char;
+        _compatibilityPadding: array[0..155] of char;
     {$endif}
     
   public
@@ -71,8 +71,8 @@ type
     procedure removeAccessoryController(accessoryController: NSViewController); message 'removeAccessoryController:';
     function accessoryControllers: NSArray; message 'accessoryControllers';
     procedure beginSheetWithPrintInfo_modalForWindow_delegate_didEndSelector_contextInfo(printInfo_: NSPrintInfo; docWindow: NSWindow; delegate: id; didEndSelector: SEL; contextInfo: Pointer); message 'beginSheetWithPrintInfo:modalForWindow:delegate:didEndSelector:contextInfo:';
-    function runModalWithPrintInfo(printInfo_: NSPrintInfo): clong; message 'runModalWithPrintInfo:';
-    function runModal: clong; message 'runModal';
+    function runModalWithPrintInfo(printInfo_: NSPrintInfo): NSInteger; message 'runModalWithPrintInfo:';
+    function runModal: NSInteger; message 'runModal';
     function printInfo: NSPrintInfo; message 'printInfo';
 
     { Category: NSDeprecated }

packages/cocoaint/src/appkit/NSPanel.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSPanel.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPANEL_PAS_H}
@@ -51,18 +51,18 @@ const
 {$define NSPANEL_PAS_F}
 
 { Functions }
-function NSRunAlertPanel(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; multipleParams: array of Pointer): clong; cdecl; external name 'NSRunAlertPanel';
-function NSRunInformationalAlertPanel(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; multipleParams: array of Pointer): clong; cdecl; external name 'NSRunInformationalAlertPanel';
-function NSRunCriticalAlertPanel(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; multipleParams: array of Pointer): clong; cdecl; external name 'NSRunCriticalAlertPanel';
-function NSRunAlertPanelRelativeToWindow(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; var docWindow: NSWindow; multipleParams: array of Pointer): clong; cdecl; external name 'NSRunAlertPanelRelativeToWindow';
-function NSRunInformationalAlertPanelRelativeToWindow(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; var docWindow: NSWindow; multipleParams: array of Pointer): clong; cdecl; external name 'NSRunInformationalAlertPanelRelativeToWindow';
-function NSRunCriticalAlertPanelRelativeToWindow(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; var docWindow: NSWindow; multipleParams: array of Pointer): clong; cdecl; external name 'NSRunCriticalAlertPanelRelativeToWindow';
-procedure NSBeginAlertSheet(var title: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; var docWindow: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; var contextInfo: Pointer; var msgFormat: NSString; multipleParams: array of Pointer); cdecl; external name 'NSBeginAlertSheet';
-procedure NSBeginInformationalAlertSheet(var title: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; var docWindow: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; var contextInfo: Pointer; var msgFormat: NSString; multipleParams: array of Pointer); cdecl; external name 'NSBeginInformationalAlertSheet';
-procedure NSBeginCriticalAlertSheet(var title: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; var docWindow: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; var contextInfo: Pointer; var msgFormat: NSString; multipleParams: array of Pointer); cdecl; external name 'NSBeginCriticalAlertSheet';
-function NSGetAlertPanel(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; multipleParams: array of Pointer): id; cdecl; external name 'NSGetAlertPanel';
-function NSGetInformationalAlertPanel(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; multipleParams: array of Pointer): id; cdecl; external name 'NSGetInformationalAlertPanel';
-function NSGetCriticalAlertPanel(var title: NSString; var msgFormat: NSString; var defaultButton: NSString; var alternateButton: NSString; var otherButton: NSString; multipleParams: array of Pointer): id; cdecl; external name 'NSGetCriticalAlertPanel';
+function NSRunAlertPanel(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; multipleParams: array of Pointer): NSInteger; cdecl; external name 'NSRunAlertPanel';
+function NSRunInformationalAlertPanel(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; multipleParams: array of Pointer): NSInteger; cdecl; external name 'NSRunInformationalAlertPanel';
+function NSRunCriticalAlertPanel(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; multipleParams: array of Pointer): NSInteger; cdecl; external name 'NSRunCriticalAlertPanel';
+function NSRunAlertPanelRelativeToWindow(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; docWindowPointer: NSWindow; multipleParams: array of Pointer): NSInteger; cdecl; external name 'NSRunAlertPanelRelativeToWindow';
+function NSRunInformationalAlertPanelRelativeToWindow(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; docWindowPointer: NSWindow; multipleParams: array of Pointer): NSInteger; cdecl; external name 'NSRunInformationalAlertPanelRelativeToWindow';
+function NSRunCriticalAlertPanelRelativeToWindow(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; docWindowPointer: NSWindow; multipleParams: array of Pointer): NSInteger; cdecl; external name 'NSRunCriticalAlertPanelRelativeToWindow';
+procedure NSBeginAlertSheet(titlePointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; docWindowPointer: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; contextInfoPointer: Pointer; msgFormatPointer: NSString; multipleParams: array of Pointer); cdecl; external name 'NSBeginAlertSheet';
+procedure NSBeginInformationalAlertSheet(titlePointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; docWindowPointer: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; contextInfoPointer: Pointer; msgFormatPointer: NSString; multipleParams: array of Pointer); cdecl; external name 'NSBeginInformationalAlertSheet';
+procedure NSBeginCriticalAlertSheet(titlePointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; docWindowPointer: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; contextInfoPointer: Pointer; msgFormatPointer: NSString; multipleParams: array of Pointer); cdecl; external name 'NSBeginCriticalAlertSheet';
+function NSGetAlertPanel(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; multipleParams: array of Pointer): id; cdecl; external name 'NSGetAlertPanel';
+function NSGetInformationalAlertPanel(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; multipleParams: array of Pointer): id; cdecl; external name 'NSGetInformationalAlertPanel';
+function NSGetCriticalAlertPanel(titlePointer: NSString; msgFormatPointer: NSString; defaultButtonPointer: NSString; alternateButtonPointer: NSString; otherButtonPointer: NSString; multipleParams: array of Pointer): id; cdecl; external name 'NSGetCriticalAlertPanel';
 procedure NSReleaseAlertPanel(panel: id); cdecl; external name 'NSReleaseAlertPanel';
 
 {$endif}

packages/cocoaint/src/appkit/NSParagraphStyle.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSParagraphStyle.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:00 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:46 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPARAGRAPHSTYLE_PAS_H}
@@ -30,8 +30,8 @@ const
 
 { Types }
 type
-  NSTextTabType = culong;
-  NSLineBreakMode = culong;
+  NSTextTabType = NSUInteger;
+  NSLineBreakMode = NSUInteger;
 
 {$endif}
 {$endif}
@@ -142,7 +142,7 @@ type
     function textLists: NSArray; message 'textLists';
     function hyphenationFactor: single; message 'hyphenationFactor';
     function tighteningFactorForTruncation: single; message 'tighteningFactorForTruncation';
-    function headerLevel: clong; message 'headerLevel';
+    function headerLevel: NSInteger; message 'headerLevel';
   end; external;
 
 { NSMutableParagraphStyle }
@@ -172,7 +172,7 @@ type
     procedure setTextLists(array_: NSArray); message 'setTextLists:';
     procedure setHyphenationFactor(aFactor: single); message 'setHyphenationFactor:';
     procedure setTighteningFactorForTruncation(aFactor: single); message 'setTighteningFactorForTruncation:';
-    procedure setHeaderLevel(level: clong); message 'setHeaderLevel:';
+    procedure setHeaderLevel(level: NSInteger); message 'setHeaderLevel:';
   end; external;
 
 {$endif}

packages/cocoaint/src/appkit/NSPasteboard.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSPasteboard.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:01 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:47 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPASTEBOARD_PAS_H}
@@ -14,29 +14,6 @@ type
 {$ifndef NSPASTEBOARD_PAS_T}
 {$define NSPASTEBOARD_PAS_T}
 
-{ CFString constants }
-var
-  NSStringPboardType: CFStringRef; external name '_NSStringPboardType';
-  NSFilenamesPboardType: CFStringRef; external name '_NSFilenamesPboardType';
-  NSPostScriptPboardType: CFStringRef; external name '_NSPostScriptPboardType';
-  NSTIFFPboardType: CFStringRef; external name '_NSTIFFPboardType';
-  NSRTFPboardType: CFStringRef; external name '_NSRTFPboardType';
-  NSTabularTextPboardType: CFStringRef; external name '_NSTabularTextPboardType';
-  NSFontPboardType: CFStringRef; external name '_NSFontPboardType';
-  NSRulerPboardType: CFStringRef; external name '_NSRulerPboardType';
-  NSFileContentsPboardType: CFStringRef; external name '_NSFileContentsPboardType';
-  NSColorPboardType: CFStringRef; external name '_NSColorPboardType';
-  NSRTFDPboardType: CFStringRef; external name '_NSRTFDPboardType';
-  NSHTMLPboardType: CFStringRef; external name '_NSHTMLPboardType';
-  NSPICTPboardType: CFStringRef; external name '_NSPICTPboardType';
-  NSURLPboardType: CFStringRef; external name '_NSURLPboardType';
-  NSPDFPboardType: CFStringRef; external name '_NSPDFPboardType';
-  NSGeneralPboard: CFStringRef; external name '_NSGeneralPboard';
-  NSFontPboard: CFStringRef; external name '_NSFontPboard';
-  NSRulerPboard: CFStringRef; external name '_NSRulerPboard';
-  NSFindPboard: CFStringRef; external name '_NSFindPboard';
-  NSDragPboard: CFStringRef; external name '_NSDragPboard';
-
 {$endif}
 {$endif}
 
@@ -52,10 +29,10 @@ var
 {$define NSPASTEBOARD_PAS_F}
 
 { Functions }
-function NSCreateFilenamePboardType(var fileType: NSString): NSString; cdecl; external name 'NSCreateFilenamePboardType';
-function NSCreateFileContentsPboardType(var fileType: NSString): NSString; cdecl; external name 'NSCreateFileContentsPboardType';
-function NSGetFileType(var pboardType: NSString): NSString; cdecl; external name 'NSGetFileType';
-function NSGetFileTypes(var pboardTypes: NSArray): NSArray; cdecl; external name 'NSGetFileTypes';
+function NSCreateFilenamePboardType(fileTypePointer: NSString): NSString; cdecl; external name 'NSCreateFilenamePboardType';
+function NSCreateFileContentsPboardType(fileTypePointer: NSString): NSString; cdecl; external name 'NSCreateFileContentsPboardType';
+function NSGetFileType(pboardTypePointer: NSString): NSString; cdecl; external name 'NSGetFileType';
+function NSGetFileTypes(pboardTypesPointer: NSArray): NSArray; cdecl; external name 'NSGetFileTypes';
 
 {$endif}
 {$endif}
@@ -64,6 +41,29 @@ function NSGetFileTypes(var pboardTypes: NSArray): NSArray; cdecl; external name
 {$ifndef NSPASTEBOARD_PAS_T}
 {$define NSPASTEBOARD_PAS_T}
 
+{ External string constants }
+var
+  NSStringPboardType: NSString; external name '_NSStringPboardType';
+  NSFilenamesPboardType: NSString; external name '_NSFilenamesPboardType';
+  NSPostScriptPboardType: NSString; external name '_NSPostScriptPboardType';
+  NSTIFFPboardType: NSString; external name '_NSTIFFPboardType';
+  NSRTFPboardType: NSString; external name '_NSRTFPboardType';
+  NSTabularTextPboardType: NSString; external name '_NSTabularTextPboardType';
+  NSFontPboardType: NSString; external name '_NSFontPboardType';
+  NSRulerPboardType: NSString; external name '_NSRulerPboardType';
+  NSFileContentsPboardType: NSString; external name '_NSFileContentsPboardType';
+  NSColorPboardType: NSString; external name '_NSColorPboardType';
+  NSRTFDPboardType: NSString; external name '_NSRTFDPboardType';
+  NSHTMLPboardType: NSString; external name '_NSHTMLPboardType';
+  NSPICTPboardType: NSString; external name '_NSPICTPboardType';
+  NSURLPboardType: NSString; external name '_NSURLPboardType';
+  NSPDFPboardType: NSString; external name '_NSPDFPboardType';
+  NSGeneralPboard: NSString; external name '_NSGeneralPboard';
+  NSFontPboard: NSString; external name '_NSFontPboard';
+  NSRulerPboard: NSString; external name '_NSRulerPboard';
+  NSFindPboard: NSString; external name '_NSFindPboard';
+  NSDragPboard: NSString; external name '_NSDragPboard';
+
 {$endif}
 {$endif}
 
@@ -86,7 +86,7 @@ function NSGetFileTypes(var pboardTypes: NSArray): NSArray; cdecl; external name
     __cachedTypeNames: NSArray;
     __promiseTypeNamesByIdentifier: NSMutableDictionary;
     __support: id;
-    __reserved: Pointer;
+        _reserved: array[0..3] of Pointer;
     
   public
     class function alloc: NSPasteboard; message 'alloc';
@@ -100,9 +100,9 @@ function NSGetFileTypes(var pboardTypes: NSArray): NSArray; cdecl; external name
     class function pasteboardByFilteringTypesInPasteboard(pboard: NSPasteboard): NSPasteboard; message 'pasteboardByFilteringTypesInPasteboard:';
     function name: NSString; message 'name';
     procedure releaseGlobally; message 'releaseGlobally';
-    function declareTypes_owner(newTypes: NSArray; newOwner: id): clong; message 'declareTypes:owner:';
-    function addTypes_owner(newTypes: NSArray; newOwner: id): clong; message 'addTypes:owner:';
-    function changeCount: clong; message 'changeCount';
+    function declareTypes_owner(newTypes: NSArray; newOwner: id): NSInteger; message 'declareTypes:owner:';
+    function addTypes_owner(newTypes: NSArray; newOwner: id): NSInteger; message 'addTypes:owner:';
+    function changeCount: NSInteger; message 'changeCount';
     function types: NSArray; message 'types';
     function availableTypeFromArray(types_: NSArray): NSString; message 'availableTypeFromArray:';
     function setData_forType(data: NSData; dataType: NSString): Boolean; message 'setData:forType:';

packages/cocoaint/src/appkit/NSPathCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSPathCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPATHCELL_PAS_H}
@@ -23,7 +23,7 @@ const
 
 { Types }
 type
-  NSPathStyle = clong;
+  NSPathStyle = NSInteger;
 
 {$endif}
 {$endif}

packages/cocoaint/src/appkit/NSPathComponentCell.inc

@@ -1,5 +1,5 @@
 { Parsed from Appkit.framework NSPathComponentCell.h }
-{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Tue Sep 8 15:31:02 ICT 2009 }
+{ Version FrameworkParser: 1.3. PasCocoa 0.3, Objective-P 0.2 - Thu Sep 17 14:52:48 ICT 2009 }
 
 {$ifdef HEADER}
 {$ifndef NSPATHCOMPONENTCELL_PAS_H}