diff --git a/UIKit/UIActionSheetDelegate.ml b/UIKit/UIActionSheetDelegate.ml
new file mode 100644
index 00000000..be0e0dad
--- /dev/null
+++ b/UIKit/UIActionSheetDelegate.ml
@@ -0,0 +1,15 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let actionSheet'willDismissWithButtonIndex' imp = Define.method_spec ~cmd:(selector "actionSheet:willDismissWithButtonIndex:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let actionSheet'didDismissWithButtonIndex' imp = Define.method_spec ~cmd:(selector "actionSheet:didDismissWithButtonIndex:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let actionSheet'clickedButtonAtIndex' imp = Define.method_spec ~cmd:(selector "actionSheet:clickedButtonAtIndex:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let willPresentActionSheet' imp = Define.method_spec ~cmd:(selector "willPresentActionSheet:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let didPresentActionSheet' imp = Define.method_spec ~cmd:(selector "didPresentActionSheet:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let actionSheetCancel' imp = Define.method_spec ~cmd:(selector "actionSheetCancel:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
diff --git a/UIKit/UIActionSheetPresentationControllerDelegate.ml b/UIKit/UIActionSheetPresentationControllerDelegate.ml
new file mode 100644
index 00000000..e6f3e3e6
--- /dev/null
+++ b/UIKit/UIActionSheetPresentationControllerDelegate.ml
@@ -0,0 +1,10 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let actionSheetPresentationControllerDidDismissActionSheet' imp = Define.method_spec ~cmd:(selector "actionSheetPresentationControllerDidDismissActionSheet:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
diff --git a/UIKit/UIApplicationDelegate.ml b/UIKit/UIApplicationDelegate.ml
new file mode 100644
index 00000000..4e3b8b7b
--- /dev/null
+++ b/UIKit/UIApplicationDelegate.ml
@@ -0,0 +1,62 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let applicationDidFinishLaunching' imp = Define.method_spec ~cmd:(selector "applicationDidFinishLaunching:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let applicationDidBecomeActive' imp = Define.method_spec ~cmd:(selector "applicationDidBecomeActive:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let applicationWillResignActive' imp = Define.method_spec ~cmd:(selector "applicationWillResignActive:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let applicationWillTerminate' imp = Define.method_spec ~cmd:(selector "applicationWillTerminate:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let applicationProtectedDataWillBecomeUnavailable' imp = Define.method_spec ~cmd:(selector "applicationProtectedDataWillBecomeUnavailable:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let applicationProtectedDataDidBecomeAvailable' imp = Define.method_spec ~cmd:(selector "applicationProtectedDataDidBecomeAvailable:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let application'didRegisterForRemoteNotificationsWithDeviceToken' imp = Define.method_spec ~cmd:(selector "application:didRegisterForRemoteNotificationsWithDeviceToken:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'didFailToRegisterForRemoteNotificationsWithError' imp = Define.method_spec ~cmd:(selector "application:didFailToRegisterForRemoteNotificationsWithError:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'didReceiveRemoteNotification' imp = Define.method_spec ~cmd:(selector "application:didReceiveRemoteNotification:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'userDidAcceptCloudKitShareWithMetadata' imp = Define.method_spec ~cmd:(selector "application:userDidAcceptCloudKitShareWithMetadata:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'handlerForIntent' imp = Define.method_spec ~cmd:(selector "application:handlerForIntent:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let application'didUpdateUserActivity' imp = Define.method_spec ~cmd:(selector "application:didUpdateUserActivity:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'continueUserActivity'restorationHandler' imp = Define.method_spec ~cmd:(selector "application:continueUserActivity:restorationHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning (bool)) ~enc:"c40@0:8@16@24@?32" ~imp
+let application'didFailToContinueUserActivityWithType'error' imp = Define.method_spec ~cmd:(selector "application:didFailToContinueUserActivityWithType:error:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let application'willContinueUserActivityWithType' imp = Define.method_spec ~cmd:(selector "application:willContinueUserActivityWithType:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let application'shouldAllowExtensionPointIdentifier' imp = Define.method_spec ~cmd:(selector "application:shouldAllowExtensionPointIdentifier:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let applicationDidReceiveMemoryWarning' imp = Define.method_spec ~cmd:(selector "applicationDidReceiveMemoryWarning:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let applicationWillEnterForeground' imp = Define.method_spec ~cmd:(selector "applicationWillEnterForeground:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let applicationDidEnterBackground' imp = Define.method_spec ~cmd:(selector "applicationDidEnterBackground:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let application'handleOpenURL' imp = Define.method_spec ~cmd:(selector "application:handleOpenURL:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let application'openURL'sourceApplication'annotation' imp = Define.method_spec ~cmd:(selector "application:openURL:sourceApplication:annotation:") ~typ:(id @-> id @-> id @-> id @-> returning (bool)) ~enc:"c48@0:8@16@24@32@40" ~imp
+let application'openURL'options' imp = Define.method_spec ~cmd:(selector "application:openURL:options:") ~typ:(id @-> id @-> id @-> returning (bool)) ~enc:"c40@0:8@16@24@32" ~imp
+let applicationSignificantTimeChange' imp = Define.method_spec ~cmd:(selector "applicationSignificantTimeChange:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let application'willChangeStatusBarOrientation'duration' imp = Define.method_spec ~cmd:(selector "application:willChangeStatusBarOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) ~enc:"v40@0:8@16q24d32" ~imp
+let application'didChangeStatusBarOrientation' imp = Define.method_spec ~cmd:(selector "application:didChangeStatusBarOrientation:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let application'willChangeStatusBarFrame' imp = Define.method_spec ~cmd:(selector "application:willChangeStatusBarFrame:") ~typ:(id @-> CGRect.t @-> returning (void)) ~enc:"v56@0:8@16{CGRect={CGPoint=dd}{CGSize=dd}}24" ~imp
+let application'didChangeStatusBarFrame' imp = Define.method_spec ~cmd:(selector "application:didChangeStatusBarFrame:") ~typ:(id @-> CGRect.t @-> returning (void)) ~enc:"v56@0:8@16{CGRect={CGPoint=dd}{CGSize=dd}}24" ~imp
+let application'handleWatchKitExtensionRequest'reply' imp = Define.method_spec ~cmd:(selector "application:handleWatchKitExtensionRequest:reply:") ~typ:(id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v40@0:8@16@24@?32" ~imp
+let application'shouldSaveApplicationState' imp = Define.method_spec ~cmd:(selector "application:shouldSaveApplicationState:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let application'shouldRestoreApplicationState' imp = Define.method_spec ~cmd:(selector "application:shouldRestoreApplicationState:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let application'shouldSaveSecureApplicationState' imp = Define.method_spec ~cmd:(selector "application:shouldSaveSecureApplicationState:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let application'shouldRestoreSecureApplicationState' imp = Define.method_spec ~cmd:(selector "application:shouldRestoreSecureApplicationState:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let application'supportedInterfaceOrientationsForWindow' imp = Define.method_spec ~cmd:(selector "application:supportedInterfaceOrientationsForWindow:") ~typ:(id @-> id @-> returning (ullong)) ~enc:"Q32@0:8@16@24" ~imp
+let application'configurationForConnectingSceneSession'options' imp = Define.method_spec ~cmd:(selector "application:configurationForConnectingSceneSession:options:") ~typ:(id @-> id @-> id @-> returning (id)) ~enc:"@40@0:8@16@24@32" ~imp
+let application'didDiscardSceneSessions' imp = Define.method_spec ~cmd:(selector "application:didDiscardSceneSessions:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'willFinishLaunchingWithOptions' imp = Define.method_spec ~cmd:(selector "application:willFinishLaunchingWithOptions:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let application'didFinishLaunchingWithOptions' imp = Define.method_spec ~cmd:(selector "application:didFinishLaunchingWithOptions:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let applicationShouldAutomaticallyLocalizeKeyCommands' imp = Define.method_spec ~cmd:(selector "applicationShouldAutomaticallyLocalizeKeyCommands:") ~typ:(id @-> returning (bool)) ~enc:"c24@0:8@16" ~imp
+let application'didReceiveRemoteNotification'fetchCompletionHandler' imp = Define.method_spec ~cmd:(selector "application:didReceiveRemoteNotification:fetchCompletionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v40@0:8@16@24@?32" ~imp
+let application'performFetchWithCompletionHandler' imp = Define.method_spec ~cmd:(selector "application:performFetchWithCompletionHandler:") ~typ:(id @-> (ptr void) @-> returning (void)) ~enc:"v32@0:8@16@?24" ~imp
+let application'handleActionWithIdentifier'forRemoteNotification'withResponseInfo'completionHandler' imp = Define.method_spec ~cmd:(selector "application:handleActionWithIdentifier:forRemoteNotification:withResponseInfo:completionHandler:") ~typ:(id @-> id @-> id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v56@0:8@16@24@32@40@?48" ~imp
+let application'handleActionWithIdentifier'forRemoteNotification'completionHandler' imp = Define.method_spec ~cmd:(selector "application:handleActionWithIdentifier:forRemoteNotification:completionHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v48@0:8@16@24@32@?40" ~imp
+let application'handleEventsForBackgroundURLSession'completionHandler' imp = Define.method_spec ~cmd:(selector "application:handleEventsForBackgroundURLSession:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v40@0:8@16@24@?32" ~imp
+let application'didReceiveLocalNotification' imp = Define.method_spec ~cmd:(selector "application:didReceiveLocalNotification:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'handleActionWithIdentifier'forLocalNotification'withResponseInfo'completionHandler' imp = Define.method_spec ~cmd:(selector "application:handleActionWithIdentifier:forLocalNotification:withResponseInfo:completionHandler:") ~typ:(id @-> id @-> id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v56@0:8@16@24@32@40@?48" ~imp
+let application'handleActionWithIdentifier'forLocalNotification'completionHandler' imp = Define.method_spec ~cmd:(selector "application:handleActionWithIdentifier:forLocalNotification:completionHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v48@0:8@16@24@32@?40" ~imp
+let applicationShouldRequestHealthAuthorization' imp = Define.method_spec ~cmd:(selector "applicationShouldRequestHealthAuthorization:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let application'performActionForShortcutItem'completionHandler' imp = Define.method_spec ~cmd:(selector "application:performActionForShortcutItem:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v40@0:8@16@24@?32" ~imp
+let application'didRegisterUserNotificationSettings' imp = Define.method_spec ~cmd:(selector "application:didRegisterUserNotificationSettings:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'willEncodeRestorableStateWithCoder' imp = Define.method_spec ~cmd:(selector "application:willEncodeRestorableStateWithCoder:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'viewControllerWithRestorationIdentifierPath'coder' imp = Define.method_spec ~cmd:(selector "application:viewControllerWithRestorationIdentifierPath:coder:") ~typ:(id @-> id @-> id @-> returning (id)) ~enc:"@40@0:8@16@24@32" ~imp
+let application'didDecodeRestorableStateWithCoder' imp = Define.method_spec ~cmd:(selector "application:didDecodeRestorableStateWithCoder:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let application'handleIntent'completionHandler' imp = Define.method_spec ~cmd:(selector "application:handleIntent:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v40@0:8@16@24@?32" ~imp
diff --git a/UIKit/UICollectionViewDataSource.ml b/UIKit/UICollectionViewDataSource.ml
new file mode 100644
index 00000000..f7958b41
--- /dev/null
+++ b/UIKit/UICollectionViewDataSource.ml
@@ -0,0 +1,15 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let collectionView'viewForSupplementaryElementOfKind'atIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) ~enc:"@40@0:8@16@24@32" ~imp
+let numberOfSectionsInCollectionView' imp = Define.method_spec ~cmd:(selector "numberOfSectionsInCollectionView:") ~typ:(id @-> returning (llong)) ~enc:"q24@0:8@16" ~imp
+let collectionView'canMoveItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:canMoveItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'moveItemAtIndexPath'toIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:moveItemAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let indexTitlesForCollectionView' imp = Define.method_spec ~cmd:(selector "indexTitlesForCollectionView:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let collectionView'indexPathForIndexTitle'atIndex' imp = Define.method_spec ~cmd:(selector "collectionView:indexPathForIndexTitle:atIndex:") ~typ:(id @-> id @-> llong @-> returning (id)) ~enc:"@40@0:8@16@24q32" ~imp
diff --git a/UIKit/UICollectionViewDelegate.ml b/UIKit/UICollectionViewDelegate.ml
new file mode 100644
index 00000000..20a40e24
--- /dev/null
+++ b/UIKit/UICollectionViewDelegate.ml
@@ -0,0 +1,44 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let collectionView'willDisplaySupplementaryView'forElementKind'atIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:willDisplaySupplementaryView:forElementKind:atIndexPath:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) ~enc:"v48@0:8@16@24@32@40" ~imp
+let collectionView'didEndDisplayingSupplementaryView'forElementOfKind'atIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:didEndDisplayingSupplementaryView:forElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) ~enc:"v48@0:8@16@24@32@40" ~imp
+let collectionView'transitionLayoutForOldLayout'newLayout' imp = Define.method_spec ~cmd:(selector "collectionView:transitionLayoutForOldLayout:newLayout:") ~typ:(id @-> id @-> id @-> returning (id)) ~enc:"@40@0:8@16@24@32" ~imp
+let collectionView'shouldHighlightItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:shouldHighlightItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'didHighlightItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:didHighlightItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let collectionView'didUnhighlightItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:didUnhighlightItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let collectionView'shouldShowMenuForItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:shouldShowMenuForItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'canPerformAction'forItemAtIndexPath'withSender' imp = Define.method_spec ~cmd:(selector "collectionView:canPerformAction:forItemAtIndexPath:withSender:") ~typ:(id @-> _SEL @-> id @-> id @-> returning (bool)) ~enc:"c48@0:8@16:24@32@40" ~imp
+let collectionView'performAction'forItemAtIndexPath'withSender' imp = Define.method_spec ~cmd:(selector "collectionView:performAction:forItemAtIndexPath:withSender:") ~typ:(id @-> _SEL @-> id @-> id @-> returning (void)) ~enc:"v48@0:8@16:24@32@40" ~imp
+let collectionView'didSelectItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:didSelectItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let collectionView'canFocusItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:canFocusItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'canEditItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:canEditItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'shouldSelectItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:shouldSelectItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'shouldDeselectItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:shouldDeselectItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'didDeselectItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:didDeselectItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let collectionView'willDisplayCell'forItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:willDisplayCell:forItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let collectionView'didEndDisplayingCell'forItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:didEndDisplayingCell:forItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let collectionView'targetContentOffsetForProposedContentOffset' imp = Define.method_spec ~cmd:(selector "collectionView:targetContentOffsetForProposedContentOffset:") ~typ:(id @-> CGPoint.t @-> returning (CGPoint.t)) ~enc:"{CGPoint=dd}40@0:8@16{CGPoint=dd}24" ~imp
+let collectionView'targetIndexPathForMoveFromItemAtIndexPath'toProposedIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:targetIndexPathForMoveFromItemAtIndexPath:toProposedIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) ~enc:"@40@0:8@16@24@32" ~imp
+let collectionView'targetIndexPathForMoveOfItemFromOriginalIndexPath'atCurrentIndexPath'toProposedIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:targetIndexPathForMoveOfItemFromOriginalIndexPath:atCurrentIndexPath:toProposedIndexPath:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) ~enc:"@48@0:8@16@24@32@40" ~imp
+let indexPathForPreferredFocusedViewInCollectionView' imp = Define.method_spec ~cmd:(selector "indexPathForPreferredFocusedViewInCollectionView:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let collectionView'shouldUpdateFocusInContext' imp = Define.method_spec ~cmd:(selector "collectionView:shouldUpdateFocusInContext:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'didUpdateFocusInContext'withAnimationCoordinator' imp = Define.method_spec ~cmd:(selector "collectionView:didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let collectionView'contextMenuConfigurationForItemAtIndexPath'point' imp = Define.method_spec ~cmd:(selector "collectionView:contextMenuConfigurationForItemAtIndexPath:point:") ~typ:(id @-> id @-> CGPoint.t @-> returning (id)) ~enc:"@48@0:8@16@24{CGPoint=dd}32" ~imp
+let collectionView'previewForHighlightingContextMenuWithConfiguration' imp = Define.method_spec ~cmd:(selector "collectionView:previewForHighlightingContextMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let collectionView'previewForDismissingContextMenuWithConfiguration' imp = Define.method_spec ~cmd:(selector "collectionView:previewForDismissingContextMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let collectionView'willPerformPreviewActionForMenuWithConfiguration'animator' imp = Define.method_spec ~cmd:(selector "collectionView:willPerformPreviewActionForMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let collectionView'willDisplayContextMenuWithConfiguration'animator' imp = Define.method_spec ~cmd:(selector "collectionView:willDisplayContextMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let collectionView'willEndContextMenuInteractionWithConfiguration'animator' imp = Define.method_spec ~cmd:(selector "collectionView:willEndContextMenuInteractionWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let collectionView'sceneActivationConfigurationForItemAtIndexPath'point' imp = Define.method_spec ~cmd:(selector "collectionView:sceneActivationConfigurationForItemAtIndexPath:point:") ~typ:(id @-> id @-> CGPoint.t @-> returning (id)) ~enc:"@48@0:8@16@24{CGPoint=dd}32" ~imp
+let collectionView'selectionFollowsFocusForItemAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:selectionFollowsFocusForItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'shouldSpringLoadItemAtIndexPath'withContext' imp = Define.method_spec ~cmd:(selector "collectionView:shouldSpringLoadItemAtIndexPath:withContext:") ~typ:(id @-> id @-> id @-> returning (bool)) ~enc:"c40@0:8@16@24@32" ~imp
+let collectionView'shouldBeginMultipleSelectionInteractionAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:shouldBeginMultipleSelectionInteractionAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let collectionView'didBeginMultipleSelectionInteractionAtIndexPath' imp = Define.method_spec ~cmd:(selector "collectionView:didBeginMultipleSelectionInteractionAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let collectionViewDidEndMultipleSelectionInteraction' imp = Define.method_spec ~cmd:(selector "collectionViewDidEndMultipleSelectionInteraction:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
diff --git a/UIKit/UIKit.ml b/UIKit/UIKit.ml
index b906e94b..b86b4083 100644
--- a/UIKit/UIKit.ml
+++ b/UIKit/UIKit.ml
@@ -8,6 +8,8 @@ module UIAccelerometerClass = UIAccelerometerClass
 module UIAction = UIAction
 module UIActionClass = UIActionClass
 module UIActionSheet = UIActionSheet
+module UIActionSheetDelegate = UIActionSheetDelegate
+module UIActionSheetPresentationControllerDelegate = UIActionSheetPresentationControllerDelegate
 module UIActivityContinuationManager = UIActivityContinuationManager
 module UIActivityIndicatorView = UIActivityIndicatorView
 module UIActivityIndicatorViewClass = UIActivityIndicatorViewClass
@@ -27,6 +29,7 @@ module UIAnimator = UIAnimator
 module UIAnimatorClass = UIAnimatorClass
 module UIApplication = UIApplication
 module UIApplicationClass = UIApplicationClass
+module UIApplicationDelegate = UIApplicationDelegate
 module UIApplicationSceneSettings = UIApplicationSceneSettings
 module UIApplicationSceneSpecification = UIApplicationSceneSpecification
 module UIApplicationShortcutIcon = UIApplicationShortcutIcon
@@ -98,6 +101,8 @@ module UICollectionViewCellRegistrationClass = UICollectionViewCellRegistrationC
 module UICollectionViewController = UICollectionViewController
 module UICollectionViewData = UICollectionViewData
 module UICollectionViewDataClass = UICollectionViewDataClass
+module UICollectionViewDataSource = UICollectionViewDataSource
+module UICollectionViewDelegate = UICollectionViewDelegate
 module UICollectionViewDiffableDataSource = UICollectionViewDiffableDataSource
 module UICollectionViewDropPlaceholder = UICollectionViewDropPlaceholder
 module UICollectionViewDropProposal = UICollectionViewDropProposal
@@ -429,12 +434,7 @@ module UIKeyboardSquishTransition = UIKeyboardSquishTransition
 module UIKeyboardSuggestedInputMode = UIKeyboardSuggestedInputMode
 module UIKeyboardSyntheticTouch = UIKeyboardSyntheticTouch
 module UIKeyboardSyntheticTouchClass = UIKeyboardSyntheticTouchClass
-module UIKeyboardTaskEntry = UIKeyboardTaskEntry
-module UIKeyboardTaskExecutionContext = UIKeyboardTaskExecutionContext
-module UIKeyboardTaskQueue = UIKeyboardTaskQueue
 module UIKeyboardTouchInfo = UIKeyboardTouchInfo
-module UIKeyboardTransitionSlice = UIKeyboardTransitionSlice
-module UIKeyboardTransitionSliceClass = UIKeyboardTransitionSliceClass
 module UIKeyboardViewController = UIKeyboardViewController
 module UILabel = UILabel
 module UILabelClass = UILabelClass
@@ -521,6 +521,8 @@ module UIPageController = UIPageController
 module UIPageControllerScrollView = UIPageControllerScrollView
 module UIPageViewController = UIPageViewController
 module UIPageViewControllerClass = UIPageViewControllerClass
+module UIPageViewControllerDataSource = UIPageViewControllerDataSource
+module UIPageViewControllerDelegate = UIPageViewControllerDelegate
 module UIPanGestureRecognizer = UIPanGestureRecognizer
 module UIPanGestureRecognizerClass = UIPanGestureRecognizerClass
 module UIPanelBorderView = UIPanelBorderView
@@ -661,6 +663,7 @@ module UISceneAsynchronousRenderingOptions = UISceneAsynchronousRenderingOptions
 module UISceneConfiguration = UISceneConfiguration
 module UISceneConfigurationClass = UISceneConfigurationClass
 module UISceneConnectionOptions = UISceneConnectionOptions
+module UISceneDelegate = UISceneDelegate
 module UISceneHitTestAction = UISceneHitTestAction
 module UISceneHitTestActionResponse = UISceneHitTestActionResponse
 module UISceneLayerPresentationContext = UISceneLayerPresentationContext
@@ -690,6 +693,7 @@ module UIScrollTestParameters = UIScrollTestParameters
 module UIScrollToDismissSupport = UIScrollToDismissSupport
 module UIScrollView = UIScrollView
 module UIScrollViewDelayedTouchesBeganGestureRecognizer = UIScrollViewDelayedTouchesBeganGestureRecognizer
+module UIScrollViewDelegate = UIScrollViewDelegate
 module UIScrollViewDirectionalPressGestureRecognizer = UIScrollViewDirectionalPressGestureRecognizer
 module UIScrollViewPagingSwipeGestureRecognizer = UIScrollViewPagingSwipeGestureRecognizer
 module UIScrollViewPanGestureRecognizer = UIScrollViewPanGestureRecognizer
@@ -697,9 +701,11 @@ module UIScrollViewPinchGestureRecognizer = UIScrollViewPinchGestureRecognizer
 module UIScrollViewScrollAnimation = UIScrollViewScrollAnimation
 module UISearchBar = UISearchBar
 module UISearchBarBackground = UISearchBarBackground
+module UISearchBarDelegate = UISearchBarDelegate
 module UISearchBarTextFieldLabel = UISearchBarTextFieldLabel
 module UISearchContainerViewController = UISearchContainerViewController
 module UISearchController = UISearchController
+module UISearchControllerDelegate = UISearchControllerDelegate
 module UISearchDisplayController = UISearchDisplayController
 module UISearchDisplayControllerContainerView = UISearchDisplayControllerContainerView
 module UISearchField = UISearchField
@@ -738,6 +744,7 @@ module UISpecializedInputMode = UISpecializedInputMode
 module UISplitKeyboardSupport = UISplitKeyboardSupport
 module UISplitViewController = UISplitViewController
 module UISplitViewControllerClass = UISplitViewControllerClass
+module UISplitViewControllerDelegate = UISplitViewControllerDelegate
 module UISplitViewControllerPartitionAdapter = UISplitViewControllerPartitionAdapter
 module UISpringLoadedGestureRecognizer = UISpringLoadedGestureRecognizer
 module UISpringLoadedInteraction = UISpringLoadedInteraction
@@ -811,6 +818,7 @@ module UITabBarButtonLabel = UITabBarButtonLabel
 module UITabBarController = UITabBarController
 module UITabBarControllerClass = UITabBarControllerClass
 module UITabBarCustomizeView = UITabBarCustomizeView
+module UITabBarDelegate = UITabBarDelegate
 module UITabBarItem = UITabBarItem
 module UITabBarItemAppearance = UITabBarItemAppearance
 module UITabBarItemAppearanceClass = UITabBarItemAppearanceClass
@@ -835,6 +843,7 @@ module UITableViewController = UITableViewController
 module UITableViewCountView = UITableViewCountView
 module UITableViewDataSource = UITableViewDataSource
 module UITableViewDataSourceClass = UITableViewDataSourceClass
+module UITableViewDelegate = UITableViewDelegate
 module UITableViewDiffableDataSource = UITableViewDiffableDataSource
 module UITableViewDropPlaceholder = UITableViewDropPlaceholder
 module UITableViewDropProposal = UITableViewDropProposal
@@ -1048,17 +1057,12 @@ module UIWebFormAccessoryClass = UIWebFormAccessoryClass
 module UIWebFormDelegate = UIWebFormDelegate
 module UIWebFormSelectPeripheral = UIWebFormSelectPeripheral
 module UIWebFormSelectPeripheralClass = UIWebFormSelectPeripheralClass
-module UIWebGeolocationPolicyDecider = UIWebGeolocationPolicyDecider
-module UIWebGeolocationPolicyDeciderClass = UIWebGeolocationPolicyDeciderClass
 module UIWebLayer = UIWebLayer
-module UIWebOptGroup = UIWebOptGroup
 module UIWebOverflowContentView = UIWebOverflowContentView
 module UIWebOverflowScrollInfo = UIWebOverflowScrollInfo
 module UIWebOverflowScrollListener = UIWebOverflowScrollListener
 module UIWebOverflowScrollView = UIWebOverflowScrollView
 module UIWebOverflowScrollViewInfo = UIWebOverflowScrollViewInfo
-module UIWebPDFLabelView = UIWebPDFLabelView
-module UIWebPDFLinkAction = UIWebPDFLinkAction
 module UIWebPDFSearchController = UIWebPDFSearchController
 module UIWebPDFSearchOperation = UIWebPDFSearchOperation
 module UIWebPDFSearchResult = UIWebPDFSearchResult
@@ -1091,13 +1095,8 @@ module UIWindow = UIWindow
 module UIWindowClass = UIWindowClass
 module UIWindowController = UIWindowController
 module UIWindowControllerClass = UIWindowControllerClass
+module UIWindowDelegate = UIWindowDelegate
 module UIWindowLayer = UIWindowLayer
 module UIWindowScene = UIWindowScene
-module UIWindowSceneActivationAction = UIWindowSceneActivationAction
-module UIWindowSceneActivationActionClass = UIWindowSceneActivationActionClass
-module UIWindowSceneActivationConfiguration = UIWindowSceneActivationConfiguration
-module UIWindowSceneActivationInteraction = UIWindowSceneActivationInteraction
-module UIWindowSceneActivationRequestOptions = UIWindowSceneActivationRequestOptions
 module UIWindowSceneClass = UIWindowSceneClass
-module UIWindowSceneDestructionRequestOptions = UIWindowSceneDestructionRequestOptions
-module UIWindowSceneSpecification = UIWindowSceneSpecification
+module UIWindowSceneDelegate = UIWindowSceneDelegate
diff --git a/UIKit/UIPageViewControllerDataSource.ml b/UIKit/UIPageViewControllerDataSource.ml
new file mode 100644
index 00000000..5a1fa32e
--- /dev/null
+++ b/UIKit/UIPageViewControllerDataSource.ml
@@ -0,0 +1,11 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let presentationCountForPageViewController' imp = Define.method_spec ~cmd:(selector "presentationCountForPageViewController:") ~typ:(id @-> returning (llong)) ~enc:"q24@0:8@16" ~imp
+let presentationIndexForPageViewController' imp = Define.method_spec ~cmd:(selector "presentationIndexForPageViewController:") ~typ:(id @-> returning (llong)) ~enc:"q24@0:8@16" ~imp
diff --git a/UIKit/UIPageViewControllerDelegate.ml b/UIKit/UIPageViewControllerDelegate.ml
new file mode 100644
index 00000000..0460b7a6
--- /dev/null
+++ b/UIKit/UIPageViewControllerDelegate.ml
@@ -0,0 +1,14 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let pageViewController'willTransitionToViewControllers' imp = Define.method_spec ~cmd:(selector "pageViewController:willTransitionToViewControllers:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let pageViewController'didFinishAnimating'previousViewControllers'transitionCompleted' imp = Define.method_spec ~cmd:(selector "pageViewController:didFinishAnimating:previousViewControllers:transitionCompleted:") ~typ:(id @-> bool @-> id @-> bool @-> returning (void)) ~enc:"v40@0:8@16c24@28c36" ~imp
+let pageViewController'spineLocationForInterfaceOrientation' imp = Define.method_spec ~cmd:(selector "pageViewController:spineLocationForInterfaceOrientation:") ~typ:(id @-> llong @-> returning (llong)) ~enc:"q32@0:8@16q24" ~imp
+let pageViewControllerSupportedInterfaceOrientations' imp = Define.method_spec ~cmd:(selector "pageViewControllerSupportedInterfaceOrientations:") ~typ:(id @-> returning (ullong)) ~enc:"Q24@0:8@16" ~imp
+let pageViewControllerPreferredInterfaceOrientationForPresentation' imp = Define.method_spec ~cmd:(selector "pageViewControllerPreferredInterfaceOrientationForPresentation:") ~typ:(id @-> returning (llong)) ~enc:"q24@0:8@16" ~imp
diff --git a/UIKit/UISceneDelegate.ml b/UIKit/UISceneDelegate.ml
new file mode 100644
index 00000000..4926ba69
--- /dev/null
+++ b/UIKit/UISceneDelegate.ml
@@ -0,0 +1,22 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let scene'willConnectToSession'options' imp = Define.method_spec ~cmd:(selector "scene:willConnectToSession:options:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let sceneDidDisconnect' imp = Define.method_spec ~cmd:(selector "sceneDidDisconnect:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let sceneDidBecomeActive' imp = Define.method_spec ~cmd:(selector "sceneDidBecomeActive:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let sceneWillResignActive' imp = Define.method_spec ~cmd:(selector "sceneWillResignActive:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let sceneWillEnterForeground' imp = Define.method_spec ~cmd:(selector "sceneWillEnterForeground:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let sceneDidEnterBackground' imp = Define.method_spec ~cmd:(selector "sceneDidEnterBackground:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let scene'openURLContexts' imp = Define.method_spec ~cmd:(selector "scene:openURLContexts:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let stateRestorationActivityForScene' imp = Define.method_spec ~cmd:(selector "stateRestorationActivityForScene:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let scene'restoreInteractionStateWithUserActivity' imp = Define.method_spec ~cmd:(selector "scene:restoreInteractionStateWithUserActivity:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let scene'willContinueUserActivityWithType' imp = Define.method_spec ~cmd:(selector "scene:willContinueUserActivityWithType:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let scene'continueUserActivity' imp = Define.method_spec ~cmd:(selector "scene:continueUserActivity:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let scene'didFailToContinueUserActivityWithType'error' imp = Define.method_spec ~cmd:(selector "scene:didFailToContinueUserActivityWithType:error:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let scene'didUpdateUserActivity' imp = Define.method_spec ~cmd:(selector "scene:didUpdateUserActivity:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
diff --git a/UIKit/UIScrollViewDelegate.ml b/UIKit/UIScrollViewDelegate.ml
new file mode 100644
index 00000000..df7c915a
--- /dev/null
+++ b/UIKit/UIScrollViewDelegate.ml
@@ -0,0 +1,23 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let scrollViewDidScroll' imp = Define.method_spec ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let scrollViewDidZoom' imp = Define.method_spec ~cmd:(selector "scrollViewDidZoom:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let scrollViewWillBeginDragging' imp = Define.method_spec ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let scrollViewWillEndDragging'withVelocity'targetContentOffset' imp = Define.method_spec ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> (ptr CGPoint.t) @-> returning (void)) ~enc:"v48@0:8@16{CGPoint=dd}24N^{CGPoint=dd}40" ~imp
+let scrollViewDidEndDragging'willDecelerate' imp = Define.method_spec ~cmd:(selector "scrollViewDidEndDragging:willDecelerate:") ~typ:(id @-> bool @-> returning (void)) ~enc:"v28@0:8@16c24" ~imp
+let scrollViewWillBeginDecelerating' imp = Define.method_spec ~cmd:(selector "scrollViewWillBeginDecelerating:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let scrollViewDidEndDecelerating' imp = Define.method_spec ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let scrollViewDidEndScrollingAnimation' imp = Define.method_spec ~cmd:(selector "scrollViewDidEndScrollingAnimation:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let viewForZoomingInScrollView' imp = Define.method_spec ~cmd:(selector "viewForZoomingInScrollView:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let scrollViewWillBeginZooming'withView' imp = Define.method_spec ~cmd:(selector "scrollViewWillBeginZooming:withView:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let scrollViewDidEndZooming'withView'atScale' imp = Define.method_spec ~cmd:(selector "scrollViewDidEndZooming:withView:atScale:") ~typ:(id @-> id @-> double @-> returning (void)) ~enc:"v40@0:8@16@24d32" ~imp
+let scrollViewShouldScrollToTop' imp = Define.method_spec ~cmd:(selector "scrollViewShouldScrollToTop:") ~typ:(id @-> returning (bool)) ~enc:"c24@0:8@16" ~imp
+let scrollViewDidScrollToTop' imp = Define.method_spec ~cmd:(selector "scrollViewDidScrollToTop:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let scrollViewDidChangeAdjustedContentInset' imp = Define.method_spec ~cmd:(selector "scrollViewDidChangeAdjustedContentInset:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
diff --git a/UIKit/UISearchBarDelegate.ml b/UIKit/UISearchBarDelegate.ml
new file mode 100644
index 00000000..caeaeb12
--- /dev/null
+++ b/UIKit/UISearchBarDelegate.ml
@@ -0,0 +1,20 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let searchBar'textDidChange' imp = Define.method_spec ~cmd:(selector "searchBar:textDidChange:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let searchBarShouldBeginEditing' imp = Define.method_spec ~cmd:(selector "searchBarShouldBeginEditing:") ~typ:(id @-> returning (bool)) ~enc:"c24@0:8@16" ~imp
+let searchBarShouldEndEditing' imp = Define.method_spec ~cmd:(selector "searchBarShouldEndEditing:") ~typ:(id @-> returning (bool)) ~enc:"c24@0:8@16" ~imp
+let searchBar'shouldChangeTextInRange'replacementText' imp = Define.method_spec ~cmd:(selector "searchBar:shouldChangeTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) ~enc:"c48@0:8@16{_NSRange=QQ}24@40" ~imp
+let searchBar'selectedScopeButtonIndexDidChange' imp = Define.method_spec ~cmd:(selector "searchBar:selectedScopeButtonIndexDidChange:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let searchBarCancelButtonClicked' imp = Define.method_spec ~cmd:(selector "searchBarCancelButtonClicked:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let searchBarBookmarkButtonClicked' imp = Define.method_spec ~cmd:(selector "searchBarBookmarkButtonClicked:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let searchBarResultsListButtonClicked' imp = Define.method_spec ~cmd:(selector "searchBarResultsListButtonClicked:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let searchBarTextDidBeginEditing' imp = Define.method_spec ~cmd:(selector "searchBarTextDidBeginEditing:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let searchBarTextDidEndEditing' imp = Define.method_spec ~cmd:(selector "searchBarTextDidEndEditing:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let searchBarSearchButtonClicked' imp = Define.method_spec ~cmd:(selector "searchBarSearchButtonClicked:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
diff --git a/UIKit/UISearchControllerDelegate.ml b/UIKit/UISearchControllerDelegate.ml
new file mode 100644
index 00000000..2da16d99
--- /dev/null
+++ b/UIKit/UISearchControllerDelegate.ml
@@ -0,0 +1,14 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let willPresentSearchController' imp = Define.method_spec ~cmd:(selector "willPresentSearchController:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let didPresentSearchController' imp = Define.method_spec ~cmd:(selector "didPresentSearchController:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let willDismissSearchController' imp = Define.method_spec ~cmd:(selector "willDismissSearchController:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let didDismissSearchController' imp = Define.method_spec ~cmd:(selector "didDismissSearchController:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let presentSearchController' imp = Define.method_spec ~cmd:(selector "presentSearchController:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
diff --git a/UIKit/UISplitViewControllerDelegate.ml b/UIKit/UISplitViewControllerDelegate.ml
new file mode 100644
index 00000000..1bacae14
--- /dev/null
+++ b/UIKit/UISplitViewControllerDelegate.ml
@@ -0,0 +1,31 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let splitViewController'shouldHideViewController'inOrientation' imp = Define.method_spec ~cmd:(selector "splitViewController:shouldHideViewController:inOrientation:") ~typ:(id @-> id @-> llong @-> returning (bool)) ~enc:"c40@0:8@16@24q32" ~imp
+let splitViewController'willShowViewController'invalidatingBarButtonItem' imp = Define.method_spec ~cmd:(selector "splitViewController:willShowViewController:invalidatingBarButtonItem:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let splitViewController'willHideViewController'withBarButtonItem'forPopoverController' imp = Define.method_spec ~cmd:(selector "splitViewController:willHideViewController:withBarButtonItem:forPopoverController:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) ~enc:"v48@0:8@16@24@32@40" ~imp
+let splitViewController'popoverController'willPresentViewController' imp = Define.method_spec ~cmd:(selector "splitViewController:popoverController:willPresentViewController:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let splitViewController'showViewController'sender' imp = Define.method_spec ~cmd:(selector "splitViewController:showViewController:sender:") ~typ:(id @-> id @-> id @-> returning (bool)) ~enc:"c40@0:8@16@24@32" ~imp
+let splitViewController'showDetailViewController'sender' imp = Define.method_spec ~cmd:(selector "splitViewController:showDetailViewController:sender:") ~typ:(id @-> id @-> id @-> returning (bool)) ~enc:"c40@0:8@16@24@32" ~imp
+let splitViewController'collapseSecondaryViewController'ontoPrimaryViewController' imp = Define.method_spec ~cmd:(selector "splitViewController:collapseSecondaryViewController:ontoPrimaryViewController:") ~typ:(id @-> id @-> id @-> returning (bool)) ~enc:"c40@0:8@16@24@32" ~imp
+let splitViewController'separateSecondaryViewControllerFromPrimaryViewController' imp = Define.method_spec ~cmd:(selector "splitViewController:separateSecondaryViewControllerFromPrimaryViewController:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let primaryViewControllerForCollapsingSplitViewController' imp = Define.method_spec ~cmd:(selector "primaryViewControllerForCollapsingSplitViewController:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let primaryViewControllerForExpandingSplitViewController' imp = Define.method_spec ~cmd:(selector "primaryViewControllerForExpandingSplitViewController:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let splitViewControllerSupportedInterfaceOrientations' imp = Define.method_spec ~cmd:(selector "splitViewControllerSupportedInterfaceOrientations:") ~typ:(id @-> returning (ullong)) ~enc:"Q24@0:8@16" ~imp
+let splitViewControllerPreferredInterfaceOrientationForPresentation' imp = Define.method_spec ~cmd:(selector "splitViewControllerPreferredInterfaceOrientationForPresentation:") ~typ:(id @-> returning (llong)) ~enc:"q24@0:8@16" ~imp
+let splitViewController'willChangeToDisplayMode' imp = Define.method_spec ~cmd:(selector "splitViewController:willChangeToDisplayMode:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let targetDisplayModeForActionInSplitViewController' imp = Define.method_spec ~cmd:(selector "targetDisplayModeForActionInSplitViewController:") ~typ:(id @-> returning (llong)) ~enc:"q24@0:8@16" ~imp
+let splitViewController'willShowColumn' imp = Define.method_spec ~cmd:(selector "splitViewController:willShowColumn:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let splitViewController'willHideColumn' imp = Define.method_spec ~cmd:(selector "splitViewController:willHideColumn:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let splitViewControllerInteractivePresentationGestureWillBegin' imp = Define.method_spec ~cmd:(selector "splitViewControllerInteractivePresentationGestureWillBegin:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let splitViewControllerInteractivePresentationGestureDidEnd' imp = Define.method_spec ~cmd:(selector "splitViewControllerInteractivePresentationGestureDidEnd:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let splitViewController'topColumnForCollapsingToProposedTopColumn' imp = Define.method_spec ~cmd:(selector "splitViewController:topColumnForCollapsingToProposedTopColumn:") ~typ:(id @-> llong @-> returning (llong)) ~enc:"q32@0:8@16q24" ~imp
+let splitViewController'displayModeForExpandingToProposedDisplayMode' imp = Define.method_spec ~cmd:(selector "splitViewController:displayModeForExpandingToProposedDisplayMode:") ~typ:(id @-> llong @-> returning (llong)) ~enc:"q32@0:8@16q24" ~imp
+let splitViewControllerDidCollapse' imp = Define.method_spec ~cmd:(selector "splitViewControllerDidCollapse:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let splitViewControllerDidExpand' imp = Define.method_spec ~cmd:(selector "splitViewControllerDidExpand:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
diff --git a/UIKit/UITabBarDelegate.ml b/UIKit/UITabBarDelegate.ml
new file mode 100644
index 00000000..e2b3ffb2
--- /dev/null
+++ b/UIKit/UITabBarDelegate.ml
@@ -0,0 +1,14 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let tabBar'didSelectItem' imp = Define.method_spec ~cmd:(selector "tabBar:didSelectItem:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tabBar'willBeginCustomizingItems' imp = Define.method_spec ~cmd:(selector "tabBar:willBeginCustomizingItems:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tabBar'didEndCustomizingItems'changed' imp = Define.method_spec ~cmd:(selector "tabBar:didEndCustomizingItems:changed:") ~typ:(id @-> id @-> bool @-> returning (void)) ~enc:"v36@0:8@16@24c32" ~imp
+let tabBar'willEndCustomizingItems'changed' imp = Define.method_spec ~cmd:(selector "tabBar:willEndCustomizingItems:changed:") ~typ:(id @-> id @-> bool @-> returning (void)) ~enc:"v36@0:8@16@24c32" ~imp
+let tabBar'didBeginCustomizingItems' imp = Define.method_spec ~cmd:(selector "tabBar:didBeginCustomizingItems:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
diff --git a/UIKit/UITableViewDataSource.ml b/UIKit/UITableViewDataSource.ml
index 34aee2f8..9e682db9 100644
--- a/UIKit/UITableViewDataSource.ml
+++ b/UIKit/UITableViewDataSource.ml
@@ -1,32 +1,18 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
-open Foundation
-open CoreAnimation
-open CoreText
-
-(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewdatasource?language=objc}UITableViewDataSource} *)
-
-let self = get_class "UITableViewDataSource"
+open CoreFoundation
+open CoreGraphics
 
-let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x
-let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
-let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x
-let sections self = msg_send ~self ~cmd:(selector "sections") ~typ:(returning id)
-let setSections x self = msg_send ~self ~cmd:(selector "setSections:") ~typ:(id @-> returning void) x
-let tableView x ~canEditRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:canEditRowAtIndexPath:") ~typ:(id @-> id @-> returning bool) x canEditRowAtIndexPath
-let tableView1 x ~canMoveRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:canMoveRowAtIndexPath:") ~typ:(id @-> id @-> returning bool) x canMoveRowAtIndexPath
-let tableView2 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath
-let tableView3 x ~editingStyleForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:editingStyleForRowAtIndexPath:") ~typ:(id @-> id @-> returning llong) x editingStyleForRowAtIndexPath
-let tableView4 x ~heightForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:heightForFooterInSection:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int heightForFooterInSection)
-let tableView5 x ~heightForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:heightForHeaderInSection:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int heightForHeaderInSection)
-let tableView6 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning double) x heightForRowAtIndexPath
-let tableView7 x ~indentationLevelForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:indentationLevelForRowAtIndexPath:") ~typ:(id @-> id @-> returning llong) x indentationLevelForRowAtIndexPath
-let tableView8 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection)
-let tableView9 x ~titleForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:titleForFooterInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForFooterInSection)
-let tableView10 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection)
-let tableView11 x ~viewForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:viewForFooterInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int viewForFooterInSection)
-let tableView12 x ~viewForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:viewForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int viewForHeaderInSection)
\ No newline at end of file
+let numberOfSectionsInTableView' imp = Define.method_spec ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) ~enc:"q24@0:8@16" ~imp
+let tableView'titleForHeaderInSection' imp = Define.method_spec ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) ~enc:"@32@0:8@16q24" ~imp
+let tableView'titleForFooterInSection' imp = Define.method_spec ~cmd:(selector "tableView:titleForFooterInSection:") ~typ:(id @-> llong @-> returning (id)) ~enc:"@32@0:8@16q24" ~imp
+let tableView'canEditRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:canEditRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'canMoveRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:canMoveRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let sectionIndexTitlesForTableView' imp = Define.method_spec ~cmd:(selector "sectionIndexTitlesForTableView:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let tableView'sectionForSectionIndexTitle'atIndex' imp = Define.method_spec ~cmd:(selector "tableView:sectionForSectionIndexTitle:atIndex:") ~typ:(id @-> id @-> llong @-> returning (llong)) ~enc:"q40@0:8@16@24q32" ~imp
+let tableView'commitEditingStyle'forRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:commitEditingStyle:forRowAtIndexPath:") ~typ:(id @-> llong @-> id @-> returning (void)) ~enc:"v40@0:8@16q24@32" ~imp
+let tableView'moveRowAtIndexPath'toIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:moveRowAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
diff --git a/UIKit/UITableViewDelegate.ml b/UIKit/UITableViewDelegate.ml
new file mode 100644
index 00000000..373c4e29
--- /dev/null
+++ b/UIKit/UITableViewDelegate.ml
@@ -0,0 +1,60 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let tableView'willDisplayCell'forRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let tableView'willDisplayHeaderView'forSection' imp = Define.method_spec ~cmd:(selector "tableView:willDisplayHeaderView:forSection:") ~typ:(id @-> id @-> llong @-> returning (void)) ~enc:"v40@0:8@16@24q32" ~imp
+let tableView'willDisplayFooterView'forSection' imp = Define.method_spec ~cmd:(selector "tableView:willDisplayFooterView:forSection:") ~typ:(id @-> id @-> llong @-> returning (void)) ~enc:"v40@0:8@16@24q32" ~imp
+let tableView'didEndDisplayingCell'forRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:didEndDisplayingCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let tableView'didEndDisplayingHeaderView'forSection' imp = Define.method_spec ~cmd:(selector "tableView:didEndDisplayingHeaderView:forSection:") ~typ:(id @-> id @-> llong @-> returning (void)) ~enc:"v40@0:8@16@24q32" ~imp
+let tableView'didEndDisplayingFooterView'forSection' imp = Define.method_spec ~cmd:(selector "tableView:didEndDisplayingFooterView:forSection:") ~typ:(id @-> id @-> llong @-> returning (void)) ~enc:"v40@0:8@16@24q32" ~imp
+let tableView'heightForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) ~enc:"d32@0:8@16@24" ~imp
+let tableView'heightForHeaderInSection' imp = Define.method_spec ~cmd:(selector "tableView:heightForHeaderInSection:") ~typ:(id @-> llong @-> returning (double)) ~enc:"d32@0:8@16q24" ~imp
+let tableView'heightForFooterInSection' imp = Define.method_spec ~cmd:(selector "tableView:heightForFooterInSection:") ~typ:(id @-> llong @-> returning (double)) ~enc:"d32@0:8@16q24" ~imp
+let tableView'estimatedHeightForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:estimatedHeightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) ~enc:"d32@0:8@16@24" ~imp
+let tableView'estimatedHeightForHeaderInSection' imp = Define.method_spec ~cmd:(selector "tableView:estimatedHeightForHeaderInSection:") ~typ:(id @-> llong @-> returning (double)) ~enc:"d32@0:8@16q24" ~imp
+let tableView'estimatedHeightForFooterInSection' imp = Define.method_spec ~cmd:(selector "tableView:estimatedHeightForFooterInSection:") ~typ:(id @-> llong @-> returning (double)) ~enc:"d32@0:8@16q24" ~imp
+let tableView'viewForHeaderInSection' imp = Define.method_spec ~cmd:(selector "tableView:viewForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) ~enc:"@32@0:8@16q24" ~imp
+let tableView'viewForFooterInSection' imp = Define.method_spec ~cmd:(selector "tableView:viewForFooterInSection:") ~typ:(id @-> llong @-> returning (id)) ~enc:"@32@0:8@16q24" ~imp
+let tableView'accessoryTypeForRowWithIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:accessoryTypeForRowWithIndexPath:") ~typ:(id @-> id @-> returning (llong)) ~enc:"q32@0:8@16@24" ~imp
+let tableView'accessoryButtonTappedForRowWithIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:accessoryButtonTappedForRowWithIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableView'shouldHighlightRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:shouldHighlightRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'didHighlightRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:didHighlightRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableView'didUnhighlightRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:didUnhighlightRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableView'willSelectRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:willSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'willDeselectRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:willDeselectRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'didSelectRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableView'didDeselectRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:didDeselectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableView'editingStyleForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:editingStyleForRowAtIndexPath:") ~typ:(id @-> id @-> returning (llong)) ~enc:"q32@0:8@16@24" ~imp
+let tableView'titleForDeleteConfirmationButtonForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:titleForDeleteConfirmationButtonForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'editActionsForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:editActionsForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'leadingSwipeActionsConfigurationForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:leadingSwipeActionsConfigurationForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'trailingSwipeActionsConfigurationForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:trailingSwipeActionsConfigurationForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'shouldIndentWhileEditingRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:shouldIndentWhileEditingRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'willBeginEditingRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:willBeginEditingRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableView'didEndEditingRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:didEndEditingRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableView'targetIndexPathForMoveFromRowAtIndexPath'toProposedIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:targetIndexPathForMoveFromRowAtIndexPath:toProposedIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) ~enc:"@40@0:8@16@24@32" ~imp
+let tableView'indentationLevelForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:indentationLevelForRowAtIndexPath:") ~typ:(id @-> id @-> returning (llong)) ~enc:"q32@0:8@16@24" ~imp
+let tableView'shouldShowMenuForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:shouldShowMenuForRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'canPerformAction'forRowAtIndexPath'withSender' imp = Define.method_spec ~cmd:(selector "tableView:canPerformAction:forRowAtIndexPath:withSender:") ~typ:(id @-> _SEL @-> id @-> id @-> returning (bool)) ~enc:"c48@0:8@16:24@32@40" ~imp
+let tableView'performAction'forRowAtIndexPath'withSender' imp = Define.method_spec ~cmd:(selector "tableView:performAction:forRowAtIndexPath:withSender:") ~typ:(id @-> _SEL @-> id @-> id @-> returning (void)) ~enc:"v48@0:8@16:24@32@40" ~imp
+let tableView'canFocusRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:canFocusRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'shouldUpdateFocusInContext' imp = Define.method_spec ~cmd:(selector "tableView:shouldUpdateFocusInContext:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'didUpdateFocusInContext'withAnimationCoordinator' imp = Define.method_spec ~cmd:(selector "tableView:didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let indexPathForPreferredFocusedViewInTableView' imp = Define.method_spec ~cmd:(selector "indexPathForPreferredFocusedViewInTableView:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let tableView'selectionFollowsFocusForRowAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:selectionFollowsFocusForRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'shouldSpringLoadRowAtIndexPath'withContext' imp = Define.method_spec ~cmd:(selector "tableView:shouldSpringLoadRowAtIndexPath:withContext:") ~typ:(id @-> id @-> id @-> returning (bool)) ~enc:"c40@0:8@16@24@32" ~imp
+let tableView'shouldBeginMultipleSelectionInteractionAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:shouldBeginMultipleSelectionInteractionAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) ~enc:"c32@0:8@16@24" ~imp
+let tableView'didBeginMultipleSelectionInteractionAtIndexPath' imp = Define.method_spec ~cmd:(selector "tableView:didBeginMultipleSelectionInteractionAtIndexPath:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let tableViewDidEndMultipleSelectionInteraction' imp = Define.method_spec ~cmd:(selector "tableViewDidEndMultipleSelectionInteraction:") ~typ:(id @-> returning (void)) ~enc:"v24@0:8@16" ~imp
+let tableView'contextMenuConfigurationForRowAtIndexPath'point' imp = Define.method_spec ~cmd:(selector "tableView:contextMenuConfigurationForRowAtIndexPath:point:") ~typ:(id @-> id @-> CGPoint.t @-> returning (id)) ~enc:"@48@0:8@16@24{CGPoint=dd}32" ~imp
+let tableView'previewForHighlightingContextMenuWithConfiguration' imp = Define.method_spec ~cmd:(selector "tableView:previewForHighlightingContextMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'previewForDismissingContextMenuWithConfiguration' imp = Define.method_spec ~cmd:(selector "tableView:previewForDismissingContextMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) ~enc:"@32@0:8@16@24" ~imp
+let tableView'willPerformPreviewActionForMenuWithConfiguration'animator' imp = Define.method_spec ~cmd:(selector "tableView:willPerformPreviewActionForMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let tableView'willDisplayContextMenuWithConfiguration'animator' imp = Define.method_spec ~cmd:(selector "tableView:willDisplayContextMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
+let tableView'willEndContextMenuInteractionWithConfiguration'animator' imp = Define.method_spec ~cmd:(selector "tableView:willEndContextMenuInteractionWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) ~enc:"v40@0:8@16@24@32" ~imp
diff --git a/UIKit/UIWindowDelegate.ml b/UIKit/UIWindowDelegate.ml
new file mode 100644
index 00000000..8c5f2b1d
--- /dev/null
+++ b/UIKit/UIWindowDelegate.ml
@@ -0,0 +1,23 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let rotatingSnapshotViewForWindow' imp = Define.method_spec ~cmd:(selector "rotatingSnapshotViewForWindow:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let rotatingContentViewForWindow' imp = Define.method_spec ~cmd:(selector "rotatingContentViewForWindow:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let rotatingHeaderViewForWindow' imp = Define.method_spec ~cmd:(selector "rotatingHeaderViewForWindow:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let rotatingFooterViewForWindow' imp = Define.method_spec ~cmd:(selector "rotatingFooterViewForWindow:") ~typ:(id @-> returning (id)) ~enc:"@24@0:8@16" ~imp
+let getRotationContentSettings'forWindow' imp = Define.method_spec ~cmd:(selector "getRotationContentSettings:forWindow:") ~typ:((ptr void) @-> id @-> returning (void)) ~enc:"v32@0:8^{?=cccccdi}16@24" ~imp
+let window'willAnimateFromContentFrame'toContentFrame' imp = Define.method_spec ~cmd:(selector "window:willAnimateFromContentFrame:toContentFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning (void)) ~enc:"v88@0:8@16{CGRect={CGPoint=dd}{CGSize=dd}}24{CGRect={CGPoint=dd}{CGSize=dd}}56" ~imp
+let window'shouldAutorotateToInterfaceOrientation' imp = Define.method_spec ~cmd:(selector "window:shouldAutorotateToInterfaceOrientation:") ~typ:(id @-> llong @-> returning (bool)) ~enc:"c32@0:8@16q24" ~imp
+let window'willRotateToInterfaceOrientation'duration' imp = Define.method_spec ~cmd:(selector "window:willRotateToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) ~enc:"v40@0:8@16q24d32" ~imp
+let window'didAnimateFirstHalfOfRotationToInterfaceOrientation' imp = Define.method_spec ~cmd:(selector "window:didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let window'didRotateFromInterfaceOrientation' imp = Define.method_spec ~cmd:(selector "window:didRotateFromInterfaceOrientation:") ~typ:(id @-> llong @-> returning (void)) ~enc:"v32@0:8@16q24" ~imp
+let shouldWindowUseOnePartInterfaceRotationAnimation' imp = Define.method_spec ~cmd:(selector "shouldWindowUseOnePartInterfaceRotationAnimation:") ~typ:(id @-> returning (bool)) ~enc:"c24@0:8@16" ~imp
+let window'willAnimateRotationToInterfaceOrientation'duration' imp = Define.method_spec ~cmd:(selector "window:willAnimateRotationToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) ~enc:"v40@0:8@16q24d32" ~imp
+let window'willAnimateFirstHalfOfRotationToInterfaceOrientation'duration' imp = Define.method_spec ~cmd:(selector "window:willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) ~enc:"v40@0:8@16q24d32" ~imp
+let window'willAnimateSecondHalfOfRotationFromInterfaceOrientation'duration' imp = Define.method_spec ~cmd:(selector "window:willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) ~enc:"v40@0:8@16q24d32" ~imp
diff --git a/UIKit/UIWindowSceneDelegate.ml b/UIKit/UIWindowSceneDelegate.ml
new file mode 100644
index 00000000..92d31cf6
--- /dev/null
+++ b/UIKit/UIWindowSceneDelegate.ml
@@ -0,0 +1,12 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+open CoreFoundation
+open CoreGraphics
+
+let windowScene'userDidAcceptCloudKitShareWithMetadata' imp = Define.method_spec ~cmd:(selector "windowScene:userDidAcceptCloudKitShareWithMetadata:") ~typ:(id @-> id @-> returning (void)) ~enc:"v32@0:8@16@24" ~imp
+let windowScene'performActionForShortcutItem'completionHandler' imp = Define.method_spec ~cmd:(selector "windowScene:performActionForShortcutItem:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning (void)) ~enc:"v40@0:8@16@24@?32" ~imp
+let windowScene'didUpdateCoordinateSpace'interfaceOrientation'traitCollection' imp = Define.method_spec ~cmd:(selector "windowScene:didUpdateCoordinateSpace:interfaceOrientation:traitCollection:") ~typ:(id @-> id @-> llong @-> id @-> returning (void)) ~enc:"v48@0:8@16@24q32@40" ~imp
diff --git a/UIKit/UIKeyboardTaskEntry.ml b/UIKit_extra/UIKeyboardTaskEntry.ml
similarity index 100%
rename from UIKit/UIKeyboardTaskEntry.ml
rename to UIKit_extra/UIKeyboardTaskEntry.ml
diff --git a/UIKit/UIKeyboardTaskExecutionContext.ml b/UIKit_extra/UIKeyboardTaskExecutionContext.ml
similarity index 100%
rename from UIKit/UIKeyboardTaskExecutionContext.ml
rename to UIKit_extra/UIKeyboardTaskExecutionContext.ml
diff --git a/UIKit/UIKeyboardTaskQueue.ml b/UIKit_extra/UIKeyboardTaskQueue.ml
similarity index 100%
rename from UIKit/UIKeyboardTaskQueue.ml
rename to UIKit_extra/UIKeyboardTaskQueue.ml
diff --git a/UIKit/UIKeyboardTransitionSlice.ml b/UIKit_extra/UIKeyboardTransitionSlice.ml
similarity index 100%
rename from UIKit/UIKeyboardTransitionSlice.ml
rename to UIKit_extra/UIKeyboardTransitionSlice.ml
diff --git a/UIKit/UIKeyboardTransitionSliceClass.ml b/UIKit_extra/UIKeyboardTransitionSliceClass.ml
similarity index 100%
rename from UIKit/UIKeyboardTransitionSliceClass.ml
rename to UIKit_extra/UIKeyboardTransitionSliceClass.ml
diff --git a/UIKit/UIWebGeolocationPolicyDecider.ml b/UIKit_extra/UIWebGeolocationPolicyDecider.ml
similarity index 100%
rename from UIKit/UIWebGeolocationPolicyDecider.ml
rename to UIKit_extra/UIWebGeolocationPolicyDecider.ml
diff --git a/UIKit/UIWebGeolocationPolicyDeciderClass.ml b/UIKit_extra/UIWebGeolocationPolicyDeciderClass.ml
similarity index 100%
rename from UIKit/UIWebGeolocationPolicyDeciderClass.ml
rename to UIKit_extra/UIWebGeolocationPolicyDeciderClass.ml
diff --git a/UIKit/UIWebOptGroup.ml b/UIKit_extra/UIWebOptGroup.ml
similarity index 100%
rename from UIKit/UIWebOptGroup.ml
rename to UIKit_extra/UIWebOptGroup.ml
diff --git a/UIKit/UIWebPDFLabelView.ml b/UIKit_extra/UIWebPDFLabelView.ml
similarity index 100%
rename from UIKit/UIWebPDFLabelView.ml
rename to UIKit_extra/UIWebPDFLabelView.ml
diff --git a/UIKit/UIWebPDFLinkAction.ml b/UIKit_extra/UIWebPDFLinkAction.ml
similarity index 100%
rename from UIKit/UIWebPDFLinkAction.ml
rename to UIKit_extra/UIWebPDFLinkAction.ml
diff --git a/UIKit/UIWindowSceneActivationAction.ml b/UIKit_extra/UIWindowSceneActivationAction.ml
similarity index 100%
rename from UIKit/UIWindowSceneActivationAction.ml
rename to UIKit_extra/UIWindowSceneActivationAction.ml
diff --git a/UIKit/UIWindowSceneActivationActionClass.ml b/UIKit_extra/UIWindowSceneActivationActionClass.ml
similarity index 100%
rename from UIKit/UIWindowSceneActivationActionClass.ml
rename to UIKit_extra/UIWindowSceneActivationActionClass.ml
diff --git a/UIKit/UIWindowSceneActivationConfiguration.ml b/UIKit_extra/UIWindowSceneActivationConfiguration.ml
similarity index 100%
rename from UIKit/UIWindowSceneActivationConfiguration.ml
rename to UIKit_extra/UIWindowSceneActivationConfiguration.ml
diff --git a/UIKit/UIWindowSceneActivationInteraction.ml b/UIKit_extra/UIWindowSceneActivationInteraction.ml
similarity index 100%
rename from UIKit/UIWindowSceneActivationInteraction.ml
rename to UIKit_extra/UIWindowSceneActivationInteraction.ml
diff --git a/UIKit/UIWindowSceneActivationRequestOptions.ml b/UIKit_extra/UIWindowSceneActivationRequestOptions.ml
similarity index 100%
rename from UIKit/UIWindowSceneActivationRequestOptions.ml
rename to UIKit_extra/UIWindowSceneActivationRequestOptions.ml
diff --git a/UIKit/UIWindowSceneDestructionRequestOptions.ml b/UIKit_extra/UIWindowSceneDestructionRequestOptions.ml
similarity index 100%
rename from UIKit/UIWindowSceneDestructionRequestOptions.ml
rename to UIKit_extra/UIWindowSceneDestructionRequestOptions.ml
diff --git a/UIKit/UIWindowSceneSpecification.ml b/UIKit_extra/UIWindowSceneSpecification.ml
similarity index 100%
rename from UIKit/UIWindowSceneSpecification.ml
rename to UIKit_extra/UIWindowSceneSpecification.ml