Adds the capability to add subviews and adds initial NSTextField and NSStatusBar / NSStatusItem.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@364 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-03-02 02:17:37 +00:00 · 2008-03-02 02:17:37 +00:00 · edb6551236
commit edb6551236
parent 6cc8ac045d
15 changed files with 2014 additions and 105 deletions
--- a/bindings/pascocoa/appkit/AppKit.inc
+++ b/bindings/pascocoa/appkit/AppKit.inc
@ -19,9 +19,9 @@
 {$include NSButton.inc}
 {$include NSButtonCell.inc}
 {$include NSCell.inc}
-{#import <AppKit/NSClipView.h>
-#import <AppKit/NSControl.h>
-#import <AppKit/NSFont.h>
+//#import <AppKit/NSClipView.h>
+{$include NSControl.inc}
+{#import <AppKit/NSFont.h>
 #import <AppKit/NSFontDescriptor.h>
 #import <AppKit/NSFontManager.h>
 #import <AppKit/NSFontPanel.h>
@ -82,13 +82,13 @@
 #import <AppKit/NSSlider.h>
 #import <AppKit/NSSliderCell.h>
 #import <AppKit/NSSpellProtocol.h>
-#import <AppKit/NSText.h>
-#import <AppKit/NSTextField.h>
-#import <AppKit/NSTextFieldCell.h>
+#import <AppKit/NSText.h>}
+{$include NSTextField.inc}
+{#import <AppKit/NSTextFieldCell.h>
 #import <AppKit/NSText.h>
 #import <AppKit/NSTokenField.h>
-#import <AppKit/NSTokenFieldCell.h>
-#import <AppKit/NSView.h> }
+#import <AppKit/NSTokenFieldCell.h>}
+{$include NSView.inc}
 {$include NSWindow.inc}
 {#import <AppKit/NSWindowController.h>
 #import <AppKit/NSWorkspace.h>
@ -102,9 +102,9 @@
 #import <AppKit/NSAttributedString.h>
 #import <AppKit/NSLayoutManager.h>
 #import <AppKit/NSParagraphStyle.h>
-#import <AppKit/NSTextStorage.h>
-#import <AppKit/NSTextView.h>
-#import <AppKit/NSTextContainer.h>
+#import <AppKit/NSTextStorage.h>}
+//{$include NSTextView.inc}
+{#import <AppKit/NSTextContainer.h>
 #import <AppKit/NSTextAttachment.h>
 #import <AppKit/NSInputManager.h>
 #import <AppKit/NSInputServer.h>
--- a/bindings/pascocoa/appkit/NSActionCell.inc
+++ b/bindings/pascocoa/appkit/NSActionCell.inc
@ -0,0 +1,48 @@
+{%mainunit appkit.pas}
+{
+        NSActionCell.h
+	Application Kit
+	Copyright (c) 1994-2005, Apple Computer, Inc.
+	All rights reserved.
+}
+
+{$ifdef CLASSES}
+{$ifndef NSACTIONCELL_PAS_C}
+{$define NSACTIONCELL_PAS_C}
+
+{$include NSCell.inc}
+
+  NSActionCell = class(NSCell)
+  public
+
+{- (NSView *)controlView;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (void)setControlView:(NSView*)view;
+#endif
+- (void)setFont:(NSFont *)fontObj;
+- (void)setAlignment:(NSTextAlignment)mode;
+- (void)setBordered:(BOOL)flag;
+- (void)setBezeled:(BOOL)flag;
+- (void)setEnabled:(BOOL)flag;
+- (void)setFloatingPointFormat:(BOOL)autoRange left:(unsigned int)leftDigits right:(unsigned int)rightDigits;
+- (void)setImage:(NSImage *)image;
+- (id)target;
+- (void)setTarget:(id)anObject;
+- (SEL)action;
+- (void)setAction:(SEL)aSelector;
+- (int)tag;
+- (void)setTag:(int)anInt;
+- (NSString *)stringValue;
+- (int)intValue;
+- (float)floatValue;
+- (double)doubleValue;
+- (void)setObjectValue:(id<NSCopying>)obj;}
+
+  end;
+
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSButton.inc
+++ b/bindings/pascocoa/appkit/NSButton.inc
@ -0,0 +1,85 @@
+{%mainunit appkit.pas}
+{
+	NSButton.h
+	Application Kit
+	Copyright (c) 1994-2005, Apple Computer, Inc.
+	All rights reserved.
+}
+
+{$ifdef CLASSES}
+{$ifndef NSBUTTON_PAS_C}
+{$define NSBUTTON_PAS_C}
+
+{$include NSControl.inc}
+{$include NSButtonCell.inc}
+
+//@class NSSound;
+
+  NSButton = class(NSControl)
+  public
+
+{- (NSString *)title;
+- (void)setTitle:(NSString *)aString;
+- (NSString *)alternateTitle;
+- (void)setAlternateTitle:(NSString *)aString;
+- (NSImage *)image;
+- (void)setImage:(NSImage *)image;
+- (NSImage *)alternateImage;
+- (void)setAlternateImage:(NSImage *)image;
+- (NSCellImagePosition)imagePosition;
+- (void)setImagePosition:(NSCellImagePosition)aPosition;
+- (void)setButtonType:(NSButtonType)aType;
+- (int)state;
+- (void)setState:(int)value;
+- (BOOL)isBordered;
+- (void)setBordered:(BOOL)flag;
+- (BOOL)isTransparent;
+- (void)setTransparent:(BOOL)flag;
+- (void)setPeriodicDelay:(float)delay interval:(float)interval;
+- (void)getPeriodicDelay:(float *)delay interval:(float *)interval;
+- (NSString *)keyEquivalent;
+- (void)setKeyEquivalent:(NSString *)charCode;
+- (unsigned int)keyEquivalentModifierMask;
+- (void)setKeyEquivalentModifierMask:(unsigned int)mask;
+- (void)highlight:(BOOL)flag;
+- (BOOL)performKeyEquivalent:(NSEvent *)key;
+
+@end
+
+@interface NSButton(NSKeyboardUI)
+- (void)setTitleWithMnemonic:(NSString *)stringWithAmpersand;
+@end
+
+@interface NSButton(NSButtonAttributedStringMethods)
+- (NSAttributedString *)attributedTitle;
+- (void)setAttributedTitle:(NSAttributedString *)aString;
+- (NSAttributedString *)attributedAlternateTitle;
+- (void)setAttributedAlternateTitle:(NSAttributedString *)obj;
+@end
+
+@interface NSButton(NSButtonBezelStyles)
+- (void) setBezelStyle:(NSBezelStyle)bezelStyle;
+- (NSBezelStyle)bezelStyle;
+@end
+
+@interface NSButton(NSButtonMixedState)
+- (void)setAllowsMixedState:(BOOL)flag;
+- (BOOL)allowsMixedState;
+- (void)setNextState;
+@end
+
+@interface NSButton(NSButtonBorder)
+- (void) setShowsBorderOnlyWhileMouseInside:(BOOL)show;
+- (BOOL) showsBorderOnlyWhileMouseInside;
+@end
+
+@interface NSButton (NSButtonSoundExtensions)
+- (void)setSound:(NSSound *)aSound;
+- (NSSound *)sound;
+@end}
+
+  end;
+
+{$endif}
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSButtonCell.inc
+++ b/bindings/pascocoa/appkit/NSButtonCell.inc
@ -0,0 +1,249 @@
+{%mainunit appkit.pas}
+{
+	NSButtonCell.h
+	Application Kit
+	Copyright (c) 1994-2005, Apple Computer, Inc.
+	All rights reserved.
+}
+
+{$ifdef HEADER}
+{$ifndef NSBUTTONCELL_PAS_H}
+{$define NSBUTTONCELL_PAS_H}
+
+{$include NSActionCell.inc}
+
+//@class NSAttributedString, NSFont, NSImage, NSSound;
+
+type
+  NSButtonType = (
+    NSMomentaryLightButton		= 0,	// was NSMomentaryPushButton
+    NSPushOnPushOffButton		= 1,
+    NSToggleButton			= 2,
+    NSSwitchButton			= 3,
+    NSRadioButton			= 4,
+    NSMomentaryChangeButton		= 5,
+    NSOnOffButton			= 6,
+    NSMomentaryPushInButton		= 7,	// was NSMomentaryLight
+
+    { These constants were accidentally reversed so that NSMomentaryPushButton lit and
+       NSMomentaryLight pushed. These names are now deprecated }
+
+    NSMomentaryPushButton		= 0,
+    NSMomentaryLight			= 7
+
+  );
+
+  NSBezelStyle = (
+
+    NSRoundedBezelStyle          = 1,
+    NSRegularSquareBezelStyle    = 2,
+    NSThickSquareBezelStyle      = 3,
+    NSThickerSquareBezelStyle    = 4,
+//#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+    NSDisclosureBezelStyle       = 5,
+//#endif
+    NSShadowlessSquareBezelStyle = 6,
+    NSCircularBezelStyle         = 7,
+//#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+    NSTexturedSquareBezelStyle   = 8,
+    NSHelpButtonBezelStyle       = 9,
+//#endif
+//#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+    NSSmallSquareBezelStyle       = 10,
+    NSTexturedRoundedBezelStyle   = 11,
+    NSRoundRectBezelStyle         = 12,
+    NSRecessedBezelStyle          = 13,
+    NSRoundedDisclosureBezelStyle = 14,
+//#endif
+
+    // this will be obsolete before GM
+
+    NSSmallIconButtonBezelStyle  = 2
+
+  );
+
+  _BCFlags = record
+{$ifdef __BIG_ENDIAN__}
+    unsigned int        pushIn:1;
+    unsigned int        changeContents:1;
+    unsigned int        changeBackground:1;
+    unsigned int        changeGray:1;
+    unsigned int        lightByContents:1;
+    unsigned int        lightByBackground:1;
+    unsigned int        lightByGray:1;
+    unsigned int        drawing:1;
+    unsigned int        bordered:1;
+    unsigned int        imageOverlaps:1;
+    unsigned int        horizontal:1;
+    unsigned int        bottomOrLeft:1;
+    unsigned int        imageAndText:1;
+    unsigned int        imageSizeDiff:1;
+    unsigned int        hasKeyEquivalentInsteadOfImage:1;
+    unsigned int        lastState:1;
+    unsigned int        transparent:1;
+    unsigned int        inset:2;
+    unsigned int        doesNotDimImage:1;
+    unsigned int        gradientType:3;
+    unsigned int        useButtonImageSource:1;
+    unsigned int        alternateMnemonicLocation:8;
+{$else}
+{    unsigned int        alternateMnemonicLocation:8;
+    unsigned int        useButtonImageSource:1;
+    unsigned int        gradientType:3;
+    unsigned int        doesNotDimImage:1;
+    unsigned int        inset:2;
+    unsigned int        transparent:1;
+    unsigned int        lastState:1;
+    unsigned int        hasKeyEquivalentInsteadOfImage:1;
+    unsigned int        imageSizeDiff:1;
+    unsigned int        imageAndText:1;
+    unsigned int        bottomOrLeft:1;
+    unsigned int        horizontal:1;
+    unsigned int        imageOverlaps:1;
+    unsigned int        bordered:1;
+    unsigned int        drawing:1;
+    unsigned int        lightByGray:1;
+    unsigned int        lightByBackground:1;
+    unsigned int        lightByContents:1;
+    unsigned int        changeGray:1;
+    unsigned int        changeBackground:1;
+    unsigned int        changeContents:1;
+    unsigned int        pushIn:1; }
+{$endif}
+  end;
+
+  _BCFlags2 = record
+{#ifdef __BIG_ENDIAN__
+    unsigned int	keyEquivalentModifierMask:24;
+    unsigned int	reserved:2;
+    unsigned int	bezelStyle2:1;
+    unsigned int	mouseInside:1;
+    unsigned int	showsBorderOnlyWhileMouseInside:1;
+    unsigned int	bezelStyle:3;
+#else
+    unsigned int	bezelStyle:3;
+    unsigned int	showsBorderOnlyWhileMouseInside:1;
+    unsigned int	mouseInside:1;
+    unsigned int	bezelStyle2:1;
+    unsigned int	reserved:2;
+    unsigned int	keyEquivalentModifierMask:24;
+#endif}
+  end;
+
+// NSGradientType :
+//
+// A concave gradient is darkest in the top left corner,
+// a convex gradient is darkest in the bottom right corner.
+//
+// Weak versus strong is how much contrast exists between
+// the colors used in opposite corners
+type
+  NSGradientType = (
+    NSGradientNone          = 0,
+    NSGradientConcaveWeak   = 1,
+    NSGradientConcaveStrong = 2,
+    NSGradientConvexWeak    = 3,
+    NSGradientConvexStrong  = 4
+  );
+
+{$endif}
+{$endif}
+{$ifdef CLASSES}
+{$ifndef NSBUTTONCELL_PAS_C}
+{$define NSBUTTONCELL_PAS_C}
+
+  NSButtonCell = class(NSActionCell)
+  public
+
+{- (NSString *)title;
+- (void)setTitle:(NSString *)aString;
+- (NSString *)alternateTitle;
+- (void)setAlternateTitle:(NSString *)aString;
+- (NSImage *)alternateImage;
+- (void)setAlternateImage:(NSImage *)image;
+- (NSCellImagePosition)imagePosition;
+- (void)setImagePosition:(NSCellImagePosition)aPosition;
+- (int)highlightsBy;
+- (void)setHighlightsBy:(int)aType;
+- (int)showsStateBy;
+- (void)setShowsStateBy:(int)aType;
+- (void)setButtonType:(NSButtonType)aType;
+- (BOOL)isOpaque;
+- (void)setFont:(NSFont *)fontObj;
+- (BOOL)isTransparent;
+- (void)setTransparent:(BOOL)flag;
+- (void)setPeriodicDelay:(float)delay interval:(float)interval;
+- (void)getPeriodicDelay:(float *)delay interval:(float *)interval;
+- (NSString *)keyEquivalent;
+- (void)setKeyEquivalent:(NSString *)aKeyEquivalent;
+- (unsigned int)keyEquivalentModifierMask;
+- (void)setKeyEquivalentModifierMask:(unsigned int)mask;
+- (NSFont *)keyEquivalentFont;
+- (void)setKeyEquivalentFont:(NSFont *)fontObj;
+- (void)setKeyEquivalentFont:(NSString *)fontName size:(float)fontSize;
+- (void)performClick:(id)sender; // Significant NSCell override, actually clicks itself.
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (void)drawImage:(NSImage*)image withFrame:(NSRect)frame inView:(NSView*)controlView;
+- (NSRect)drawTitle:(NSAttributedString*)title withFrame:(NSRect)frame inView:(NSView*)controlView;
+- (void)drawBezelWithFrame:(NSRect)frame inView:(NSView*)controlView;
+#endif
+@end
+
+@interface NSButtonCell(NSKeyboardUI)
+- (void)setTitleWithMnemonic:(NSString *)stringWithAmpersand;
+- (void)setAlternateTitleWithMnemonic:(NSString *)stringWithAmpersand;
+- (void)setAlternateMnemonicLocation:(unsigned)location;
+- (unsigned)alternateMnemonicLocation;
+- (NSString *)alternateMnemonic;
+@end
+
+@interface NSButtonCell(NSButtonCellExtensions)
+- (NSGradientType)gradientType;
+- (void)setGradientType:(NSGradientType)type;
+
+// When disabled, the image and text of an NSButtonCell are normally dimmed with gray.
+// Radio buttons and switches use (imageDimsWhenDisabled == NO) so only their text is dimmed.
+- (void)setImageDimsWhenDisabled:(BOOL)flag;
+- (BOOL)imageDimsWhenDisabled;
+
+- (void) setShowsBorderOnlyWhileMouseInside:(BOOL)show;
+- (BOOL) showsBorderOnlyWhileMouseInside;
+
+- (void) mouseEntered:(NSEvent*)event;
+- (void) mouseExited:(NSEvent*)event;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (NSColor*)backgroundColor;
+- (void)setBackgroundColor:(NSColor*)color;
+#endif
+
+@end
+
+@interface NSButtonCell(NSButtonCellAttributedStringMethods)
+- (NSAttributedString *)attributedTitle;
+- (void)setAttributedTitle:(NSAttributedString *)obj;
+- (NSAttributedString *)attributedAlternateTitle;
+- (void)setAttributedAlternateTitle:(NSAttributedString *)obj;
+@end
+
+@interface NSButtonCell(NSButtonCellBezelStyles)
+
+- (void) setBezelStyle:(NSBezelStyle)bezelStyle;
+- (NSBezelStyle)bezelStyle;
+
+@end
+
+@interface NSButtonCell (NSButtonCellSoundExtensions)
+- (void)setSound:(NSSound *)aSound;
+- (NSSound *)sound;
+@end}
+
+  end;
+  
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSCell.inc
+++ b/bindings/pascocoa/appkit/NSCell.inc
@ -0,0 +1,326 @@
+{%mainunit appkit.pas}
+{
+	NSCell.h
+	Application Kit
+	Copyright (c) 1994-2005, Apple Computer, Inc.
+	All rights reserved.
+}
+
+{$ifdef HEADER}
+{$ifndef NSCELL_PAS_H}
+{$define NSCELL_PAS_H}
+
+{#import <Foundation/NSObject.h>
+#import <Foundation/NSGeometry.h>
+#import <AppKit/NSText.h>
+#import <AppKit/NSParagraphStyle.h>
+
+@class NSAttributedString, NSEvent, NSFont, NSFormatter, NSImage, NSMenu, NSText, NSView;}
+
+const
+    NSAnyType				= 0;
+    NSIntType				= 1;
+    NSPositiveIntType			= 2;
+    NSFloatType				= 3;
+    NSPositiveFloatType			= 4;
+    NSDoubleType			= 6;
+    NSPositiveDoubleType		= 7;
+
+type
+  NSCellType = (
+    NSNullCellType			= 0,
+    NSTextCellType			= 1,
+    NSImageCellType			= 2
+  );
+
+  NSCellAttribute = (
+    NSCellDisabled			= 0,
+    NSCellState				= 1,
+    NSPushInCell			= 2,
+    NSCellEditable			= 3,
+    NSChangeGrayCell			= 4,
+    NSCellHighlighted			= 5,
+    NSCellLightsByContents		= 6,
+    NSCellLightsByGray			= 7,
+    NSChangeBackgroundCell		= 8,
+    NSCellLightsByBackground		= 9,
+    NSCellIsBordered			= 10,
+    NSCellHasOverlappingImage		= 11,
+    NSCellHasImageHorizontal		= 12,
+    NSCellHasImageOnLeftOrBottom	= 13,
+    NSCellChangesContents		= 14,
+    NSCellIsInsetButton			= 15,
+    NSCellAllowsMixedState		= 16
+  );
+
+  NSCellImagePosition = (
+    NSNoImage				= 0,
+    NSImageOnly				= 1,
+    NSImageLeft				= 2,
+    NSImageRight			= 3,
+    NSImageBelow			= 4,
+    NSImageAbove			= 5,
+    NSImageOverlaps			= 6
+  );
+
+  NSCellStateValue = (
+    NSMixedState = -1,
+    NSOffState   =  0,
+    NSOnState    =  1
+  );
+
+{ ButtonCell highlightsBy and showsStateBy mask }
+
+const
+    NSNoCellMask			= 0;
+    NSContentsCellMask			= 1;
+    NSPushInCellMask			= 2;
+    NSChangeGrayCellMask		= 4;
+    NSChangeBackgroundCellMask		= 8;
+
+
+type
+  NSControlTint = (
+    NSDefaultControlTint  = 0,	// system 'default'
+//#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+    NSBlueControlTint     = 1,
+    NSGraphiteControlTint = 6,
+//#endif
+    NSClearControlTint    = 7
+  );
+
+  NSControlSize = (
+    NSRegularControlSize,
+    NSSmallControlSize
+//#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+    , NSMiniControlSize
+//#endif
+  );
+
+  _CFlags = record
+{    unsigned int        state:1;
+    unsigned int        highlighted:1;
+    unsigned int        disabled:1;
+    unsigned int        editable:1;
+    NSCellType          type:2;
+    unsigned int        vCentered:1;
+    unsigned int        hCentered:1;
+    unsigned int        bordered:1;
+    unsigned int        bezeled:1;
+    unsigned int        selectable:1;
+    unsigned int        scrollable:1;
+    unsigned int        continuous:1;
+    unsigned int        actOnMouseDown:1;
+    unsigned int        isLeaf:1;
+    unsigned int        invalidObjectValue:1;
+    unsigned int        invalidFont:1;
+    NSLineBreakMode     lineBreakMode:3;
+    unsigned int        reserved1:3;
+    unsigned int        actOnMouseDragged:1;
+    unsigned int        isLoaded:1;
+    unsigned int        reserved2:1;
+    unsigned int        dontActOnMouseUp:1;
+    unsigned int        isWhite:1;
+    unsigned int        useUserKeyEquivalent:1;
+    unsigned int        showsFirstResponder:1;
+    unsigned int	focusRingType:2;
+    unsigned int        wasSelectable:1;
+    unsigned int        hasInvalidObject:1;
+    unsigned int        allowsEditingTextAttributes:1;
+    unsigned int        importsGraphics:1;
+    NSTextAlignment     alignment:3;
+    unsigned int        retainCountOverMax:1;
+    unsigned int        retainCount:7;
+    unsigned int        refusesFirstResponder:1;
+    unsigned int        needsHighlightedText:1;
+    unsigned int        dontAllowsUndo:1;
+    unsigned int        currentlyEditing:1;
+    unsigned int	allowsMixedState:1;
+    unsigned int	inMixedState:1;
+    unsigned int        sendsActionOnEndEditing:1;
+    unsigned int	inSendAction:1;
+    unsigned int	menuWasSet:1;
+    unsigned int        controlTint:3;
+    unsigned int        controlSize:2;
+    unsigned int	branchImageDisabled:1;
+    unsigned int	drawingInRevealover:1;
+    unsigned int        needsHighlightedTextHint:1;}
+  end;
+
+
+{$endif}
+{$endif}
+{$ifdef CLASSES}
+{$ifndef NSCELL_PAS_C}
+{$define NSCELL_PAS_C}
+
+  NSCell = class(NSObject) //<NSCopying, NSCoding>
+
+{+ (BOOL)prefersTrackingUntilMouseUp;
+
+
+- (id)initTextCell:(NSString *)aString;
+- (id)initImageCell:(NSImage *)image;
+
+- (NSView *)controlView;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (void)setControlView:(NSView*)view;
+#endif
+- (NSCellType)type;
+- (void)setType:(NSCellType)aType;
+- (int)state;
+- (void)setState:(int)value;
+- (id)target;
+- (void)setTarget:(id)anObject;
+- (SEL)action;
+- (void)setAction:(SEL)aSelector;
+- (int)tag;
+- (void)setTag:(int)anInt;
+- (NSString*)title;
+- (void)setTitle:(NSString*)aString;
+- (BOOL)isOpaque;
+- (BOOL)isEnabled;
+- (void)setEnabled:(BOOL)flag;
+- (int)sendActionOn:(int)mask;
+- (BOOL)isContinuous;
+- (void)setContinuous:(BOOL)flag;
+- (BOOL)isEditable;
+- (void)setEditable:(BOOL)flag;
+- (BOOL)isSelectable;
+- (void)setSelectable:(BOOL)flag;
+- (BOOL)isBordered;
+- (void)setBordered:(BOOL)flag;
+- (BOOL)isBezeled;
+- (void)setBezeled:(BOOL)flag;
+- (BOOL)isScrollable;
+- (void)setScrollable:(BOOL)flag;	/* If YES, sets wraps to NO */
+- (BOOL)isHighlighted;
+- (void)setHighlighted:(BOOL)flag;
+- (NSTextAlignment)alignment;
+- (void)setAlignment:(NSTextAlignment)mode;
+- (BOOL)wraps;
+- (void)setWraps:(BOOL)flag;	/* If YES, sets scrollable to NO */
+- (NSFont *)font;
+- (void)setFont:(NSFont *)fontObj;
+- (int)entryType;
+- (void)setEntryType:(int)aType;
+- (BOOL)isEntryAcceptable:(NSString *)aString;
+- (void)setFloatingPointFormat:(BOOL)autoRange left:(unsigned)leftDigits right:(unsigned)rightDigits;
+- (NSString *)keyEquivalent;
+- (void)setFormatter:(NSFormatter *)newFormatter;
+- (id)formatter;
+- (id)objectValue;
+- (void)setObjectValue:(id <NSCopying>)obj;
+- (BOOL)hasValidObjectValue;
+- (NSString *)stringValue;
+- (void)setStringValue:(NSString *)aString;
+- (NSComparisonResult)compare:(id)otherCell;
+- (int)intValue;
+- (void)setIntValue:(int)anInt;
+- (float)floatValue;
+- (void)setFloatValue:(float)aFloat;
+- (double)doubleValue;
+- (void)setDoubleValue:(double)aDouble;
+- (void)takeIntValueFrom:(id)sender;
+- (void)takeFloatValueFrom:(id)sender;
+- (void)takeDoubleValueFrom:(id)sender;
+- (void)takeStringValueFrom:(id)sender;
+- (void)takeObjectValueFrom:(id)sender;
+- (NSImage *)image;
+- (void)setImage:(NSImage *)image;
+- (void) setControlTint:(NSControlTint)controlTint;
+- (NSControlTint)controlTint;
+- (void)setControlSize:(NSControlSize)size;
+- (NSControlSize)controlSize;
+- (id)representedObject;
+- (void)setRepresentedObject:(id)anObject;
+- (int)cellAttribute:(NSCellAttribute)aParameter;
+- (void)setCellAttribute:(NSCellAttribute)aParameter to:(int)value;
+- (NSRect)imageRectForBounds:(NSRect)theRect;
+- (NSRect)titleRectForBounds:(NSRect)theRect;
+- (NSRect)drawingRectForBounds:(NSRect)theRect;
+- (NSSize)cellSize;
+- (NSSize)cellSizeForBounds:(NSRect)aRect;
+- (NSColor *)highlightColorWithFrame:(NSRect)cellFrame inView:(NSView *)controlView;
+- (void)calcDrawInfo:(NSRect)aRect;
+- (NSText *)setUpFieldEditorAttributes:(NSText *)textObj;
+- (void)drawInteriorWithFrame:(NSRect)cellFrame inView:(NSView *)controlView;
+- (void)drawWithFrame:(NSRect)cellFrame inView:(NSView *)controlView;
+- (void)highlight:(BOOL)flag withFrame:(NSRect)cellFrame inView:(NSView *)controlView;
+- (int)mouseDownFlags;
+- (void)getPeriodicDelay:(float *)delay interval:(float *)interval;
+- (BOOL)startTrackingAt:(NSPoint)startPoint inView:(NSView *)controlView;
+- (BOOL)continueTracking:(NSPoint)lastPoint at:(NSPoint)currentPoint inView:(NSView *)controlView;
+- (void)stopTracking:(NSPoint)lastPoint at:(NSPoint)stopPoint inView:(NSView *)controlView mouseIsUp:(BOOL)flag;
+- (BOOL)trackMouse:(NSEvent *)theEvent inRect:(NSRect)cellFrame ofView:(NSView *)controlView untilMouseUp:(BOOL)flag;
+- (void)editWithFrame:(NSRect)aRect inView:(NSView *)controlView editor:(NSText *)textObj delegate:(id)anObject event:(NSEvent *)theEvent;
+- (void)selectWithFrame:(NSRect)aRect inView:(NSView *)controlView editor:(NSText *)textObj delegate:(id)anObject start:(int)selStart length:(int)selLength;
+- (void)endEditing:(NSText *)textObj;
+- (void)resetCursorRect:(NSRect)cellFrame inView:(NSView *)controlView;
+
+- (void)setMenu:(NSMenu *)aMenu;
+- (NSMenu *)menu;
+- (NSMenu *)menuForEvent:(NSEvent *)event inRect:(NSRect)cellFrame ofView:(NSView *)view;
+ (NSMenu *)defaultMenu;
+
+- (void)setSendsActionOnEndEditing:(BOOL)flag;
+- (BOOL)sendsActionOnEndEditing;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (NSWritingDirection)baseWritingDirection;
+- (void)setBaseWritingDirection:(NSWritingDirection)writingDirection;
+
+- (void)setLineBreakMode:(NSLineBreakMode)mode;
+- (NSLineBreakMode)lineBreakMode;
+
+- (void)setAllowsUndo:(BOOL)allowsUndo;
+- (BOOL)allowsUndo;
+#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4 */
+@end
+
+@interface NSCell(NSKeyboardUI)
+- (void)setRefusesFirstResponder:(BOOL)flag;
+- (BOOL)refusesFirstResponder;
+- (BOOL)acceptsFirstResponder;
+- (void)setShowsFirstResponder:(BOOL)showFR;
+- (BOOL)showsFirstResponder;
+- (void)setMnemonicLocation:(unsigned)location;
+- (unsigned)mnemonicLocation;
+- (NSString *)mnemonic;
+- (void)setTitleWithMnemonic:(NSString *)stringWithAmpersand;
+- (void)performClick:(id)sender;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (void)setFocusRingType:(NSFocusRingType)focusRingType;
+- (NSFocusRingType)focusRingType;
+ (NSFocusRingType)defaultFocusRingType;
+#endif
+@end
+
+@interface NSCell(NSCellAttributedStringMethods)
+- (NSAttributedString *)attributedStringValue;
+- (void)setAttributedStringValue:(NSAttributedString *)obj;
+/* These methods determine whether the user can modify text attributes and import graphics in a rich cell.  Note that whatever these flags are, cells can still contain attributed text if programmatically set. */
+- (BOOL)allowsEditingTextAttributes;
+- (void)setAllowsEditingTextAttributes:(BOOL)flag;	/* If NO, also clears setImportsGraphics: */
+- (BOOL)importsGraphics;
+- (void)setImportsGraphics:(BOOL)flag;			/* If YES, also sets setAllowsEditingTextAttributes: */
+@end
+
+@interface NSCell(NSCellMixedState)
+- (void)setAllowsMixedState:(BOOL)flag;	/* allow button to have mixed state value*/
+- (BOOL)allowsMixedState;
+- (int)nextState;			/* get next state state in cycle */
+- (void)setNextState;			/* toggle/cycle through states */
+@end}
+
+  end;
+
+//APPKIT_EXTERN NSString *NSControlTintDidChangeNotification; /* sent after user changes control tint preference */
+
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSControl.inc
+++ b/bindings/pascocoa/appkit/NSControl.inc
@ -0,0 +1,172 @@
+{%mainunit appkit.pas}
+{
+	NSControl.h
+	Application Kit
+	Copyright (c) 1994-2005, Apple Computer, Inc.
+	All rights reserved.
+}
+
+{$ifdef HEADER}
+{$ifndef NSCONTROL_PAS_H}
+{$define NSCONTROL_PAS_H}
+
+{ Class and method name strings }
+const
+  Str_NSControl = 'NSControl';
+  
+  Str_setStringValue = 'setStringValue:';
+  Str_initWithFrame = 'initWithFrame:';
+  
+{$endif}
+{$endif}
+{$ifdef CLASSES}
+{$ifndef NSCONTROL_PAS_C}
+{$define NSCONTROL_PAS_C}
+
+{$include NSView.inc}
+//#import <AppKit/NSText.h>
+
+//@class NSCell, NSFont, NSTextView, NSNotification, NSAttributedString, NSFormatter;
+
+  NSControl = class(NSView)
+  public
+
+{+ (void)setCellClass:(Class)factoryId;
+ (Class)cellClass;}
+
+    constructor initWithFrame(frameRect: NSRect); virtual;
+{- (void)sizeToFit;
+- (void)calcSize;
+- (id)cell;
+- (void)setCell:(NSCell *)aCell;
+- (id)selectedCell;
+- (id)target;
+- (void)setTarget:(id)anObject;
+- (SEL)action;
+- (void)setAction:(SEL)aSelector;
+- (int)tag;
+- (void)setTag:(int)anInt;
+- (int)selectedTag;
+- (void)setIgnoresMultiClick:(BOOL)flag;
+- (BOOL)ignoresMultiClick;
+- (int)sendActionOn:(int)mask;
+- (BOOL)isContinuous;
+- (void)setContinuous:(BOOL)flag;
+- (BOOL)isEnabled;
+- (void)setEnabled:(BOOL)flag;
+- (void)setFloatingPointFormat:(BOOL)autoRange left:(unsigned)leftDigits right:(unsigned)rightDigits;
+- (NSTextAlignment)alignment;
+- (void)setAlignment:(NSTextAlignment)mode;
+- (NSFont *)font;
+- (void)setFont:(NSFont *)fontObj;
+- (void)setFormatter:(NSFormatter *)newFormatter;
+- (id)formatter;
+- (void)setObjectValue:(id<NSCopying>)obj;}
+    procedure setStringValue(aString: CFStringRef);
+{- (void)setIntValue:(int)anInt;
+- (void)setFloatValue:(float)aFloat;
+- (void)setDoubleValue:(double)aDouble;
+- (id)objectValue;
+- (NSString *)stringValue;
+- (int)intValue;
+- (float)floatValue;
+- (double)doubleValue;
+- (void)setNeedsDisplay;
+- (void)updateCell:(NSCell *)aCell;
+- (void)updateCellInside:(NSCell *)aCell;
+- (void)drawCellInside:(NSCell *)aCell;
+- (void)drawCell:(NSCell *)aCell;
+- (void)selectCell:(NSCell *)aCell;
+
+- (BOOL)sendAction:(SEL)theAction to:(id)theTarget;
+- (void)takeIntValueFrom:(id)sender;
+- (void)takeFloatValueFrom:(id)sender;
+- (void)takeDoubleValueFrom:(id)sender;
+- (void)takeStringValueFrom:(id)sender;
+- (void)takeObjectValueFrom:(id)sender;
+- (NSText *)currentEditor;
+- (BOOL)abortEditing;
+- (void)validateEditing;
+- (void)mouseDown:(NSEvent *)theEvent;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (NSWritingDirection)baseWritingDirection;
+- (void)setBaseWritingDirection:(NSWritingDirection)writingDirection;
+#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4 */
+@end
+
+@interface NSControl(NSKeyboardUI)
+- (void)performClick:sender;
+- (void)setRefusesFirstResponder:(BOOL)flag;
+- (BOOL)refusesFirstResponder;
+@end
+
+@interface NSObject(NSControlSubclassNotifications)
+
+- (void)controlTextDidBeginEditing:(NSNotification *)obj;
+- (void)controlTextDidEndEditing:(NSNotification *)obj;
+- (void)controlTextDidChange:(NSNotification *)obj;
+
+@end
+
+
+
+@interface NSObject(NSControlSubclassDelegate)
+
+// These delegate and notification methods are sent from NSControl subclasses that allow text editing such as NSTextField and NSMatrix.  The classes that need to send these have delegates.  NSControl does not.
+
+- (BOOL)control:(NSControl *)control textShouldBeginEditing:(NSText *)fieldEditor;
+- (BOOL)control:(NSControl *)control textShouldEndEditing:(NSText *)fieldEditor;
+- (BOOL)control:(NSControl *)control didFailToFormatString:(NSString *)string errorDescription:(NSString *)error;
+- (void)control:(NSControl *)control didFailToValidatePartialString:(NSString *)string errorDescription:(NSString *)error;
+- (BOOL)control:(NSControl *)control isValidObject:(id)obj;
+
+- (BOOL)control:(NSControl *)control textView:(NSTextView *)textView doCommandBySelector:(SEL)commandSelector;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (NSArray *)control:(NSControl *)control textView:(NSTextView *)textView completions:(NSArray *)words forPartialWordRange:(NSRange)charRange indexOfSelectedItem:(int *)index;
+#endif
+@end
+
+								// userInfo keys:
+APPKIT_EXTERN NSString *NSControlTextDidBeginEditingNotification;	//	@"NSFieldEditor"
+APPKIT_EXTERN NSString *NSControlTextDidEndEditingNotification;	//	@"NSFieldEditor"
+APPKIT_EXTERN NSString *NSControlTextDidChangeNotification;		//	@"NSFieldEditor"
+
+@interface NSControl(NSControlAttributedStringMethods)
+- (NSAttributedString *)attributedStringValue;
+- (void)setAttributedStringValue:(NSAttributedString *)obj;
+@end}
+
+  end;
+
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+constructor NSControl.initWithFrame(frameRect: NSRect);
+type
+  initWithFrame_t = function (param1: objc.id; param2: SEL;
+   param3: NSRect): objc.id; cdecl;
+var
+  vmethod: initWithFrame_t;
+begin
+  // Allows descendents to set a new ClassId
+  if ClassID = nil then ClassId := objc_getClass(PChar(Str_NSControl));
+  allocbuf := objc_msgSend(ClassId, sel_registerName(PChar(Str_alloc)), []);
+  vmethod := initWithFrame_t(@objc_msgSend);
+  Handle := vmethod(allocbuf, sel_registerName(PChar(Str_initWithFrame)), frameRect);
+end;
+
+procedure NSControl.setStringValue(aString: CFStringRef);
+type
+  setStringValue_t = procedure (param1: objc.id; param2: SEL;
+   param3: CFStringRef); cdecl;
+var
+  vmethod: setStringValue_t;
+begin
+  vmethod := setStringValue_t(@objc_msgSend);
+  vmethod(Handle, sel_registerName(PChar(Str_setStringValue)), aString);
+end;
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSResponder.inc
+++ b/bindings/pascocoa/appkit/NSResponder.inc
@ -0,0 +1,243 @@
+{
+        NSResponder.h
+        Application Kit
+        Copyright (c) 1994-2005, Apple Computer, Inc.
+        All rights reserved.
+}
+
+{$ifdef CLASSES}
+{$ifndef NSRESPONDER_PAS_C}
+{$define NSRESPONDER_PAS_C}
+
+//@class NSArray, NSError, NSEvent, NSMenu, NSUndoManager, NSWindow;
+
+  NSResponder = class(NSObject)// <NSCoding>
+  public
+
+{- (NSResponder *)nextResponder;
+- (void)setNextResponder:(NSResponder *)aResponder;
+- (BOOL)tryToPerform:(SEL)anAction with:(id)anObject;
+- (BOOL)performKeyEquivalent:(NSEvent *)theEvent;
+- (id)validRequestorForSendType:(NSString *)sendType returnType:(NSString *)returnType;
+- (void)mouseDown:(NSEvent *)theEvent;
+- (void)rightMouseDown:(NSEvent *)theEvent;
+- (void)otherMouseDown:(NSEvent *)theEvent;
+- (void)mouseUp:(NSEvent *)theEvent;
+- (void)rightMouseUp:(NSEvent *)theEvent;
+- (void)otherMouseUp:(NSEvent *)theEvent;
+- (void)mouseMoved:(NSEvent *)theEvent;
+- (void)mouseDragged:(NSEvent *)theEvent;
+- (void)scrollWheel:(NSEvent *)theEvent;
+- (void)rightMouseDragged:(NSEvent *)theEvent;
+- (void)otherMouseDragged:(NSEvent *)theEvent;
+- (void)mouseEntered:(NSEvent *)theEvent;
+- (void)mouseExited:(NSEvent *)theEvent;
+- (void)keyDown:(NSEvent *)theEvent;
+- (void)keyUp:(NSEvent *)theEvent;
+- (void)flagsChanged:(NSEvent *)theEvent;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (void)tabletPoint:(NSEvent *)theEvent;
+- (void)tabletProximity:(NSEvent *)theEvent;
+#endif
+- (void)noResponderFor:(SEL)eventSelector;
+- (BOOL)acceptsFirstResponder;
+- (BOOL)becomeFirstResponder;
+- (BOOL)resignFirstResponder;
+
+- (void)interpretKeyEvents:(NSArray *)eventArray;
+- (void)flushBufferedKeyEvents;
+
+- (void)setMenu:(NSMenu *)menu;
+- (NSMenu *)menu;
+
+- (void)showContextHelp:(id)sender;
+
+- (void)helpRequested:(NSEvent *)eventPtr;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2
+- (BOOL)shouldBeTreatedAsInkEvent:(NSEvent *)theEvent;
+#endif
+@end
+
+@interface NSResponder(NSKeyboardUI)
+- (BOOL)performMnemonic:(NSString *)theString;
+@end
+
+@interface NSResponder (NSStandardKeyBindingMethods)
+
+// This category contains a large number of methods intended for use as key binding commands.  NSResponder does not implement any of them.  NSTextView implements a certain subset of them (see the NSTextView.h header).  Your responder subclasses can implement any that make sense.  You can make up your own as well, but you should use these if the concepts map.  If your view is key and uses key binding and the user types a key sequence which is bound to a command which is not implemented in your class, it is OK, nothing will happen by default.
+
+/************************* Key binding entry-points *************************/
+
+- (void)insertText:(id)insertString;
+    // When key events have been passed off to the key binding mechanism through interpretKeyEvents:, they end up back in the view through either this method or the below doCommand... methods.  insertText: is used to pass through text that was not a command.
+
+- (void)doCommandBySelector:(SEL)aSelector;
+    // Performs the given selector if possible.
+
+/************************* Standard bindable commands *************************/
+
+    /* Selection movement and scrolling */
+
+- (void)moveForward:(id)sender;
+- (void)moveRight:(id)sender;
+- (void)moveBackward:(id)sender;
+- (void)moveLeft:(id)sender;
+- (void)moveUp:(id)sender;
+- (void)moveDown:(id)sender;
+- (void)moveWordForward:(id)sender;
+- (void)moveWordBackward:(id)sender;
+- (void)moveToBeginningOfLine:(id)sender;
+- (void)moveToEndOfLine:(id)sender;
+- (void)moveToBeginningOfParagraph:(id)sender;
+- (void)moveToEndOfParagraph:(id)sender;
+- (void)moveToEndOfDocument:(id)sender;
+- (void)moveToBeginningOfDocument:(id)sender;
+- (void)pageDown:(id)sender;
+- (void)pageUp:(id)sender;
+- (void)centerSelectionInVisibleArea:(id)sender;
+
+- (void)moveBackwardAndModifySelection:(id)sender;
+- (void)moveForwardAndModifySelection:(id)sender;
+- (void)moveWordForwardAndModifySelection:(id)sender;
+- (void)moveWordBackwardAndModifySelection:(id)sender;
+- (void)moveUpAndModifySelection:(id)sender;
+- (void)moveDownAndModifySelection:(id)sender;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (void)moveWordRight:(id)sender;
+- (void)moveWordLeft:(id)sender;
+- (void)moveRightAndModifySelection:(id)sender;
+- (void)moveLeftAndModifySelection:(id)sender;
+- (void)moveWordRightAndModifySelection:(id)sender;
+- (void)moveWordLeftAndModifySelection:(id)sender;
+#endif
+
+- (void)scrollPageUp:(id)sender;
+- (void)scrollPageDown:(id)sender;
+- (void)scrollLineUp:(id)sender;
+- (void)scrollLineDown:(id)sender;
+
+    /* Graphical Element transposition */
+
+- (void)transpose:(id)sender;
+- (void)transposeWords:(id)sender;
+
+    /* Selections */
+
+- (void)selectAll:(id)sender;
+- (void)selectParagraph:(id)sender;
+- (void)selectLine:(id)sender;
+- (void)selectWord:(id)sender;
+
+    /* Insertions and Indentations */
+
+- (void)indent:(id)sender;
+- (void)insertTab:(id)sender;
+- (void)insertBacktab:(id)sender;
+- (void)insertNewline:(id)sender;
+- (void)insertParagraphSeparator:(id)sender;
+- (void)insertNewlineIgnoringFieldEditor:(id)sender;
+- (void)insertTabIgnoringFieldEditor:(id)sender;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (void)insertLineBreak:(id)sender;
+- (void)insertContainerBreak:(id)sender;
+#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4 */
+
+    /* Case changes */
+
+- (void)changeCaseOfLetter:(id)sender;
+- (void)uppercaseWord:(id)sender;
+- (void)lowercaseWord:(id)sender;
+- (void)capitalizeWord:(id)sender;
+
+    /* Deletions */
+
+- (void)deleteForward:(id)sender;
+- (void)deleteBackward:(id)sender;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (void)deleteBackwardByDecomposingPreviousCharacter:(id)sender;
+#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3 */
+- (void)deleteWordForward:(id)sender;
+- (void)deleteWordBackward:(id)sender;
+- (void)deleteToBeginningOfLine:(id)sender;
+- (void)deleteToEndOfLine:(id)sender;
+- (void)deleteToBeginningOfParagraph:(id)sender;
+- (void)deleteToEndOfParagraph:(id)sender;
+
+- (void)yank:(id)sender;
+
+    /* Completion */
+
+- (void)complete:(id)sender;
+
+    /* Mark/Point manipulation */
+
+- (void)setMark:(id)sender;
+- (void)deleteToMark:(id)sender;
+- (void)selectToMark:(id)sender;
+- (void)swapWithMark:(id)sender;
+
+    /* Cancellation */
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (void)cancelOperation:(id)sender;
+#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3 */
+@end
+
+@interface NSResponder(NSUndoSupport)
+- (NSUndoManager *)undoManager;
+@end
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+
+@interface NSResponder(NSErrorPresentation)
+
+/* Present an error alert to the user, as a document-modal panel. When the user has dismissed the alert and any recovery possible for the error and chosen by the user has been attempted, send the selected message to the specified delegate. The method selected by didPresentSelector must have the same signature as:
+
+    - (void)didPresentErrorWithRecovery:(BOOL)didRecover contextInfo:(void *)contextInfo;
+
+The default implementation of this method always invokes [self willPresentError:error] to give subclassers an opportunity to customize error presentation. It then forwards the message, passing the customized error, to the next responder or, if there is no next responder, NSApp. NSApplication's override of this method invokes [[NSAlert alertWithError:theErrorToPresent] beginSheetModalForWindow:window modalDelegate:self didEndSelector:selectorForAPrivateMethod contextInfo:privateContextInfo]. When the user has dismissed the alert, the error's recovery attempter is sent an -attemptRecoveryFromError:optionIndex:delegate:didRecoverSelector:contextInfo: message, if the error had recovery options and a recovery delegate.
+
+Errors for which ([[error domain] isEqualToString:NSCocoaErrorDomain] && [error code]==NSUserCancelledError) are a special case,  because they do not actually represent errors and should not be presented as such to the user. NSApplication's override of this method does not present an alert to the user for these kinds of errors. Instead it merely invokes the delegate specifying didRecover==NO.
+
+Between the responder chain in a typical application and various overrides of this method in AppKit classes, objects are given the opportunity to present errors in orders like these:
+
+    For windows owned by documents:
+    view -> superviews -> window -> window controller -> document -> document controller -> application
+
+    For windows that have window controllers but aren't associated with documents:
+    view -> superviews -> window -> window controller -> application
+
+    For windows that have no window controller at all:
+    view -> superviews -> window -> application
+
+You can invoke this method to present error alert sheets. For example, Cocoa's own -[NSDocument saveToURL:ofType:forSaveOperation:delegate:didSaveSelector:contextInfo:] invokes this method when it's just invoked -saveToURL:ofType:forSaveOperation:error: and that method has returned NO.
+
+You probably shouldn't override this method, because you have no way of reliably predicting whether this method vs. -presentError will be invoked for any particular error. You should instead override the -willPresentError: method described below.
+*/
+- (void)presentError:(NSError *)error modalForWindow:(NSWindow *)window delegate:(id)delegate didPresentSelector:(SEL)didPresentSelector contextInfo:(void *)contextInfo;
+
+/* Present an error alert to the user, as an application-modal panel, and return YES if error recovery was done, NO otherwise. This method behaves much like the previous one except it does not return until the user has dismissed the alert and, if the error had recovery options and a recovery delegate, the error's recovery delegate has been sent an -attemptRecoveryFromError:optionIndex: message.
+
+You can invoke this method to present error alert dialog boxes. For example, Cocoa's own [NSDocumentController openDocument:] invokes this method when it's just invoked -openDocumentWithContentsOfURL:display:error: and that method has returned nil.
+
+You probably shouldn't override this method, because you have no way of reliably predicting whether this method vs. -presentError:modalForWindow:delegate:didPresentSelector:contextInfo: will be invoked for any particular error. You should instead override the -willPresentError: method described below.
+*/
+- (BOOL)presentError:(NSError *)error;
+
+/* Given that the receiver is about to present an error (perhaps by just forwarding it to the next responder), return the error that should actually be presented. The default implementation of this method merely returns the passed-in error.
+
+You can override this method to customize the presentation of errors by examining the passed-in error and if, for example, its localized description or recovery information is unsuitably generic, returning a more specific one. When you override this method always check the NSError's domain and code to discriminate between errors whose presentation you want to customize and those you don't. For those you don't just return [super willPresentError:error]. Don't make decisions based on the NSError's localized description, recovery suggestion, or recovery options because it's usually not a good idea to try to parse localized text.
+*/
+- (NSError *)willPresentError:(NSError *)error;
+
+@end
+
+#endif}
+
+  end;
+
+{$endif}
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSStatusBar.inc
+++ b/bindings/pascocoa/appkit/NSStatusBar.inc
@ -0,0 +1,67 @@
+{%mainunit appkit.pas}
+{
+        NSStatusBar.h
+        Application Kit
+        Copyright (c) 1997-2005, Apple Computer, Inc.
+        All rights reserved.
+}
+
+{$ifdef HEADER}
+{$ifndef NSSTATUSBAR_PAS_H}
+{$define NSSTATUSBAR_PAS_H}
+
+const
+  NSVariableStatusItemLength = (-1);
+  NSSquareStatusItemLength   = (-2);
+
+{ Class and method name strings }
+const
+  Str_NSStatusBar = 'NSStatusBar';
+
+  Str_systemStatusBar = 'systemStatusBar';
+
+{$endif}
+{$endif}
+{$ifdef CLASSES}
+{$ifndef NSSTATUSBAR_PAS_C}
+{$define NSSTATUSBAR_PAS_C}
+
+{@class NSColor;
+@class NSFont;}
+  NSStatusItem = class;
+{@class NSMutableArray;}
+
+  NSStatusBar = class(NSObject)
+  public
+    constructor systemStatusBar();
+
+    function statusItemWithLength(length: cfloat): NSStatusItem;
+    procedure removeStatusItem(item: NSStatusItem);
+
+{- (BOOL)     isVertical;
+- (float)    thickness;}
+
+  end;
+
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+constructor NSStatusBar.systemStatusBar();
+begin
+  ClassId := objc_getClass(PChar(Str_NSStatusBar));
+  Handle := objc_msgSend(ClassId, sel_registerName(PChar(Str_systemStatusBar)), []);
+end;
+
+function NSStatusBar.statusItemWithLength(length: cfloat): NSStatusItem;
+begin
+
+end;
+
+procedure NSStatusBar.removeStatusItem(item: NSStatusItem);
+begin
+
+end;
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSStatusItem.inc
+++ b/bindings/pascocoa/appkit/NSStatusItem.inc
@ -0,0 +1,107 @@
+{%mainunit appkit.pas}
+{
+        NSStatusItem.h
+        Application Kit
+        Copyright (c) 1997-2005, Apple Computer, Inc.
+        All rights reserved.
+}
+
+{$ifdef HEADER}
+{$ifndef NSSTATUSITEM_PAS_H}
+{$define NSSTATUSITEM_PAS_H}
+
+{#import <Foundation/NSObject.h>
+#import <Foundation/NSGeometry.h>}
+
+(*typedef struct {
+    unsigned int customView:1;
+    unsigned int highlightMode:1;
+    unsigned int hasAlternateImage:1;
+    unsigned int reserved:29;
+} _SBIFlags; *)
+
+{$endif}
+{$endif}
+{$ifdef CLASSES}
+{$ifndef NSSTATUSITEM_PAS_C}
+{$define NSSTATUSITEM_PAS_C}
+
+{@class NSAttributedString;
+@class NSImage;
+@class NSMenu;}
+//  NSStatusBar = class;
+{@class NSString;
+@class NSView;
+@class NSWindow;}
+
+  NSStatusItem = class(NSObject)
+  public
+
+{- (NSStatusBar*) statusBar;
+
+- (float) length;
+- (void) setLength:(float)length;
+
+@end
+
+@interface NSStatusItem (NSStatusItemCommon)
+
+- (SEL) action;
+- (void) setAction:(SEL)action;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (SEL) doubleAction;
+- (void) setDoubleAction:(SEL)action;
+#endif
+
+- (id) target;
+- (void) setTarget:(id)target;
+
+- (NSString*) title;
+- (void) setTitle:(NSString*)title;
+
+- (NSAttributedString*) attributedTitle;
+- (void) setAttributedTitle:(NSAttributedString*)title;
+
+- (NSImage*) image;
+- (void) setImage:(NSImage*)image;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (NSImage *)alternateImage;
+- (void)setAlternateImage:(NSImage*)image;
+#endif
+
+- (NSMenu*) menu;
+- (void) setMenu:(NSMenu*)menu;
+
+- (BOOL) isEnabled;
+- (void) setEnabled:(BOOL)enabled;
+
+- (NSString*) toolTip;
+- (void) setToolTip:(NSString*)toolTip;
+
+- (void) setHighlightMode:(BOOL) highlightMode;
+- (BOOL) highlightMode;
+
+- (void) sendActionOn:(int)mask;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (void) popUpStatusItemMenu:(NSMenu*)menu;
+- (void) drawStatusBarBackgroundInRect:(NSRect)rect withHighlight:(BOOL)highlight;
+#endif
+
+@end
+
+@interface NSStatusItem (NSStatusItemView)
+
+- (NSView*) view;
+- (void) setView:(NSView*)view;}
+
+  end;
+
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSTextField.inc
+++ b/bindings/pascocoa/appkit/NSTextField.inc
@ -0,0 +1,87 @@
+{%mainunit appkit.pas}
+{
+	NSTextField.h
+	Application Kit
+	Copyright (c) 1994-2005, Apple Computer, Inc.
+	All rights reserved.
+}
+
+{$ifdef HEADER}
+{$ifndef NSTEXTFIELD_PAS_H}
+{$define NSTEXTFIELD_PAS_H}
+
+{$include NSControl.inc}
+{#import <AppKit/NSTextFieldCell.h>}
+
+{ Class and method name strings }
+const
+  Str_NSTextField = 'NSTextField';
+
+{$endif}
+{$endif}
+{$ifdef CLASSES}
+{$ifndef NSTEXTFIELD_PAS_C}
+{$define NSTEXTFIELD_PAS_C}
+
+{$include NSControl.inc}
+{#import <AppKit/NSTextFieldCell.h>}
+
+  NSTextField = class(NSControl)
+  public
+    constructor initWithFrame(frameRect: NSRect); override;
+
+{- (void)setBackgroundColor:(NSColor *)color;
+- (NSColor *)backgroundColor;
+- (void)setDrawsBackground:(BOOL)flag;
+- (BOOL)drawsBackground;
+- (void)setTextColor:(NSColor *)color;
+- (NSColor *)textColor;
+- (BOOL)isBordered;
+- (void)setBordered:(BOOL)flag;
+- (BOOL)isBezeled;
+- (void)setBezeled:(BOOL)flag;
+- (BOOL)isEditable;
+- (void)setEditable:(BOOL)flag;
+- (BOOL)isSelectable;
+- (void)setSelectable:(BOOL)flag;
+- (void)selectText:(id)sender;
+- (id)delegate;
+- (void)setDelegate:(id)anObject;
+- (BOOL)textShouldBeginEditing:(NSText *)textObject;
+- (BOOL)textShouldEndEditing:(NSText *)textObject;
+- (void)textDidBeginEditing:(NSNotification *)notification;
+- (void)textDidEndEditing:(NSNotification *)notification;
+- (void)textDidChange:(NSNotification *)notification;
+- (BOOL)acceptsFirstResponder;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2
+- (void)setBezelStyle:(NSTextFieldBezelStyle)style;
+- (NSTextFieldBezelStyle)bezelStyle;
+#endif
+@end
+
+@interface NSTextField(NSKeyboardUI)
+- (void)setTitleWithMnemonic:(NSString *)stringWithAmpersand;
+@end
+
+@interface NSTextField(NSTextFieldAttributedStringMethods)
+- (BOOL)allowsEditingTextAttributes;
+- (void)setAllowsEditingTextAttributes:(BOOL)flag;
+- (BOOL)importsGraphics;
+- (void)setImportsGraphics:(BOOL)flag;
+@end}
+
+  end;
+
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+constructor NSTextField.initWithFrame(frameRect: NSRect);
+begin
+  ClassId := objc_getClass(PChar(Str_NSTextField));
+  inherited initWithFrame(frameRect);
+end;
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSView.inc
+++ b/bindings/pascocoa/appkit/NSView.inc
@ -0,0 +1,378 @@
+{%mainunit appkit.pas}
+{
+	NSView.h
+	Application Kit
+	Copyright (c) 1994-2005, Apple Computer, Inc.
+	All rights reserved.
+}
+
+{$ifdef HEADER}
+{$ifndef NSVIEW_PAS_H}
+{$define NSVIEW_PAS_H}
+
+{$include NSResponder.inc}
+//#import <AppKit/AppKitDefines.h>
+//#import <AppKit/NSGraphics.h>
+
+//@class NSBitmapImageRep, NSCursor, NSGraphicsContext, NSImage, NSPasteboard, NSScrollView, NSWindow, NSAttributedString;
+
+const
+    NSViewNotSizable			=  0;
+    NSViewMinXMargin			=  1;
+    NSViewWidthSizable			=  2;
+    NSViewMaxXMargin			=  4;
+    NSViewMinYMargin			=  8;
+    NSViewHeightSizable			= 16;
+    NSViewMaxYMargin			= 32;
+
+type
+  NSBorderType = (
+    NSNoBorder				= 0,
+    NSLineBorder			= 1,
+    NSBezelBorder			= 2,
+    NSGrooveBorder			= 3
+  );
+
+  _VFlags = record
+{#ifdef __BIG_ENDIAN__
+	unsigned int        rotatedFromBase:1;
+	unsigned int        rotatedOrScaledFromBase:1;
+	unsigned int        autosizing:6;
+	unsigned int        autoresizeSubviews:1;
+	unsigned int        wantsGState:1;
+	unsigned int        needsDisplay:1;
+	unsigned int        validGState:1;
+	unsigned int        newGState:1;
+	unsigned int        noVerticalAutosizing:1;
+	unsigned int        frameChangeNotesSuspended:1;
+	unsigned int        needsFrameChangeNote:1;
+	unsigned int        focusChangeNotesSuspended:1;
+	unsigned int        boundsChangeNotesSuspended:1;
+	unsigned int        needsBoundsChangeNote:1;
+	unsigned int        removingWithoutInvalidation:1;
+        unsigned int        interfaceStyle0:1;
+	unsigned int        needsDisplayForBounds:1;
+	unsigned int        specialArchiving:1;
+	unsigned int        interfaceStyle1:1;
+	unsigned int        retainCount:6;
+	unsigned int        retainCountOverMax:1;
+	unsigned int        aboutToResize:1;
+#else
+	unsigned int        aboutToResize:1;
+	unsigned int        retainCountOverMax:1;
+	unsigned int        retainCount:6;
+	unsigned int        interfaceStyle1:1;
+	unsigned int        specialArchiving:1;
+	unsigned int        needsDisplayForBounds:1;
+	unsigned int        interfaceStyle0:1;
+        unsigned int        removingWithoutInvalidation:1;
+	unsigned int        needsBoundsChangeNote:1;
+	unsigned int        boundsChangeNotesSuspended:1;
+	unsigned int        focusChangeNotesSuspended:1;
+	unsigned int        needsFrameChangeNote:1;
+	unsigned int        frameChangeNotesSuspended:1;
+	unsigned int        noVerticalAutosizing:1;
+	unsigned int        newGState:1;
+	unsigned int        validGState:1;
+	unsigned int        needsDisplay:1;
+	unsigned int        wantsGState:1;
+	unsigned int        autoresizeSubviews:1;
+	unsigned int        autosizing:6;
+	unsigned int        rotatedOrScaledFromBase:1;
+	unsigned int        rotatedFromBase:1;
+#endif}
+  end;
+
+  NSTrackingRectTag = cint;
+  NSToolTipTag = cint;
+
+{/* Notifications */
+
+APPKIT_EXTERN NSString *NSViewFrameDidChangeNotification;
+APPKIT_EXTERN NSString *NSViewFocusDidChangeNotification;
+APPKIT_EXTERN NSString *NSViewBoundsDidChangeNotification;
+    // This notification is sent whenever the views bounds change and the frame does not.  That is, it is sent whenever the view's bounds are translated, scaled or rotated, but NOT when the bounds change as a result of, for example, setFrameSize:.
+APPKIT_EXTERN NSString *NSViewGlobalFrameDidChangeNotification;
+    // This notification is sent whenever an NSView that has an attached NSSurface changes size or changes screens (thus potentially changing graphics hardware drivers.)
+}
+
+{ Class and method name strings }
+const
+  Str_addSubview = 'addSubview:';
+  
+{$endif}
+{$endif}
+{$ifdef CLASSES}
+{$ifndef NSVIEW_PAS_C}
+{$define NSVIEW_PAS_C}
+
+{$include NSResponder.inc}
+//#import <AppKit/AppKitDefines.h>
+//#import <AppKit/NSGraphics.h>
+
+//@class NSBitmapImageRep, NSCursor, NSGraphicsContext, NSImage, NSPasteboard, NSScrollView, NSWindow, NSAttributedString;
+
+//@class _NSViewAuxiliary;
+
+  NSView = class(NSResponder)
+  public
+{- (id)initWithFrame:(NSRect)frameRect;
+
+- (NSWindow *)window;
+- (NSView *)superview;
+- (NSArray *)subviews;
+- (BOOL)isDescendantOf:(NSView *)aView;
+- (NSView *)ancestorSharedWithView:(NSView *)aView;
+- (NSView *)opaqueAncestor;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (void)setHidden:(BOOL)flag;
+- (BOOL)isHidden;
+- (BOOL)isHiddenOrHasHiddenAncestor;
+
+- (void)getRectsBeingDrawn:(const NSRect **)rects count:(int *)count;
+- (BOOL)needsToDrawRect:(NSRect)aRect;
+- (BOOL)wantsDefaultClipping;
+#endif}
+    procedure addSubview(aView: NSView);
+{- (void)addSubview:(NSView *)aView positioned:(NSWindowOrderingMode)place relativeTo:(NSView *)otherView;
+- (void)sortSubviewsUsingFunction:(int (*)(id, id, void *))compare context:(void *)context;
+- (void)viewWillMoveToWindow:(NSWindow *)newWindow;
+- (void)viewDidMoveToWindow;
+- (void)viewWillMoveToSuperview:(NSView *)newSuperview;
+- (void)viewDidMoveToSuperview;
+- (void)didAddSubview:(NSView *)subview;
+- (void)willRemoveSubview:(NSView *)subview;
+- (void)removeFromSuperview;
+- (void)replaceSubview:(NSView *)oldView with:(NSView *)newView;
+- (void)removeFromSuperviewWithoutNeedingDisplay;
+
+- (void)setPostsFrameChangedNotifications:(BOOL)flag;
+- (BOOL)postsFrameChangedNotifications;
+- (void)resizeSubviewsWithOldSize:(NSSize)oldSize;
+- (void)resizeWithOldSuperviewSize:(NSSize)oldSize;
+- (void)setAutoresizesSubviews:(BOOL)flag;
+- (BOOL)autoresizesSubviews;
+- (void)setAutoresizingMask:(unsigned int)mask;
+- (unsigned int)autoresizingMask;
+
+- (void)setFrameOrigin:(NSPoint)newOrigin;
+- (void)setFrameSize:(NSSize)newSize;
+- (void)setFrame:(NSRect)frameRect;
+- (NSRect)frame;
+- (void)setFrameRotation:(float)angle;
+- (float)frameRotation;
+
+- (void)setBoundsOrigin:(NSPoint)newOrigin;
+- (void)setBoundsSize:(NSSize)newSize;
+- (void)setBoundsRotation:(float)angle;
+- (float)boundsRotation;
+- (void)translateOriginToPoint:(NSPoint)translation;
+- (void)scaleUnitSquareToSize:(NSSize)newUnitSize;
+- (void)rotateByAngle:(float)angle;
+- (void)setBounds:(NSRect)aRect;
+- (NSRect)bounds;
+
+- (BOOL)isFlipped;
+- (BOOL)isRotatedFromBase;
+- (BOOL)isRotatedOrScaledFromBase;
+- (BOOL)isOpaque;
+
+- (NSPoint)convertPoint:(NSPoint)aPoint fromView:(NSView *)aView;
+- (NSPoint)convertPoint:(NSPoint)aPoint toView:(NSView *)aView;
+- (NSSize)convertSize:(NSSize)aSize fromView:(NSView *)aView;
+- (NSSize)convertSize:(NSSize)aSize toView:(NSView *)aView;
+- (NSRect)convertRect:(NSRect)aRect fromView:(NSView *)aView;
+- (NSRect)convertRect:(NSRect)aRect toView:(NSView *)aView;
+- (NSRect)centerScanRect:(NSRect)aRect;
+
+- (BOOL)canDraw;
+- (void)setNeedsDisplay:(BOOL)flag;
+- (void)setNeedsDisplayInRect:(NSRect)invalidRect;
+- (BOOL)needsDisplay;
+- (void)lockFocus;
+- (void)unlockFocus;
+- (BOOL)lockFocusIfCanDraw;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (BOOL)lockFocusIfCanDrawInContext:(NSGraphicsContext *)context;
+#endif
+ (NSView *)focusView;
+- (NSRect)visibleRect;
+
+- (void)display;
+- (void)displayIfNeeded;
+- (void)displayIfNeededIgnoringOpacity;
+- (void)displayRect:(NSRect)rect;
+- (void)displayIfNeededInRect:(NSRect)rect;
+- (void)displayRectIgnoringOpacity:(NSRect)rect;
+- (void)displayIfNeededInRectIgnoringOpacity:(NSRect)rect;
+- (void)drawRect:(NSRect)rect;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (void)displayRectIgnoringOpacity:(NSRect)aRect inContext:(NSGraphicsContext *)context;
+
+- (NSBitmapImageRep *)bitmapImageRepForCachingDisplayInRect:(NSRect)rect;
+- (void)cacheDisplayInRect:(NSRect)rect toBitmapImageRep:(NSBitmapImageRep *)bitmapImageRep;
+#endif
+
+- (int)gState;
+- (void)allocateGState;
+- (void)releaseGState;
+- (void)setUpGState;
+- (void)renewGState;
+
+- (void)scrollPoint:(NSPoint)aPoint;
+- (BOOL)scrollRectToVisible:(NSRect)aRect;
+- (BOOL)autoscroll:(NSEvent *)theEvent;
+- (NSRect)adjustScroll:(NSRect)newVisible;
+- (void)scrollRect:(NSRect)aRect by:(NSSize)delta;
+
+- (NSView *)hitTest:(NSPoint)aPoint;
+- (BOOL)mouse:(NSPoint)aPoint inRect:(NSRect)aRect;
+- (id)viewWithTag:(int)aTag;
+- (int)tag;
+- (BOOL)performKeyEquivalent:(NSEvent *)theEvent;
+- (BOOL)acceptsFirstMouse:(NSEvent *)theEvent;
+- (BOOL)shouldDelayWindowOrderingForEvent:(NSEvent *)theEvent;
+- (BOOL)needsPanelToBecomeKey;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2
+- (BOOL)mouseDownCanMoveWindow;
+#endif
+
+- (void)addCursorRect:(NSRect)aRect cursor:(NSCursor *)anObj;
+- (void)removeCursorRect:(NSRect)aRect cursor:(NSCursor *)anObj;
+- (void)discardCursorRects;
+- (void)resetCursorRects;
+
+- (NSTrackingRectTag)addTrackingRect:(NSRect)aRect owner:(id)anObject userData:(void *)data assumeInside:(BOOL)flag;
+- (void)removeTrackingRect:(NSTrackingRectTag)tag;
+
+- (BOOL)shouldDrawColor;
+
+- (void)setPostsBoundsChangedNotifications:(BOOL)flag;
+- (BOOL)postsBoundsChangedNotifications;
+
+- (NSScrollView *)enclosingScrollView;
+
+- (NSMenu *)menuForEvent:(NSEvent *)event;
+ (NSMenu *)defaultMenu;
+
+- (void)setToolTip:(NSString *)string;
+- (NSString *)toolTip;
+- (NSToolTipTag)addToolTipRect:(NSRect)aRect owner:(id)anObject userData:(void *)data;
+- (void)removeToolTip:(NSToolTipTag)tag;
+- (void)removeAllToolTips;
+
+/* Live resize support */
+// a view receives viewWillStartLiveResize before the frame is first changed for a live resize
+- (void)viewWillStartLiveResize;
+// a view receives viewWillEndLiveResize after the frame is last changed for a live resize
+- (void)viewDidEndLiveResize;
+// inLiveResize can be called from drawRect: to decide between cheap and full drawing
+- (BOOL)inLiveResize;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+/* A view that returns YES for -preservesContentDuringLiveResize is responsible for invalidating its own dirty rects during live resize */
+- (BOOL)preservesContentDuringLiveResize;
+/* -rectPreservedDuringLiveResize indicates the rect the view previously occupied, in the current coordinate system of the view */
+- (NSRect)rectPreservedDuringLiveResize;
+/* On return from -getRectsExposedDuringLiveResize, exposedRects indicates the parts of the view that are newly exposed (at most 4 rects).  *count indicates how many rects are in the exposedRects list */
+- (void)getRectsExposedDuringLiveResize:(NSRect[4])exposedRects count:(int *)count;
+#endif
+@end
+
+@interface NSObject(NSToolTipOwner)
+- (NSString *)view:(NSView *)view stringForToolTip:(NSToolTipTag)tag point:(NSPoint)point userData:(void *)data;
+@end
+
+@interface NSView(NSKeyboardUI)
+- (BOOL)performMnemonic:(NSString *)theString;
+- (void)setNextKeyView:(NSView *)next;
+- (NSView *)nextKeyView;
+- (NSView *)previousKeyView;
+- (NSView *)nextValidKeyView;
+- (NSView *)previousValidKeyView;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (BOOL)canBecomeKeyView;
+#endif
+
+- (void)setKeyboardFocusRingNeedsDisplayInRect:(NSRect)rect;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+- (void)setFocusRingType:(NSFocusRingType)focusRingType;
+- (NSFocusRingType)focusRingType;
+ (NSFocusRingType)defaultFocusRingType;
+#endif
+@end
+
+@interface NSView(NSPrinting)
+
+/* EPS/PDF generation */
+- (void)writeEPSInsideRect:(NSRect)rect toPasteboard:(NSPasteboard *)pasteboard;
+- (NSData *)dataWithEPSInsideRect:(NSRect)rect;
+- (void)writePDFInsideRect:(NSRect)rect toPasteboard:(NSPasteboard *)pasteboard;
+- (NSData *)dataWithPDFInsideRect:(NSRect)rect;
+
+/* Printing action method (Note fax: is obsolete) */
+- (void)print:(id)sender;
+
+/* Pagination */
+- (BOOL)knowsPageRange:(NSRangePointer)range;
+- (float)heightAdjustLimit;
+- (float)widthAdjustLimit;
+- (void)adjustPageWidthNew:(float *)newRight left:(float)oldLeft right:(float)oldRight limit:(float)rightLimit;
+- (void)adjustPageHeightNew:(float *)newBottom top:(float)oldTop bottom:(float)oldBottom limit:(float)bottomLimit;
+- (NSRect)rectForPage:(int)page;
+- (NSPoint)locationOfPrintRect:(NSRect)aRect;
+- (void)drawPageBorderWithSize:(NSSize)borderSize;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (NSAttributedString *)pageHeader;
+- (NSAttributedString *)pageFooter;
+#endif
+
+/*** This method is obsolete.  It will never be invoked from within AppKit, and NSView's implementation of it does nothing. ***/
+- (void)drawSheetBorderWithSize:(NSSize)borderSize;
+
+/* Printing */
+/* Returns print job title. Default implementation first tries its window's NSDocument (displayName), then window's title */
+- (NSString *)printJobTitle;
+- (void)beginDocument;
+- (void)endDocument;
+
+- (void)beginPageInRect:(NSRect)aRect atPlacement:(NSPoint)location;
+- (void)endPage;
+@end
+
+
+@interface NSView(NSDrag)
+- (void)dragImage:(NSImage *)anImage at:(NSPoint)viewLocation offset:(NSSize)initialOffset event:(NSEvent *)event pasteboard:(NSPasteboard *)pboard source:(id)sourceObj slideBack:(BOOL)slideFlag;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+- (NSArray *)registeredDraggedTypes;
+#endif
+- (void)registerForDraggedTypes:(NSArray *)newTypes;
+- (void)unregisterDraggedTypes;
+
+- (BOOL)dragFile:(NSString *)filename fromRect:(NSRect)rect slideBack:(BOOL)aFlag event:(NSEvent *)event;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2
+- (BOOL)dragPromisedFilesOfTypes:(NSArray *)typeArray fromRect:(NSRect)rect source:(id)sourceObject slideBack:(BOOL)aFlag event:(NSEvent *)event;
+#endif
+@end}
+
+  end;
+
+{$endif}
+{$endif}
+{$ifdef IMPLEMENTATION}
+
+procedure NSView.addSubview(aView: NSView);
+type
+  addSubview_t = procedure (param1: objc.id; param2: SEL;
+   param3: objc.id); cdecl;
+var
+  vmethod: addSubview_t;
+begin
+  vmethod := addSubview_t(@objc_msgSend);
+  vmethod(Handle, sel_registerName(PChar(Str_addSubview)), aView.Handle);
+end;
+
+{$endif}
+
--- a/bindings/pascocoa/appkit/NSWindow.inc
+++ b/bindings/pascocoa/appkit/NSWindow.inc
@ -59,11 +59,6 @@ const
 #define NSPopUpMenuWindowLevel           kCGPopUpMenuWindowLevel
 #define NSScreenSaverWindowLevel         kCGScreenSaverWindowLevel  }

-const
-  Str_NSWindow = 'NSWindow';
-  Str_initWithContentRect = 'initWithContentRect:styleMask:backing:defer:';
-  Str_orderFrontRegardless = 'orderFrontRegardless';
-
 type
  NSSelectionDirection = (
    NSDirectSelection = 0,
@ -100,6 +95,15 @@ APPKIT_EXTERN NSString *NSWindowDidEndSheetNotification;
 APPKIT_EXTERN NSString *NSWindowDidChangeScreenProfileNotification  AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER;
 }

+{ Class and method name strings }
+const
+  Str_NSWindow = 'NSWindow';
+
+  Str_initWithContentRect = 'initWithContentRect:styleMask:backing:defer:';
+  Str_orderFrontRegardless = 'orderFrontRegardless';
+  Str_setTitle = 'setTitle:';
+  Str_contentView = 'contentView';
+
 {$endif}
 {$endif}
 {$ifdef CLASSES}
@ -131,16 +135,16 @@ APPKIT_EXTERN NSString *NSWindowDidChangeScreenProfileNotification  AVAILABLE_MA
    constructor initWithContentRect(contentRect: NSRect; aStyle: cuint; bufferingType: NSBackingStoreType; defer: CBOOL);
 {- (id)initWithContentRect:(NSRect)contentRect styleMask:(unsigned int)aStyle backing:(NSBackingStoreType)bufferingType defer:(BOOL)flag screen:(NSScreen *)screen;

- (NSString *)title;
- (void)setTitle:(NSString *)aString;
- (NSString *)representedFilename;
+- (NSString *)title;}
+    procedure setTitle(aString: CFStringRef);
+{- (NSString *)representedFilename;
 - (void)setRepresentedFilename:(NSString *)aString;
 - (void)setTitleWithRepresentedFilename:(NSString *)filename;
 - (void)setExcludedFromWindowsMenu:(BOOL)flag;
 - (BOOL)isExcludedFromWindowsMenu;
- (void)setContentView:(NSView *)aView;
- (id)contentView;
- (void)setDelegate:(id)anObject;
+- (void)setContentView:(NSView *)aView;}
+    function contentView: objc.id;
+{- (void)setDelegate:(id)anObject;
 - (id)delegate;
 - (int)windowNumber;
 - (unsigned int)styleMask;
@ -498,6 +502,22 @@ begin
   aStyle, bufferingType, defer);
 end;

+procedure NSWindow.setTitle(aString: CFStringRef);
+type
+  setTitle_t = procedure (param1: objc.id; param2: SEL;
+   param3: CFStringRef); cdecl;
+var
+  vmethod: setTitle_t;
+begin
+  vmethod := setTitle_t(@objc_msgSend);
+  vmethod(Handle, sel_registerName(PChar(Str_setTitle)), aString);
+end;
+
+function NSWindow.contentView: objc.id;
+begin
+  Result := objc_msgSend(Handle, sel_registerName(PChar(Str_contentView)), []);
+end;
+
 procedure NSWindow.orderFrontRegardless;
 begin
  objc_msgSend(Handle, sel_registerName(PChar(Str_orderFrontRegardless)), []);
--- a/bindings/pascocoa/examples/simplewindow/simplewindow.lpi
+++ b/bindings/pascocoa/examples/simplewindow/simplewindow.lpi
@ -28,44 +28,44 @@
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
    </RunParams>
-    <Units Count="41">
+    <Units Count="53">
      <Unit0>
        <Filename Value="simplewindow.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="simplewindow"/>
-        <CursorPos X="48" Y="21"/>
-        <TopLine Value="12"/>
+        <CursorPos X="31" Y="58"/>
+        <TopLine Value="55"/>
        <EditorIndex Value="0"/>
-        <UsageCount Value="50"/>
+        <UsageCount Value="106"/>
        <Loaded Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="../../appkit/appkit.pas"/>
        <UnitName Value="appkit"/>
-        <CursorPos X="1" Y="29"/>
-        <TopLine Value="20"/>
+        <CursorPos X="102" Y="36"/>
+        <TopLine Value="19"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="42"/>
        <Loaded Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../appkit/NSPanel.inc"/>
        <CursorPos X="14" Y="89"/>
        <TopLine Value="79"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="5"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../appkit/NSApplication_impl.inc"/>
        <CursorPos X="73" Y="11"/>
        <TopLine Value="8"/>
-        <UsageCount Value="19"/>
+        <UsageCount Value="14"/>
      </Unit3>
      <Unit4>
        <Filename Value="../../appkit/AppKit.inc"/>
-        <CursorPos X="16" Y="17"/>
-        <TopLine Value="8"/>
-        <EditorIndex Value="2"/>
-        <UsageCount Value="10"/>
+        <CursorPos X="16" Y="89"/>
+        <TopLine Value="82"/>
+        <EditorIndex Value="3"/>
+        <UsageCount Value="39"/>
        <Loaded Value="True"/>
      </Unit4>
      <Unit5>
@ -73,253 +73,353 @@
        <UnitName Value="FPCMacOSAll"/>
        <CursorPos X="15" Y="397"/>
        <TopLine Value="391"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
      </Unit5>
      <Unit6>
        <Filename Value="../../appkit/AppKit_impl.inc"/>
        <CursorPos X="33" Y="3"/>
        <TopLine Value="1"/>
-        <UsageCount Value="19"/>
+        <UsageCount Value="14"/>
      </Unit6>
      <Unit7>
        <Filename Value="/System/Library/Frameworks/Foundation.framework/Headers/Foundation.h"/>
        <CursorPos X="10" Y="125"/>
        <TopLine Value="123"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit7>
      <Unit8>
        <Filename Value="/System/Library/Frameworks/Foundation.framework/Headers/NSAutoreleasePool.h"/>
        <CursorPos X="30" Y="5"/>
        <TopLine Value="1"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit8>
      <Unit9>
        <Filename Value="../../Foundation/Foundation.inc"/>
        <CursorPos X="15" Y="6"/>
        <TopLine Value="1"/>
-        <UsageCount Value="20"/>
+        <UsageCount Value="15"/>
      </Unit9>
      <Unit10>
        <Filename Value="../../foundation/Foundation.inc"/>
        <CursorPos X="33" Y="3"/>
        <TopLine Value="1"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="6"/>
      </Unit10>
      <Unit11>
        <Filename Value="../../foundation/Foundation_impl.inc"/>
        <CursorPos X="30" Y="4"/>
        <TopLine Value="1"/>
-        <UsageCount Value="20"/>
+        <UsageCount Value="15"/>
      </Unit11>
      <Unit12>
        <Filename Value="../../foundation/NSAutoreleasePool.inc"/>
        <CursorPos X="43" Y="8"/>
        <TopLine Value="2"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="21"/>
      </Unit12>
      <Unit13>
        <Filename Value="../../foundation/NSAutoreleasePool_impl.inc"/>
        <CursorPos X="22" Y="9"/>
        <TopLine Value="1"/>
-        <UsageCount Value="20"/>
+        <UsageCount Value="15"/>
      </Unit13>
      <Unit14>
        <Filename Value="../../foundation/foundation.pas"/>
        <UnitName Value="foundation"/>
        <CursorPos X="24" Y="7"/>
        <TopLine Value="6"/>
-        <UsageCount Value="25"/>
+        <UsageCount Value="20"/>
      </Unit14>
      <Unit15>
        <Filename Value="/System/Library/Frameworks/Foundation.framework/Versions/C/Headers/NSObject.h"/>
        <CursorPos X="21" Y="116"/>
        <TopLine Value="111"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit15>
      <Unit16>
        <Filename Value="../../foundation/NSObject.inc"/>
-        <CursorPos X="44" Y="152"/>
-        <TopLine Value="149"/>
-        <UsageCount Value="21"/>
+        <CursorPos X="48" Y="155"/>
+        <TopLine Value="151"/>
+        <UsageCount Value="48"/>
      </Unit16>
      <Unit17>
        <Filename Value="../../foundation/NSObject_impl.inc"/>
        <CursorPos X="1" Y="11"/>
        <TopLine Value="1"/>
-        <UsageCount Value="33"/>
+        <UsageCount Value="28"/>
      </Unit17>
      <Unit18>
        <Filename Value="../../appkit/NSApplication.inc"/>
-        <CursorPos X="47" Y="370"/>
-        <TopLine Value="362"/>
-        <EditorIndex Value="3"/>
-        <UsageCount Value="18"/>
+        <CursorPos X="14" Y="107"/>
+        <TopLine Value="98"/>
+        <EditorIndex Value="5"/>
+        <UsageCount Value="46"/>
        <Loaded Value="True"/>
      </Unit18>
      <Unit19>
        <Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSWindow.h"/>
        <CursorPos X="21" Y="537"/>
        <TopLine Value="535"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit19>
      <Unit20>
        <Filename Value="../../appkit/NSWindow.inc"/>
-        <CursorPos X="25" Y="464"/>
-        <TopLine Value="460"/>
-        <UsageCount Value="27"/>
+        <CursorPos X="14" Y="13"/>
+        <TopLine Value="106"/>
+        <EditorIndex Value="4"/>
+        <UsageCount Value="45"/>
+        <Loaded Value="True"/>
      </Unit20>
      <Unit21>
        <Filename Value="../../appkit/NSWindow_impl.inc"/>
        <CursorPos X="65" Y="19"/>
        <TopLine Value="14"/>
-        <UsageCount Value="34"/>
+        <UsageCount Value="29"/>
      </Unit21>
      <Unit22>
        <Filename Value="/System/Library/Frameworks/Foundation.framework/Headers/NSGeometry.h"/>
        <CursorPos X="12" Y="131"/>
        <TopLine Value="125"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit22>
      <Unit23>
        <Filename Value="../../foundation/NSGeometry.inc"/>
-        <CursorPos X="26" Y="142"/>
-        <TopLine Value="138"/>
-        <UsageCount Value="25"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="53"/>
+        <Loaded Value="True"/>
      </Unit23>
      <Unit24>
        <Filename Value="/System/Library/Frameworks/AppKit.framework/Headers/NSGraphics.h"/>
        <CursorPos X="12" Y="167"/>
        <TopLine Value="163"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit24>
      <Unit25>
        <Filename Value="../../appkit/NSGraphics.inc"/>
-        <CursorPos X="22" Y="7"/>
-        <TopLine Value="1"/>
-        <UsageCount Value="22"/>
+        <CursorPos X="38" Y="184"/>
+        <TopLine Value="175"/>
+        <UsageCount Value="17"/>
      </Unit25>
      <Unit26>
        <Filename Value="../../../objc/objc.inc"/>
        <CursorPos X="104" Y="76"/>
        <TopLine Value="69"/>
-        <UsageCount Value="16"/>
+        <UsageCount Value="11"/>
      </Unit26>
      <Unit27>
        <Filename Value="../../../fpc/rtl/unix/aliasctp.inc"/>
        <CursorPos X="49" Y="37"/>
        <TopLine Value="33"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
      </Unit27>
      <Unit28>
        <Filename Value="../../../fpc/rtl/unix/unixtype.pp"/>
        <UnitName Value="unixtype"/>
        <CursorPos X="47" Y="8"/>
        <TopLine Value="3"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
      </Unit28>
      <Unit29>
        <Filename Value="../../../fpc/rtl/darwin/ptypes.inc"/>
        <CursorPos X="34" Y="14"/>
        <TopLine Value="12"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
      </Unit29>
      <Unit30>
        <Filename Value="../../../fpc/rtl/unix/ctypes.inc"/>
        <CursorPos X="34" Y="55"/>
        <TopLine Value="44"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
      </Unit30>
      <Unit31>
        <Filename Value="../../../objc/objc-runtime.inc"/>
        <CursorPos X="62" Y="19"/>
        <TopLine Value="16"/>
-        <UsageCount Value="16"/>
+        <UsageCount Value="11"/>
      </Unit31>
      <Unit32>
        <Filename Value="../../appkit/NSWindow_type.inc"/>
        <CursorPos X="41" Y="4"/>
        <TopLine Value="1"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="5"/>
      </Unit32>
      <Unit33>
        <Filename Value="../../appkit/NSApplication_type.inc"/>
        <CursorPos X="40" Y="252"/>
        <TopLine Value="244"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="5"/>
      </Unit33>
      <Unit34>
        <Filename Value="../../../fpc/rtl/inc/objpash.inc"/>
        <CursorPos X="11" Y="68"/>
        <TopLine Value="64"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="4"/>
      </Unit34>
      <Unit35>
        <Filename Value="../../../objc/objc.pas"/>
        <UnitName Value="objc"/>
        <CursorPos X="70" Y="14"/>
        <TopLine Value="9"/>
-        <UsageCount Value="16"/>
+        <UsageCount Value="11"/>
      </Unit35>
      <Unit36>
        <Filename Value="../../../objc/objc-class.inc"/>
        <CursorPos X="5" Y="261"/>
        <TopLine Value="261"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="5"/>
      </Unit36>
      <Unit37>
        <Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSStatusBar.h"/>
        <CursorPos X="58" Y="18"/>
        <TopLine Value="17"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="5"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit37>
      <Unit38>
        <Filename Value="../../appkit/NSStatusBar.inc"/>
-        <CursorPos X="1" Y="59"/>
-        <TopLine Value="47"/>
-        <EditorIndex Value="4"/>
-        <UsageCount Value="21"/>
+        <CursorPos X="1" Y="13"/>
+        <TopLine Value="4"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="50"/>
        <Loaded Value="True"/>
      </Unit38>
      <Unit39>
        <Filename Value="../../appkit/NSStatusItem.inc"/>
-        <CursorPos X="27" Y="50"/>
-        <TopLine Value="88"/>
-        <EditorIndex Value="5"/>
-        <UsageCount Value="21"/>
-        <Loaded Value="True"/>
+        <CursorPos X="37" Y="105"/>
+        <TopLine Value="99"/>
+        <UsageCount Value="39"/>
      </Unit39>
      <Unit40>
        <Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSStatusItem.h"/>
        <CursorPos X="38" Y="100"/>
        <TopLine Value="85"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="5"/>
        <SyntaxHighlighter Value="C++"/>
      </Unit40>
+      <Unit41>
+        <Filename Value="../../../../fpc/packages/extra/univint/FPCMacOSAll.pas"/>
+        <UnitName Value="FPCMacOSAll"/>
+        <CursorPos X="18" Y="55559"/>
+        <TopLine Value="55553"/>
+        <UsageCount Value="5"/>
+      </Unit41>
+      <Unit42>
+        <Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSTextField.h"/>
+        <CursorPos X="23" Y="40"/>
+        <TopLine Value="39"/>
+        <UsageCount Value="5"/>
+        <SyntaxHighlighter Value="C++"/>
+      </Unit42>
+      <Unit43>
+        <Filename Value="../../appkit/NSTextField.inc"/>
+        <CursorPos X="17" Y="71"/>
+        <TopLine Value="68"/>
+        <UsageCount Value="48"/>
+      </Unit43>
+      <Unit44>
+        <Filename Value="../../appkit/NSControl.inc"/>
+        <CursorPos X="48" Y="144"/>
+        <TopLine Value="142"/>
+        <UsageCount Value="27"/>
+      </Unit44>
+      <Unit45>
+        <Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSView.h"/>
+        <CursorPos X="54" Y="2"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="5"/>
+        <SyntaxHighlighter Value="C++"/>
+      </Unit45>
+      <Unit46>
+        <Filename Value="../../appkit/NSView.inc"/>
+        <CursorPos X="1" Y="136"/>
+        <TopLine Value="131"/>
+        <EditorIndex Value="7"/>
+        <UsageCount Value="37"/>
+        <Loaded Value="True"/>
+      </Unit46>
+      <Unit47>
+        <Filename Value="../../appkit/NSResponder.inc"/>
+        <CursorPos X="18" Y="12"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="6"/>
+        <UsageCount Value="12"/>
+        <Loaded Value="True"/>
+      </Unit47>
+      <Unit48>
+        <Filename Value="../../appkit/NSActionCell.inc"/>
+        <CursorPos X="35" Y="35"/>
+        <TopLine Value="29"/>
+        <UsageCount Value="10"/>
+      </Unit48>
+      <Unit49>
+        <Filename Value="../../appkit/NSCell.inc"/>
+        <CursorPos X="26" Y="151"/>
+        <TopLine Value="145"/>
+        <UsageCount Value="10"/>
+      </Unit49>
+      <Unit50>
+        <Filename Value="../../appkit/NSAlert.inc"/>
+        <CursorPos X="21" Y="38"/>
+        <TopLine Value="28"/>
+        <UsageCount Value="10"/>
+      </Unit50>
+      <Unit51>
+        <Filename Value="../../appkit/NSButtonCell.inc"/>
+        <CursorPos X="53" Y="39"/>
+        <TopLine Value="35"/>
+        <UsageCount Value="10"/>
+      </Unit51>
+      <Unit52>
+        <Filename Value="../../appkit/NSButton.inc"/>
+        <CursorPos X="30" Y="71"/>
+        <TopLine Value="66"/>
+        <UsageCount Value="10"/>
+      </Unit52>
    </Units>
-    <JumpHistory Count="4" HistoryIndex="3">
+    <JumpHistory Count="9" HistoryIndex="8">
      <Position1>
-        <Filename Value="../../appkit/AppKit.inc"/>
-        <Caret Line="17" Column="16" TopLine="8"/>
+        <Filename Value="../../appkit/NSApplication.inc"/>
+        <Caret Line="102" Column="32" TopLine="98"/>
      </Position1>
      <Position2>
        <Filename Value="../../appkit/NSApplication.inc"/>
-        <Caret Line="360" Column="25" TopLine="356"/>
+        <Caret Line="103" Column="16" TopLine="96"/>
      </Position2>
      <Position3>
-        <Filename Value="../../appkit/NSStatusBar.inc"/>
-        <Caret Line="46" Column="1" TopLine="30"/>
+        <Filename Value="../../appkit/AppKit.inc"/>
+        <Caret Line="14" Column="18" TopLine="7"/>
      </Position3>
      <Position4>
-        <Filename Value="../../appkit/NSStatusBar.inc"/>
-        <Caret Line="32" Column="20" TopLine="23"/>
+        <Filename Value="../../appkit/AppKit.inc"/>
+        <Caret Line="92" Column="15" TopLine="82"/>
      </Position4>
+      <Position5>
+        <Filename Value="../../appkit/NSApplication.inc"/>
+        <Caret Line="103" Column="16" TopLine="96"/>
+      </Position5>
+      <Position6>
+        <Filename Value="../../appkit/NSApplication.inc"/>
+        <Caret Line="320" Column="14" TopLine="307"/>
+      </Position6>
+      <Position7>
+        <Filename Value="../../appkit/NSApplication.inc"/>
+        <Caret Line="107" Column="14" TopLine="98"/>
+      </Position7>
+      <Position8>
+        <Filename Value="../../appkit/AppKit.inc"/>
+        <Caret Line="92" Column="15" TopLine="82"/>
+      </Position8>
+      <Position9>
+        <Filename Value="../../appkit/NSView.inc"/>
+        <Caret Line="364" Column="41" TopLine="360"/>
+      </Position9>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
--- a/bindings/pascocoa/examples/simplewindow/simplewindow.pas
+++ b/bindings/pascocoa/examples/simplewindow/simplewindow.pas
@ -21,24 +21,26 @@ uses
  objc, ctypes, FPCMacOSAll, AppKit, Foundation;

 const
-  Str_Panel_Title = 'This is the title';
-  Str_Panel_Message = 'This is the message';
+  Str_Window_Title = 'This is the title';
+  Str_Window_Message = 'This is the message';
 var
  { classes }
  pool: NSAutoreleasePool;
  MainWindow: NSWindow;
+  MainWindowView: NSView;
+  TextField: NSTextField;
  { strings }
  CFTitle, CFMessage: CFStringRef;
  { sizes }
-  MainWindowRect: NSRect;
+  MainWindowRect, TextFieldRect: NSRect;
 begin
-  {  NSAutoreleasePool* pool = [[NSAutoreleasePool alloc] init]; }
+  {  Creates a AutoreleasePool for this thread. Every thread must have one }
  pool := NSAutoreleasePool.Create;

-  // Creates the application NSApp object
+  { Creates the application NSApp object }
  NSApp := NSApplication.sharedApplication;

-  // Creates a simple window
+  { Creates a simple window }
  MainWindowRect.origin.x := 300.0;
  MainWindowRect.origin.y := 300.0;
  MainWindowRect.size.width := 300.0;
@ -47,14 +49,31 @@ begin
  MainWindow := NSWindow.initWithContentRect(MainWindowRect,
    NSTitledWindowMask or NSClosableWindowMask or NSMiniaturizableWindowMask or NSResizableWindowMask,
    NSBackingStoreBuffered, NO);
-    
+
+  { Initializes the title of the window }
+
+  CFTitle := CFStringCreateWithPascalString(nil, Str_Window_Title, kCFStringEncodingUTF8);
+  MainWindow.setTitle(CFTitle);
+
+  { Adds a NSTextField with a string }
+  TextFieldRect.origin.x := 0.0;
+  TextFieldRect.origin.y := 0.0;
+  TextFieldRect.size.width := 300.0;
+  TextFieldRect.size.height := 500.0;
+  TextField := NSTextField.initWithFrame(TextFieldRect);
+  TextField.setStringValue(CFTitle);
+  MainWindowView := NSView.CreateWithHandle(MainWindow.contentView);
+  MainWindowView.addSubview(TextField);
+
+  { Put's the window on the front z-order }
+
  MainWindow.orderFrontRegardless;

  { Enters main message loop }

  NSApp.run;

-  {  [pool release]; }
+  { Releases the AutoreleasePool for this thread }
  pool.Free;
 end.

--- a/bindings/pascocoa/foundation/NSObject.inc
+++ b/bindings/pascocoa/foundation/NSObject.inc
@ -101,6 +101,7 @@ FOUNDATION_EXPORT unsigned NSExtraRefCount(id object);}
    allocbuf, Handle: objc.id;
    { Constructor / Destructor }
    constructor Create; virtual;
+    constructor CreateWithHandle(aHandle: objc.id);
    destructor Destroy; override;

 {+ (void)load;
@ -159,6 +160,13 @@ begin

 end;

+constructor NSObject.CreateWithHandle(aHandle: objc.id);
+begin
+  Handle := aHandle;
+  
+  inherited Create;
+end;
+
 destructor NSObject.Destroy;
 begin
  objc_msgSend(Handle, sel_registerName(PChar(Str_release)), []);