* reparsed with latest script version, which adds "optional" sections to

    protocols where required

git-svn-id: trunk@16924 -

packages/cocoaint/src/appkit/NSAlert.inc

@@ -130,6 +130,7 @@ type
   
 { NSAlertDelegate Protocol }
   NSAlertDelegateProtocol = objcprotocol external name 'NSAlertDelegate'
+  optional
     function alertShowHelp(alert: NSAlert): Boolean; message 'alertShowHelp:';
   end;
 {$endif}

packages/cocoaint/src/appkit/NSAnimation.inc

@@ -189,6 +189,7 @@ var
   
 { NSAnimationDelegate Protocol }
   NSAnimationDelegateProtocol = objcprotocol external name 'NSAnimationDelegate'
+  optional
     function animationShouldStart(animation: NSAnimation): Boolean; message 'animationShouldStart:';
     procedure animationDidStop(animation: NSAnimation); message 'animationDidStop:';
     procedure animationDidEnd(animation: NSAnimation); message 'animationDidEnd:';
@@ -198,6 +199,7 @@ var
   
 { NSAnimatablePropertyContainer Protocol }
   NSAnimatablePropertyContainerProtocol = objcprotocol external name 'NSAnimatablePropertyContainer'
+  optional
     function animator: id; message 'animator';
     function animations: NSDictionary; message 'animations';
     procedure setAnimations(dict: NSDictionary); message 'setAnimations:';

packages/cocoaint/src/appkit/NSApplication.inc

@@ -351,6 +351,7 @@ var
   
 { NSApplicationDelegate Protocol }
   NSApplicationDelegateProtocol = objcprotocol external name 'NSApplicationDelegate'
+  optional
     function applicationShouldTerminate(sender: NSApplication): NSApplicationTerminateReply; message 'applicationShouldTerminate:';
     function application_openFile(sender: NSApplication; filename: NSString): Boolean; message 'application:openFile:';
     procedure application_openFiles(sender: NSApplication; filenames: NSArray); message 'application:openFiles:';

packages/cocoaint/src/appkit/NSBrowser.inc

@@ -289,6 +289,7 @@ var
   
 { NSBrowserDelegate Protocol }
   NSBrowserDelegateProtocol = objcprotocol external name 'NSBrowserDelegate'
+  optional
     function browser_numberOfRowsInColumn(sender: NSBrowser; column: NSInteger): NSInteger; message 'browser:numberOfRowsInColumn:';
     procedure browser_createRowsForColumn_inMatrix(sender: NSBrowser; column: NSInteger; matrix: NSMatrix); message 'browser:createRowsForColumn:inMatrix:';
     function browser_numberOfChildrenOfItem(browser: NSBrowser; item: id): NSInteger; message 'browser:numberOfChildrenOfItem:';

packages/cocoaint/src/appkit/NSCollectionView.inc

@@ -171,6 +171,7 @@ const
   
 { NSCollectionViewDelegate Protocol }
   NSCollectionViewDelegateProtocol = objcprotocol external name 'NSCollectionViewDelegate'
+  optional
     function collectionView_canDragItemsAtIndexes_withEvent(collectionView: NSCollectionView; indexes: NSIndexSet; event: NSEvent): Boolean; message 'collectionView:canDragItemsAtIndexes:withEvent:';
     function collectionView_writeItemsAtIndexes_toPasteboard(collectionView: NSCollectionView; indexes: NSIndexSet; pasteboard: NSPasteboard): Boolean; message 'collectionView:writeItemsAtIndexes:toPasteboard:';
     function collectionView_namesOfPromisedFilesDroppedAtDestination_forDraggedItemsAtIndexes(collectionView: NSCollectionView; dropURL: NSURL; indexes: NSIndexSet): NSArray; message 'collectionView:namesOfPromisedFilesDroppedAtDestination:forDraggedItemsAtIndexes:';

packages/cocoaint/src/appkit/NSComboBox.inc

@@ -101,6 +101,7 @@ var
   
 { NSComboBoxDataSource Protocol }
   NSComboBoxDataSourceProtocol = objcprotocol external name 'NSComboBoxDataSource'
+  optional
     function numberOfItemsInComboBox(aComboBox: NSComboBox): NSInteger; message 'numberOfItemsInComboBox:';
     function comboBox_objectValueForItemAtIndex(aComboBox: NSComboBox; index: NSInteger): id; message 'comboBox:objectValueForItemAtIndex:';
     function comboBox_indexOfItemWithStringValue(aComboBox: NSComboBox; string_: NSString): NSUInteger; message 'comboBox:indexOfItemWithStringValue:';
@@ -109,6 +110,7 @@ var
   
 { NSComboBoxDelegate Protocol }
   NSComboBoxDelegateProtocol = objcprotocol external name 'NSComboBoxDelegate'
+  optional
     procedure comboBoxWillPopUp(notification: NSNotification); message 'comboBoxWillPopUp:';
     procedure comboBoxWillDismiss(notification: NSNotification); message 'comboBoxWillDismiss:';
     procedure comboBoxSelectionDidChange(notification: NSNotification); message 'comboBoxSelectionDidChange:';

packages/cocoaint/src/appkit/NSComboBoxCell.inc

@@ -79,6 +79,7 @@
   
 { NSComboBoxCellDataSource Protocol }
   NSComboBoxCellDataSourceProtocol = objcprotocol external name 'NSComboBoxCellDataSource'
+  optional
     function numberOfItemsInComboBoxCell(comboBoxCell: NSComboBoxCell): NSInteger; message 'numberOfItemsInComboBoxCell:';
     function comboBoxCell_objectValueForItemAtIndex(aComboBoxCell: NSComboBoxCell; index: NSInteger): id; message 'comboBoxCell:objectValueForItemAtIndex:';
     function comboBoxCell_indexOfItemWithStringValue(aComboBoxCell: NSComboBoxCell; string_: NSString): NSUInteger; message 'comboBoxCell:indexOfItemWithStringValue:';

packages/cocoaint/src/appkit/NSControl.inc

@@ -160,6 +160,7 @@ var
   
 { NSControlTextEditingDelegate Protocol }
   NSControlTextEditingDelegateProtocol = objcprotocol external name 'NSControlTextEditingDelegate'
+  optional
     function control_textShouldBeginEditing(control: NSControl; fieldEditor: NSText): Boolean; message 'control:textShouldBeginEditing:';
     function control_textShouldEndEditing(control: NSControl; fieldEditor: NSText): Boolean; message 'control:textShouldEndEditing:';
     function control_didFailToFormatString_errorDescription(control: NSControl; string_: NSString; error: NSString): Boolean; message 'control:didFailToFormatString:errorDescription:';

packages/cocoaint/src/appkit/NSDatePickerCell.inc

@@ -141,6 +141,7 @@ type
   
 { NSDatePickerCellDelegate Protocol }
   NSDatePickerCellDelegateProtocol = objcprotocol external name 'NSDatePickerCellDelegate'
+  optional
     procedure datePickerCell_validateProposedDateValue_timeInterval(aDatePickerCell: NSDatePickerCell; proposedDateValue: NSDatePointer; proposedTimeInterval: NSTimeIntervalPtr); message 'datePickerCell:validateProposedDateValue:timeInterval:';
   end;
 {$endif}

packages/cocoaint/src/appkit/NSDockTile.inc

@@ -84,7 +84,9 @@ const
   
 { NSDockTilePlugIn Protocol }
   NSDockTilePlugInProtocol = objcprotocol external name 'NSDockTilePlugIn'
+  required
     procedure setDockTile(dockTile: NSDockTile); message 'setDockTile:';
+  optional
     function dockMenu: NSMenu; message 'dockMenu';
   end;
 {$endif}

packages/cocoaint/src/appkit/NSDrawer.inc

@@ -126,6 +126,7 @@ var
   
 { NSDrawerDelegate Protocol }
   NSDrawerDelegateProtocol = objcprotocol external name 'NSDrawerDelegate'
+  optional
     function drawerShouldOpen(sender: NSDrawer): Boolean; message 'drawerShouldOpen:';
     function drawerShouldClose(sender: NSDrawer): Boolean; message 'drawerShouldClose:';
     function drawerWillResizeContents_toSize(sender: NSDrawer; contentSize: NSSize): NSSize; message 'drawerWillResizeContents:toSize:';

packages/cocoaint/src/appkit/NSImage.inc

@@ -259,6 +259,7 @@ var
   
 { NSImageDelegate Protocol }
   NSImageDelegateProtocol = objcprotocol external name 'NSImageDelegate'
+  optional
     function imageDidNotDraw_inRect(sender: id; aRect: NSRect): NSImage; message 'imageDidNotDraw:inRect:';
     procedure image_willLoadRepresentation(image: NSImage; rep: NSImageRep); message 'image:willLoadRepresentation:';
     procedure image_didLoadRepresentationHeader(image: NSImage; rep: NSImageRep); message 'image:didLoadRepresentationHeader:';

packages/cocoaint/src/appkit/NSLayoutManager.inc

@@ -307,6 +307,7 @@ type
   
 { NSLayoutManagerDelegate Protocol }
   NSLayoutManagerDelegateProtocol = objcprotocol external name 'NSLayoutManagerDelegate'
+  optional
     procedure layoutManagerDidInvalidateLayout(sender: NSLayoutManager); message 'layoutManagerDidInvalidateLayout:';
     procedure layoutManager_didCompleteLayoutForTextContainer_atEnd(layoutManager: NSLayoutManager; textContainer: NSTextContainer; layoutFinishedFlag: Boolean); message 'layoutManager:didCompleteLayoutForTextContainer:atEnd:';
     function layoutManager_shouldUseTemporaryAttributes_forDrawingToScreen_atCharacterIndex_effectiveRange(layoutManager: NSLayoutManager; attrs: NSDictionary; toScreen: Boolean; charIndex: NSUInteger; effectiveCharRange: NSRangePointer): NSDictionary; message 'layoutManager:shouldUseTemporaryAttributes:forDrawingToScreen:atCharacterIndex:effectiveRange:';

packages/cocoaint/src/appkit/NSMenu.inc

@@ -195,6 +195,7 @@ var
   
 { NSMenuDelegate Protocol }
   NSMenuDelegateProtocol = objcprotocol external name 'NSMenuDelegate'
+  optional
     procedure menuNeedsUpdate(menu: NSMenu); message 'menuNeedsUpdate:';
     function numberOfItemsInMenu(menu: NSMenu): NSInteger; message 'numberOfItemsInMenu:';
     function menu_updateItem_atIndex_shouldCancel(menu: NSMenu; item: NSMenuItem; index: NSInteger; shouldCancel: Boolean): Boolean; message 'menu:updateItem:atIndex:shouldCancel:';

packages/cocoaint/src/appkit/NSOutlineView.inc

@@ -209,6 +209,7 @@ var
   
 { NSOutlineViewDataSource Protocol }
   NSOutlineViewDataSourceProtocol = objcprotocol external name 'NSOutlineViewDataSource'
+  optional
     function outlineView_child_ofItem(outlineView: NSOutlineView; index: NSInteger; item: id): id; message 'outlineView:child:ofItem:';
     function outlineView_isItemExpandable(outlineView: NSOutlineView; item: id): Boolean; message 'outlineView:isItemExpandable:';
     function outlineView_numberOfChildrenOfItem(outlineView: NSOutlineView; item: id): NSInteger; message 'outlineView:numberOfChildrenOfItem:';
@@ -225,6 +226,7 @@ var
   
 { NSOutlineViewDelegate Protocol }
   NSOutlineViewDelegateProtocol = objcprotocol external name 'NSOutlineViewDelegate'
+  optional
     procedure outlineView_willDisplayCell_forTableColumn_item(outlineView: NSOutlineView; cell: id; tableColumn: NSTableColumn; item: id); message 'outlineView:willDisplayCell:forTableColumn:item:';
     function outlineView_shouldEditTableColumn_item(outlineView: NSOutlineView; tableColumn: NSTableColumn; item: id): Boolean; message 'outlineView:shouldEditTableColumn:item:';
     function selectionShouldChangeInOutlineView(outlineView: NSOutlineView): Boolean; message 'selectionShouldChangeInOutlineView:';

packages/cocoaint/src/appkit/NSPasteboard.inc

@@ -187,14 +187,19 @@ var
   
 { NSPasteboardWriting Protocol }
   NSPasteboardWritingProtocol = objcprotocol external name 'NSPasteboardWriting'
+  required
     function writableTypesForPasteboard(pasteboard: NSPasteboard): NSArray; message 'writableTypesForPasteboard:';
+  optional
     function writingOptionsForType_pasteboard(type_: NSString; pasteboard: NSPasteboard): NSPasteboardWritingOptions; message 'writingOptionsForType:pasteboard:';
+  required
     function pasteboardPropertyListForType(type_: NSString): id; message 'pasteboardPropertyListForType:';
   end;
   
 { NSPasteboardReading Protocol }
   NSPasteboardReadingProtocol = objcprotocol external name 'NSPasteboardReading'
+  required
     class function readableTypesForPasteboard(pasteboard: NSPasteboard): NSArray; message 'readableTypesForPasteboard:';
+  optional
     class function readingOptionsForType_pasteboard(type_: NSString; pasteboard: NSPasteboard): NSPasteboardReadingOptions; message 'readingOptionsForType:pasteboard:';
     function initWithPasteboardPropertyList_ofType(propertyList: id; type_: NSString): id; message 'initWithPasteboardPropertyList:ofType:';
   end;

packages/cocoaint/src/appkit/NSPasteboardItem.inc

@@ -77,7 +77,9 @@
   
 { NSPasteboardItemDataProvider Protocol }
   NSPasteboardItemDataProviderProtocol = objcprotocol external name 'NSPasteboardItemDataProvider'
+  required
     procedure pasteboard_item_provideDataForType(pasteboard: NSPasteboard; item: NSPasteboardItem; type_: NSString); message 'pasteboard:item:provideDataForType:';
+  optional
     procedure pasteboardFinishedWithDataProvider(pasteboard: NSPasteboard); message 'pasteboardFinishedWithDataProvider:';
   end;
 {$endif}

packages/cocoaint/src/appkit/NSPathCell.inc

@@ -121,6 +121,7 @@ type
   
 { NSPathCellDelegate Protocol }
   NSPathCellDelegateProtocol = objcprotocol external name 'NSPathCellDelegate'
+  optional
     procedure pathCell_willDisplayOpenPanel(pathCell: NSPathCell; openPanel: NSOpenPanel); message 'pathCell:willDisplayOpenPanel:';
     procedure pathCell_willPopUpMenu(pathCell: NSPathCell; menu: NSMenu); message 'pathCell:willPopUpMenu:';
   end;

packages/cocoaint/src/appkit/NSPathControl.inc

@@ -76,6 +76,7 @@
   
 { NSPathControlDelegate Protocol }
   NSPathControlDelegateProtocol = objcprotocol external name 'NSPathControlDelegate'
+  optional
     function pathControl_shouldDragPathComponentCell_withPasteboard(pathControl: NSPathControl; pathComponentCell: NSPathComponentCell; pasteboard: NSPasteboard): Boolean; message 'pathControl:shouldDragPathComponentCell:withPasteboard:';
     function pathControl_validateDrop(pathControl: NSPathControl; info: NSDraggingInfoProtocol): NSDragOperation; message 'pathControl:validateDrop:';
     function pathControl_acceptDrop(pathControl: NSPathControl; info: NSDraggingInfoProtocol): Boolean; message 'pathControl:acceptDrop:';

packages/cocoaint/src/appkit/NSPrintPanel.inc

@@ -123,6 +123,7 @@ var
 { NSPrintPanelAccessorizing Protocol }
   NSPrintPanelAccessorizingProtocol = objcprotocol external name 'NSPrintPanelAccessorizing'
     function localizedSummaryItems: NSArray; message 'localizedSummaryItems';
+  optional
     function keyPathsForValuesAffectingPreview: NSSet; message 'keyPathsForValuesAffectingPreview';
   end;
 {$endif}

packages/cocoaint/src/appkit/NSRuleEditor.inc

@@ -173,9 +173,11 @@ var
   
 { NSRuleEditorDelegate Protocol }
   NSRuleEditorDelegateProtocol = objcprotocol external name 'NSRuleEditorDelegate'
+  required
     function ruleEditor_numberOfChildrenForCriterion_withRowType(editor: NSRuleEditor; criterion: id; rowType: NSRuleEditorRowType): NSInteger; message 'ruleEditor:numberOfChildrenForCriterion:withRowType:';
     function ruleEditor_child_forCriterion_withRowType(editor: NSRuleEditor; index: NSInteger; criterion: id; rowType: NSRuleEditorRowType): id; message 'ruleEditor:child:forCriterion:withRowType:';
     function ruleEditor_displayValueForCriterion_inRow(editor: NSRuleEditor; criterion: id; row: NSInteger): id; message 'ruleEditor:displayValueForCriterion:inRow:';
+  optional
     function ruleEditor_predicatePartsForCriterion_withDisplayValue_inRow(editor: NSRuleEditor; criterion: id; value: id; row: NSInteger): NSDictionary; message 'ruleEditor:predicatePartsForCriterion:withDisplayValue:inRow:';
     procedure ruleEditorRowsDidChange(notification: NSNotification); message 'ruleEditorRowsDidChange:';
   end;

packages/cocoaint/src/appkit/NSSavePanel.inc

@@ -172,6 +172,7 @@ __SPFlagsPtr = ^__SPFlags;
   
 { NSOpenSavePanelDelegate Protocol }
   NSOpenSavePanelDelegateProtocol = objcprotocol external name 'NSOpenSavePanelDelegate'
+  optional
     function panel_shouldEnableURL(sender: id; url: NSURL): Boolean; message 'panel:shouldEnableURL:';
     function panel_validateURL_error(sender: id; url: NSURL; outError: NSErrorPointer): Boolean; message 'panel:validateURL:error:';
     procedure panel_didChangeToDirectoryURL(sender: id; url: NSURL); message 'panel:didChangeToDirectoryURL:';

packages/cocoaint/src/appkit/NSSound.inc

@@ -102,6 +102,7 @@ var
   
 { NSSoundDelegate Protocol }
   NSSoundDelegateProtocol = objcprotocol external name 'NSSoundDelegate'
+  optional
     procedure sound_didFinishPlaying(sound: NSSound; aBool: Boolean); message 'sound:didFinishPlaying:';
   end;
 {$endif}

packages/cocoaint/src/appkit/NSSpeechRecognizer.inc

@@ -69,6 +69,7 @@
   
 { NSSpeechRecognizerDelegate Protocol }
   NSSpeechRecognizerDelegateProtocol = objcprotocol external name 'NSSpeechRecognizerDelegate'
+  optional
     procedure speechRecognizer_didRecognizeCommand(sender: NSSpeechRecognizer; command: id); message 'speechRecognizer:didRecognizeCommand:';
   end;
 {$endif}

packages/cocoaint/src/appkit/NSSpeechSynthesizer.inc

@@ -153,6 +153,7 @@ var
   
 { NSSpeechSynthesizerDelegate Protocol }
   NSSpeechSynthesizerDelegateProtocol = objcprotocol external name 'NSSpeechSynthesizerDelegate'
+  optional
     procedure speechSynthesizer_didFinishSpeaking(sender: NSSpeechSynthesizer; finishedSpeaking: Boolean); message 'speechSynthesizer:didFinishSpeaking:';
     procedure speechSynthesizer_willSpeakWord_ofString(sender: NSSpeechSynthesizer; characterRange: NSRange; string_: NSString); message 'speechSynthesizer:willSpeakWord:ofString:';
     procedure speechSynthesizer_willSpeakPhoneme(sender: NSSpeechSynthesizer; phonemeOpcode: cshort); message 'speechSynthesizer:willSpeakPhoneme:';

packages/cocoaint/src/appkit/NSSplitView.inc

@@ -95,6 +95,7 @@ var
   
 { NSSplitViewDelegate Protocol }
   NSSplitViewDelegateProtocol = objcprotocol external name 'NSSplitViewDelegate'
+  optional
     function splitView_canCollapseSubview(splitView: NSSplitView; subview: NSView): Boolean; message 'splitView:canCollapseSubview:';
     function splitView_shouldCollapseSubview_forDoubleClickOnDividerAtIndex(splitView: NSSplitView; subview: NSView; dividerIndex: NSInteger): Boolean; message 'splitView:shouldCollapseSubview:forDoubleClickOnDividerAtIndex:';
     function splitView_constrainMinCoordinate_ofSubviewAt(splitView: NSSplitView; proposedMinimumPosition: CGFloat; dividerIndex: NSInteger): CGFloat; message 'splitView:constrainMinCoordinate:ofSubviewAt:';

packages/cocoaint/src/appkit/NSTabView.inc

@@ -150,6 +150,7 @@ type
   
 { NSTabViewDelegate Protocol }
   NSTabViewDelegateProtocol = objcprotocol external name 'NSTabViewDelegate'
+  optional
     function tabView_shouldSelectTabViewItem(tabView: NSTabView; tabViewItem: NSTabViewItem): Boolean; message 'tabView:shouldSelectTabViewItem:';
     procedure tabView_willSelectTabViewItem(tabView: NSTabView; tabViewItem: NSTabViewItem); message 'tabView:willSelectTabViewItem:';
     procedure tabView_didSelectTabViewItem(tabView: NSTabView; tabViewItem: NSTabViewItem); message 'tabView:didSelectTabViewItem:';

packages/cocoaint/src/appkit/NSTableView.inc

@@ -339,6 +339,7 @@ var
   
 { NSTableViewDelegate Protocol }
   NSTableViewDelegateProtocol = objcprotocol external name 'NSTableViewDelegate'
+  optional
     procedure tableView_willDisplayCell_forTableColumn_row(tableView: NSTableView; cell: id; tableColumn: NSTableColumn; row: NSInteger); message 'tableView:willDisplayCell:forTableColumn:row:';
     function tableView_shouldEditTableColumn_row(tableView: NSTableView; tableColumn: NSTableColumn; row: NSInteger): Boolean; message 'tableView:shouldEditTableColumn:row:';
     function selectionShouldChangeInTableView(tableView: NSTableView): Boolean; message 'selectionShouldChangeInTableView:';
@@ -367,6 +368,7 @@ var
   
 { NSTableViewDataSource Protocol }
   NSTableViewDataSourceProtocol = objcprotocol external name 'NSTableViewDataSource'
+  optional
     function numberOfRowsInTableView(tableView: NSTableView): NSInteger; message 'numberOfRowsInTableView:';
     function tableView_objectValueForTableColumn_row(tableView: NSTableView; tableColumn: NSTableColumn; row: NSInteger): id; message 'tableView:objectValueForTableColumn:row:';
     procedure tableView_setObjectValue_forTableColumn_row(tableView: NSTableView; object_: id; tableColumn: NSTableColumn; row: NSInteger); message 'tableView:setObjectValue:forTableColumn:row:';

packages/cocoaint/src/appkit/NSText.inc

@@ -185,6 +185,7 @@ var
   
 { NSTextDelegate Protocol }
   NSTextDelegateProtocol = objcprotocol external name 'NSTextDelegate'
+  optional
     function textShouldBeginEditing(textObject: NSText): Boolean; message 'textShouldBeginEditing:';
     function textShouldEndEditing(textObject: NSText): Boolean; message 'textShouldEndEditing:';
     procedure textDidBeginEditing(notification: NSNotification); message 'textDidBeginEditing:';

packages/cocoaint/src/appkit/NSTextInputClient.inc

@@ -38,6 +38,7 @@
   
 { NSTextInputClient Protocol }
   NSTextInputClientProtocol = objcprotocol external name 'NSTextInputClient'
+  required
     procedure insertText_replacementRange(aString: id; replacementRange: NSRange); message 'insertText:replacementRange:';
     procedure setMarkedText_selectedRange_replacementRange(aString: id; selectedRange: NSRange; replacementRange: NSRange); message 'setMarkedText:selectedRange:replacementRange:';
     procedure unmarkText; message 'unmarkText';
@@ -48,6 +49,7 @@
     function validAttributesForMarkedText: NSArray; message 'validAttributesForMarkedText';
     function firstRectForCharacterRange_actualRange(aRange: NSRange; actualRange: NSRangePointer): NSRect; message 'firstRectForCharacterRange:actualRange:';
     function characterIndexForPoint(aPoint: NSPoint): NSUInteger; message 'characterIndexForPoint:';
+  optional
     function attributedString: NSAttributedString; message 'attributedString';
     function fractionOfDistanceThroughGlyphForPoint(aPoint: NSPoint): CGFloat; message 'fractionOfDistanceThroughGlyphForPoint:';
     function baselineDeltaForCharacterAtIndex(anIndex: NSUInteger): CGFloat; message 'baselineDeltaForCharacterAtIndex:';

packages/cocoaint/src/appkit/NSTextStorage.inc

@@ -95,6 +95,7 @@ var
   
 { NSTextStorageDelegate Protocol }
   NSTextStorageDelegateProtocol = objcprotocol external name 'NSTextStorageDelegate'
+  optional
     procedure textStorageWillProcessEditing(notification: NSNotification); message 'textStorageWillProcessEditing:';
     procedure textStorageDidProcessEditing(notification: NSNotification); message 'textStorageDidProcessEditing:';
   end;

packages/cocoaint/src/appkit/NSTextView.inc

@@ -314,6 +314,7 @@ var
   
 { NSTextViewDelegate Protocol }
   NSTextViewDelegateProtocol = objcprotocol external name 'NSTextViewDelegate'
+  optional
     function textView_clickedOnLink_atIndex(textView: NSTextView; link: id; charIndex: NSUInteger): Boolean; message 'textView:clickedOnLink:atIndex:';
     procedure textView_clickedOnCell_inRect_atIndex(textView: NSTextView; cell: NSTextAttachmentCellProtocol; cellFrame: NSRect; charIndex: NSUInteger); message 'textView:clickedOnCell:inRect:atIndex:';
     procedure textView_doubleClickedOnCell_inRect_atIndex(textView: NSTextView; cell: NSTextAttachmentCellProtocol; cellFrame: NSRect; charIndex: NSUInteger); message 'textView:doubleClickedOnCell:inRect:atIndex:';

packages/cocoaint/src/appkit/NSTokenField.inc

@@ -64,6 +64,7 @@
   
 { NSTokenFieldDelegate Protocol }
   NSTokenFieldDelegateProtocol = objcprotocol external name 'NSTokenFieldDelegate'
+  optional
     function tokenField_completionsForSubstring_indexOfToken_indexOfSelectedItem(tokenField: NSTokenField; substring: NSString; tokenIndex: NSInteger; selectedIndex: NSIntegerPtr): NSArray; message 'tokenField:completionsForSubstring:indexOfToken:indexOfSelectedItem:';
     function tokenField_shouldAddObjects_atIndex(tokenField: NSTokenField; tokens: NSArray; index: NSUInteger): NSArray; message 'tokenField:shouldAddObjects:atIndex:';
     function tokenField_displayStringForRepresentedObject(tokenField: NSTokenField; representedObject: id): NSString; message 'tokenField:displayStringForRepresentedObject:';

packages/cocoaint/src/appkit/NSTokenFieldCell.inc

@@ -103,6 +103,7 @@ type
   
 { NSTokenFieldCellDelegate Protocol }
   NSTokenFieldCellDelegateProtocol = objcprotocol external name 'NSTokenFieldCellDelegate'
+  optional
     function tokenFieldCell_completionsForSubstring_indexOfToken_indexOfSelectedItem(tokenFieldCell: NSTokenFieldCell; substring: NSString; tokenIndex: NSInteger; selectedIndex: NSIntegerPtr): NSArray; message 'tokenFieldCell:completionsForSubstring:indexOfToken:indexOfSelectedItem:';
     function tokenFieldCell_shouldAddObjects_atIndex(tokenFieldCell: NSTokenFieldCell; tokens: NSArray; index: NSUInteger): NSArray; message 'tokenFieldCell:shouldAddObjects:atIndex:';
     function tokenFieldCell_displayStringForRepresentedObject(tokenFieldCell: NSTokenFieldCell; representedObject: id): NSString; message 'tokenFieldCell:displayStringForRepresentedObject:';

packages/cocoaint/src/appkit/NSToolbar.inc

@@ -154,6 +154,7 @@ var
   
 { NSToolbarDelegate Protocol }
   NSToolbarDelegateProtocol = objcprotocol external name 'NSToolbarDelegate'
+  optional
     function toolbar_itemForItemIdentifier_willBeInsertedIntoToolbar(toolbar: NSToolbar; itemIdentifier: NSString; flag: Boolean): NSToolbarItem; message 'toolbar:itemForItemIdentifier:willBeInsertedIntoToolbar:';
     function toolbarDefaultItemIdentifiers(toolbar: NSToolbar): NSArray; message 'toolbarDefaultItemIdentifiers:';
     function toolbarAllowedItemIdentifiers(toolbar: NSToolbar): NSArray; message 'toolbarAllowedItemIdentifiers:';

packages/cocoaint/src/appkit/NSUserInterfaceItemSearching.inc

@@ -52,7 +52,9 @@
   
 { NSUserInterfaceItemSearching Protocol }
   NSUserInterfaceItemSearchingProtocol = objcprotocol external name 'NSUserInterfaceItemSearching'
+  required
     function localizedTitlesForItem(item: id): NSArray; message 'localizedTitlesForItem:';
+  optional
     procedure performActionForItem(item: id); message 'performActionForItem:';
     procedure showAllHelpTopicsForSearchString(searchString: NSString); message 'showAllHelpTopicsForSearchString:';
   end;

packages/cocoaint/src/appkit/NSWindow.inc

@@ -512,6 +512,7 @@ var
   
 { NSWindowDelegate Protocol }
   NSWindowDelegateProtocol = objcprotocol external name 'NSWindowDelegate'
+  optional
     function windowShouldClose(sender: id): Boolean; message 'windowShouldClose:';
     function windowWillReturnFieldEditor_toObject(sender: NSWindow; client: id): id; message 'windowWillReturnFieldEditor:toObject:';
     function windowWillResize_toSize(sender: NSWindow; frameSize: NSSize): NSSize; message 'windowWillResize:toSize:';

packages/cocoaint/src/foundation/NSCache.inc

@@ -73,6 +73,7 @@
   
 { NSCacheDelegate Protocol }
   NSCacheDelegateProtocol = objcprotocol external name 'NSCacheDelegate'
+  optional
     procedure cache_willEvictObject(cache: NSCache; obj: id); message 'cache:willEvictObject:';
   end;
 {$endif}

packages/cocoaint/src/foundation/NSConnection.inc

@@ -149,6 +149,7 @@ var
   
 { NSConnectionDelegate Protocol }
   NSConnectionDelegateProtocol = objcprotocol external name 'NSConnectionDelegate'
+  optional
     function makeNewConnection_sender(conn: NSConnection; ancestor: NSConnection): Boolean; message 'makeNewConnection:sender:';
     function connection_shouldMakeNewConnection(ancestor: NSConnection; conn: NSConnection): Boolean; message 'connection:shouldMakeNewConnection:';
     function authenticationDataForComponents(components: NSArray): NSData; message 'authenticationDataForComponents:';

packages/cocoaint/src/foundation/NSKeyedArchiver.inc

@@ -152,6 +152,7 @@ var
   
 { NSKeyedArchiverDelegate Protocol }
   NSKeyedArchiverDelegateProtocol = objcprotocol external name 'NSKeyedArchiverDelegate'
+  optional
     function archiver_willEncodeObject(archiver: NSKeyedArchiver; object_: id): id; message 'archiver:willEncodeObject:';
     procedure archiver_didEncodeObject(archiver: NSKeyedArchiver; object_: id); message 'archiver:didEncodeObject:';
     procedure archiver_willReplaceObject_withObject(archiver: NSKeyedArchiver; object_: id; newObject: id); message 'archiver:willReplaceObject:withObject:';
@@ -161,6 +162,7 @@ var
   
 { NSKeyedUnarchiverDelegate Protocol }
   NSKeyedUnarchiverDelegateProtocol = objcprotocol external name 'NSKeyedUnarchiverDelegate'
+  optional
     function unarchiver_cannotDecodeObjectOfClassName_originalClasses(unarchiver: NSKeyedUnarchiver; name: NSString; classNames: NSArray): Pobjc_class; message 'unarchiver:cannotDecodeObjectOfClassName:originalClasses:';
     function unarchiver_didDecodeObject(unarchiver: NSKeyedUnarchiver; object_: id): id; message 'unarchiver:didDecodeObject:';
     procedure unarchiver_willReplaceObject_withObject(unarchiver: NSKeyedUnarchiver; object_: id; newObject: id); message 'unarchiver:willReplaceObject:withObject:';

packages/cocoaint/src/foundation/NSMetadata.inc

@@ -150,6 +150,7 @@ var
   
 { NSMetadataQueryDelegate Protocol }
   NSMetadataQueryDelegateProtocol = objcprotocol external name 'NSMetadataQueryDelegate'
+  optional
     function metadataQuery_replacementObjectForResultObject(query: NSMetadataQuery; result_: NSMetadataItem): id; message 'metadataQuery:replacementObjectForResultObject:';
     function metadataQuery_replacementValueForAttribute_value(query: NSMetadataQuery; attrName: NSString; attrValue: id): id; message 'metadataQuery:replacementValueForAttribute:value:';
   end;

packages/cocoaint/src/foundation/NSNetServices.inc

@@ -143,6 +143,7 @@ var
   
 { NSNetServiceDelegate Protocol }
   NSNetServiceDelegateProtocol = objcprotocol external name 'NSNetServiceDelegate'
+  optional
     procedure netServiceWillPublish(sender: NSNetService); message 'netServiceWillPublish:';
     procedure netServiceDidPublish(sender: NSNetService); message 'netServiceDidPublish:';
     procedure netService_didNotPublish(sender: NSNetService; errorDict: NSDictionary); message 'netService:didNotPublish:';
@@ -155,6 +156,7 @@ var
   
 { NSNetServiceBrowserDelegate Protocol }
   NSNetServiceBrowserDelegateProtocol = objcprotocol external name 'NSNetServiceBrowserDelegate'
+  optional
     procedure netServiceBrowserWillSearch(aNetServiceBrowser: NSNetServiceBrowser); message 'netServiceBrowserWillSearch:';
     procedure netServiceBrowserDidStopSearch(aNetServiceBrowser: NSNetServiceBrowser); message 'netServiceBrowserDidStopSearch:';
     procedure netServiceBrowser_didNotSearch(aNetServiceBrowser: NSNetServiceBrowser; errorDict: NSDictionary); message 'netServiceBrowser:didNotSearch:';

packages/cocoaint/src/foundation/NSObject.inc

@@ -173,6 +173,7 @@ function NSExtraRefCount(object_: id): NSUInteger; cdecl; external;
   
 { NSDiscardableContent Protocol }
   NSDiscardableContentProtocol = objcprotocol external name 'NSDiscardableContent'
+  required
     function beginContentAccess: Boolean; message 'beginContentAccess';
     procedure endContentAccess; message 'endContentAccess';
     procedure discardContentIfPossible; message 'discardContentIfPossible';

packages/cocoaint/src/foundation/NSPort.inc

@@ -155,11 +155,13 @@ var
   
 { NSPortDelegate Protocol }
   NSPortDelegateProtocol = objcprotocol external name 'NSPortDelegate'
+  optional
     procedure handlePortMessage(message: NSPortMessage); message 'handlePortMessage:';
   end;
   
 { NSMachPortDelegate Protocol }
   NSMachPortDelegateProtocol = objcprotocol external name 'NSMachPortDelegate'
+  optional
     procedure handleMachMessage(msg: Pointer); message 'handleMachMessage:';
   end;
 {$endif}

packages/cocoaint/src/foundation/NSSpellServer.inc

@@ -83,6 +83,7 @@ var
   
 { NSSpellServerDelegate Protocol }
   NSSpellServerDelegateProtocol = objcprotocol external name 'NSSpellServerDelegate'
+  optional
     function spellServer_findMisspelledWordInString_language_wordCount_countOnly(sender: NSSpellServer; stringToCheck: NSString; language: NSString; wordCount: NSIntegerPtr; countOnly: Boolean): NSRange; message 'spellServer:findMisspelledWordInString:language:wordCount:countOnly:';
     function spellServer_suggestGuessesForWord_inLanguage(sender: NSSpellServer; word: NSString; language: NSString): NSArray; message 'spellServer:suggestGuessesForWord:inLanguage:';
     procedure spellServer_didLearnWord_inLanguage(sender: NSSpellServer; word: NSString; language: NSString); message 'spellServer:didLearnWord:inLanguage:';

packages/cocoaint/src/foundation/NSStream.inc

@@ -162,6 +162,7 @@ var
   
 { NSStreamDelegate Protocol }
   NSStreamDelegateProtocol = objcprotocol external name 'NSStreamDelegate'
+  optional
     procedure stream_handleEvent(aStream: NSStream; eventCode: NSStreamEvent); message 'stream:handleEvent:';
   end;
 {$endif}

packages/cocoaint/src/foundation/NSXMLParser.inc

@@ -187,6 +187,7 @@ var
   
 { NSXMLParserDelegate Protocol }
   NSXMLParserDelegateProtocol = objcprotocol external name 'NSXMLParserDelegate'
+  optional
     procedure parserDidStartDocument(parser: NSXMLParser); message 'parserDidStartDocument:';
     procedure parserDidEndDocument(parser: NSXMLParser); message 'parserDidEndDocument:';
     procedure parser_foundNotationDeclarationWithName_publicID_systemID(parser: NSXMLParser; name: NSString; publicID: NSString; systemID: NSString); message 'parser:foundNotationDeclarationWithName:publicID:systemID:';