From c301314cae12a6ab85c398b1730d66087686d0d4 Mon Sep 17 00:00:00 2001 From: "Boris D." Date: Sat, 12 Oct 2024 11:31:22 -0700 Subject: [PATCH] Add bindings for some UIKit protocols. --- UIKit/UIActionSheetDelegate.ml | 15 +++++ ...tionSheetPresentationControllerDelegate.ml | 10 +++ UIKit/UIApplicationDelegate.ml | 62 +++++++++++++++++++ UIKit/UICollectionViewDataSource.ml | 15 +++++ UIKit/UICollectionViewDelegate.ml | 44 +++++++++++++ UIKit/UIKit.ml | 33 +++++----- UIKit/UIPageViewControllerDataSource.ml | 11 ++++ UIKit/UIPageViewControllerDelegate.ml | 14 +++++ UIKit/UISceneDelegate.ml | 22 +++++++ UIKit/UIScrollViewDelegate.ml | 23 +++++++ UIKit/UISearchBarDelegate.ml | 20 ++++++ UIKit/UISearchControllerDelegate.ml | 14 +++++ UIKit/UISplitViewControllerDelegate.ml | 31 ++++++++++ UIKit/UITabBarDelegate.ml | 14 +++++ UIKit/UITableViewDataSource.ml | 38 ++++-------- UIKit/UITableViewDelegate.ml | 60 ++++++++++++++++++ UIKit/UIWindowDelegate.ml | 23 +++++++ UIKit/UIWindowSceneDelegate.ml | 12 ++++ {UIKit => UIKit_extra}/UIKeyboardTaskEntry.ml | 0 .../UIKeyboardTaskExecutionContext.ml | 0 {UIKit => UIKit_extra}/UIKeyboardTaskQueue.ml | 0 .../UIKeyboardTransitionSlice.ml | 0 .../UIKeyboardTransitionSliceClass.ml | 0 .../UIWebGeolocationPolicyDecider.ml | 0 .../UIWebGeolocationPolicyDeciderClass.ml | 0 {UIKit => UIKit_extra}/UIWebOptGroup.ml | 0 {UIKit => UIKit_extra}/UIWebPDFLabelView.ml | 0 {UIKit => UIKit_extra}/UIWebPDFLinkAction.ml | 0 .../UIWindowSceneActivationAction.ml | 0 .../UIWindowSceneActivationActionClass.ml | 0 .../UIWindowSceneActivationConfiguration.ml | 0 .../UIWindowSceneActivationInteraction.ml | 0 .../UIWindowSceneActivationRequestOptions.ml | 0 .../UIWindowSceneDestructionRequestOptions.ml | 0 .../UIWindowSceneSpecification.ml | 0 35 files changed, 418 insertions(+), 43 deletions(-) create mode 100644 UIKit/UIActionSheetDelegate.ml create mode 100644 UIKit/UIActionSheetPresentationControllerDelegate.ml create mode 100644 UIKit/UIApplicationDelegate.ml create mode 100644 UIKit/UICollectionViewDataSource.ml create mode 100644 UIKit/UICollectionViewDelegate.ml create mode 100644 UIKit/UIPageViewControllerDataSource.ml create mode 100644 UIKit/UIPageViewControllerDelegate.ml create mode 100644 UIKit/UISceneDelegate.ml create mode 100644 UIKit/UIScrollViewDelegate.ml create mode 100644 UIKit/UISearchBarDelegate.ml create mode 100644 UIKit/UISearchControllerDelegate.ml create mode 100644 UIKit/UISplitViewControllerDelegate.ml create mode 100644 UIKit/UITabBarDelegate.ml create mode 100644 UIKit/UITableViewDelegate.ml create mode 100644 UIKit/UIWindowDelegate.ml create mode 100644 UIKit/UIWindowSceneDelegate.ml rename {UIKit => UIKit_extra}/UIKeyboardTaskEntry.ml (100%) rename {UIKit => UIKit_extra}/UIKeyboardTaskExecutionContext.ml (100%) rename {UIKit => UIKit_extra}/UIKeyboardTaskQueue.ml (100%) rename {UIKit => UIKit_extra}/UIKeyboardTransitionSlice.ml (100%) rename {UIKit => UIKit_extra}/UIKeyboardTransitionSliceClass.ml (100%) rename {UIKit => UIKit_extra}/UIWebGeolocationPolicyDecider.ml (100%) rename {UIKit => UIKit_extra}/UIWebGeolocationPolicyDeciderClass.ml (100%) rename {UIKit => UIKit_extra}/UIWebOptGroup.ml (100%) rename {UIKit => UIKit_extra}/UIWebPDFLabelView.ml (100%) rename {UIKit => UIKit_extra}/UIWebPDFLinkAction.ml (100%) rename {UIKit => UIKit_extra}/UIWindowSceneActivationAction.ml (100%) rename {UIKit => UIKit_extra}/UIWindowSceneActivationActionClass.ml (100%) rename {UIKit => UIKit_extra}/UIWindowSceneActivationConfiguration.ml (100%) rename {UIKit => UIKit_extra}/UIWindowSceneActivationInteraction.ml (100%) rename {UIKit => UIKit_extra}/UIWindowSceneActivationRequestOptions.ml (100%) rename {UIKit => UIKit_extra}/UIWindowSceneDestructionRequestOptions.ml (100%) rename {UIKit => UIKit_extra}/UIWindowSceneSpecification.ml (100%) 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